Ինչպե՞ս ներմուծել / պատճենել փակ աշխատանքային գրքից տվյալները ընթացիկ աշխատանքային գրքում:

Մեզ համար հեշտ է պատճենել տվյալները բացված աշխատաթերթից և դրանք տեղադրել մեկ այլ բացված աշխատանքային գրքում, բայց փորձե՞լ եք երբևէ փակ աշխատանքային գրքից տվյալներ ներմուծել բացված աշխատանքային գրքում: Այս հոդվածում ես կխոսեմ փակ աշխատանքային գրքից տվյալներ ներմուծելու մասին:

Փակ աշխատանքային գրքից տվյալներ ներմուծեք ընթացիկ աշխատանքային գրքում 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- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1. Սեղմել Kutools Plus > Ներմուծման արտահանման > Տեղադրեք ֆայլը կուրսորում, տես նկարի նկարը.

2, Մեջ Տեղադրեք ֆայլը կուրսորում երկխոսության տուփ, կատարեք հետևյալ գործողությունները.

(1.) Կտտացրեք կոճակը բջիջ ընտրելու համար, որտեղ ցանկանում եք տեղադրել ներմուծված տվյալները.

(2.) Կտտացրեք կոճակը ընտրելու այն աշխատանքային գիրքը, որը ցանկանում եք ներմուծել դրա տվյալները:

Նշում: Միայն արժեք (առանց բանաձևերի)Եթե ​​այս տարբերակը ստուգեք, միայն արժեքը կներմուծվի, և բանաձևերը չեն ներկրվի:

Մի փոխանցեք ձևաչափումըԱյս տարբերակը ստուգելու դեպքում տվյալները կներմուծվեն աշխատանքային թերթ առանց ձևաչափման:

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:

3. Այնուհետեւ կտտացրեք OK, եթե աշխատանքային գրքում մեկից ավելի աշխատանքային թերթ կա, ա Ընտրեք աշխատաթերթ երկխոսության տուփը դուրս կգա, խնդրում ենք նշել այն աշխատանքային թերթը, որը ցանկանում եք ներմուծել տվյալները, տես նկարի նկարը.

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, ընտրված աշխատանքային թերթի տվյալները ներմուծվել են ընթացիկ աշխատանքային գրքում:

Կտտացրեք ՝ այս ֆայլը կուրսորը կուրսորում գործառույթի վերաբերյալ ավելի մանրամասն տեղեկություններ ստանալու համար:

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:

Դեմո. Փակ աշխատանքային գրքից տվյալների ներմուծում Excel- ի համար Kutools- ի ընթացիկ աշխատանքային գրքում

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...