Ինչպե՞ս ներմուծել / պատճենել փակ աշխատանքային գրքից տվյալները ընթացիկ աշխատանքային գրքում:
Մեզ համար հեշտ է պատճենել տվյալները բացված աշխատաթերթից և դրանք տեղադրել մեկ այլ բացված աշխատանքային գրքում, բայց փորձե՞լ եք երբևէ փակ աշխատանքային գրքից տվյալներ ներմուծել բացված աշխատանքային գրքում: Այս հոդվածում ես կխոսեմ փակ աշխատանքային գրքից տվյալներ ներմուծելու մասին:
Փակ աշխատանքային գրքից տվյալներ ներմուծեք ընթացիկ աշխատանքային գրքում VBA կոդով
Ներմուծեք տվյալները փակ աշխատանքային գրքույկից ընթացիկ աշխատանքային գրքույկ Kutools for Excel
Փակ աշխատանքային գրքից տվյալներ ներմուծեք ընթացիկ աշխատանքային գրքում VBA կոդով
Հաջորդ VBA կոդը կարող է օգնել ձեզ պատճենել տվյալները աշխատանքային գրքից ՝ առանց այն բացելու ակտիվ բացված աշխատանքային գրքի, խնդրում ենք անել հետևյալ քայլերով.
1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Փակ աշխատանքային գրքից տվյալներ ներմուծեք ընթացիկ աշխատանքային գրքում
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3, Դրանից հետո սեղմեք F5 ստեղնը այս կոդն աշխատեցնելու համար, և Ֆայլը բաց է պատուհանը, ընտրեք աշխատանքային գիրքը, որը ցանկանում եք ներմուծել դրա տվյալները, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք բաց կոճակը եւ այլն KutoolsforExcel երկխոսության պատուհանը դուրս է գալիս ՝ հիշեցնելու համար, որ ընտրում եք տվյալների մի շարք, որոնք ցանկանում եք ներմուծել այլ աշխատանքային գրքույկ, տե՛ս նկարը.
5. Եվ հետո կտտացրեք OK կոճակը, դուրս եկած երկխոսության վանդակում, ընտրեք մի բջիջ, որտեղ ցանկանում եք տեղադրել տվյալները, տես նկարի նկարը.
6, եւ սեղմեք OK, փակ աշխատանքային գրքում առկա տվյալները ներմուծվել են ընթացիկ աշխատանքային գրքույկ:
Ներմուծեք տվյալները փակ աշխատանքային գրքույկից ընթացիկ աշխատանքային գրքույկ Kutools for Excel
VBA կոդը կարող է որոշակիորեն դժվար լինել մեր Excel- ի սկսնակի համար, այնպես որ, ահա, ես ձեզ խորհուրդ կտամ մի հարմար գործիք-Kutools for ExcelԻր Տեղադրեք ֆայլը կուրսորում առանձնահատկությունը, դուք կարող եք արագ և հեշտությամբ ներդնել աշխատանքային թերթի ամբողջ բովանդակությունը փակ աշխատանքային գրքից:
Kutools for Excel : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Տեղադրելուց հետո Kutools for Excelխնդրում եմ արեք հետևյալը.
1. Սեղմել Kutools Plus > Ներմուծման արտահանման > Տեղադրեք ֆայլը կուրսորում, տես նկարի նկարը.

2, Մեջ Տեղադրեք ֆայլը կուրսորում երկխոսության տուփ, կատարեք հետևյալ գործողությունները.
(1.) Կտտացրեք կոճակը բջիջ ընտրելու համար, որտեղ ցանկանում եք տեղադրել ներմուծված տվյալները.
(2.) Կտտացրեք կոճակը ընտրելու այն աշխատանքային գիրքը, որը ցանկանում եք ներմուծել դրա տվյալները:
Նշում: Միայն արժեք (առանց բանաձևերի)Եթե այս տարբերակը ստուգեք, միայն արժեքը կներմուծվի, և բանաձևերը չեն ներկրվի:
Մի փոխանցեք ձևաչափումըԱյս տարբերակը ստուգելու դեպքում տվյալները կներմուծվեն աշխատանքային թերթ առանց ձևաչափման:
3. Այնուհետեւ կտտացրեք OK, եթե աշխատանքային գրքում մեկից ավելի աշխատանքային թերթ կա, ա Ընտրեք աշխատաթերթ երկխոսության տուփը դուրս կգա, խնդրում ենք նշել այն աշխատանքային թերթը, որը ցանկանում եք ներմուծել տվյալները, տես նկարի նկարը.
4. Եվ այնուհետեւ կտտացրեք OK կոճակը, ընտրված աշխատանքային թերթի տվյալները ներմուծվել են ընթացիկ աշխատանքային գրքում:
Ներբեռնեք և անվճար փորձաշրջան Kutools for Excel Հիմա!
Դեմո. Ներմուծեք տվյալները փակ աշխատանքային գրքույկից ընթացիկ աշխատանքային գրքույկ Kutools for Excel
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:









