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