Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս համատեղել բազմաթիվ աշխատանքային գրքեր Excel- ում մեկ գլխավոր աշխատանքային գրքի մեջ:

Երբևէ խրվել եք, երբ ստիպված եք Excel- ում մի քանի աշխատանքային գրքեր միավորել հիմնական աշխատանքային գրքում: Ամենասարսափելին այն է, որ աշխատանքային գրքերը, որոնք անհրաժեշտ է համատեղել, պարունակում են բազմաթիվ աշխատանքային թերթեր: Եվ ինչպե՞ս համատեղել բազմաթիվ աշխատանքային գրքերի միայն նշված աշխատանքային թերթերը մեկ աշխատանքային գրքի մեջ: Այս ձեռնարկը ցույց է տալիս մի քանի օգտակար մեթոդներ, որոնք կօգնեն ձեզ քայլ առ քայլ լուծել խնդիրը:


Միավորել բազմաթիվ աշխատանքային գրքերը մեկ աշխատանքային գրքի մեջ Տեղափոխել կամ Պատճենել գործառույթով

Եթե ​​ընդամենը մի քանի աշխատանքային գրքույկ է հարկավոր է համատեղել, ապա կարող եք օգտագործել Տեղափոխել կամ Պատճենել հրամանը ՝ աշխատանքային թերթերը բնօրինակի աշխատանքային գրքից հիմնական աշխատագիրքը տեղափոխելու կամ պատճենելու համար:

1. Բացեք աշխատանքային գրքերը, որոնք միաձուլվելու եք հիմնական աշխատանքային գրքի:

2. Ընտրեք աշխատանքային թերթերը բնօրինակ աշխատանքային գրքում, որոնք կտեղափոխեք կամ պատճենեք հիմնական աշխատանքային գրքում:

Նշումներ:

1) Դուք կարող եք ընտրել բազմաթիվ ոչ հարակից աշխատանքային թերթեր `պահելով Ctrl ստեղնը և կտտացնելով թերթի ներդիրները մեկ առ մեկ:

2) Բազմաթիվ հարակից աշխատանքային թերթեր ընտրելու համար, սեղմեք առաջին թերթիկի ներդիրը, պահեք այն Հերթափոխություն բանալին, ապա կտտացրեք վերջին թերթիկի ներդիրին ՝ բոլորը ընտրելու համար:

3) Կարող եք աջ կտտացնել ցանկացած թերթիկի ներդիրին, կտտացնել Ընտրեք բոլոր թերթերը համատեքստային ընտրացանկից ՝ աշխատանքային գրքում միաժամանակ ընտրելու բոլոր աշխատանքային թերթերը:

3. Անհրաժեշտ աշխատանքային թերթերն ընտրելուց հետո աջ կտտացրեք թերթիկի ներդիրին և այնուհետև կտտացրեք Տեղափոխեք կամ պատճենեք համատեքստային ընտրացանկից: Տեսեք,

4. Հետո Տեղափոխեք կամ պատճենեք երկխոսությունը բացվում է Պատվիրել բացվող, ընտրեք հիմնական աշխատանքային գիրքը, որը կտեղափոխեք կամ պատճենեք աշխատանքային թերթերը: Ընտրեք տեղափոխումը ՝ ավարտելու համար Թերթից առաջ տուփը, ստուգիր Ստեղծեք կրկնօրինակ տուփը և վերջապես կտտացրեք այն OK կոճակը:

Դրանից հետո դուք կարող եք տեսնել աշխատանքային թերթերը երկու աշխատանքային գրքերում, որոնք միավորված են մեկին: Խնդրում ենք կրկնել վերը նշված քայլերը `աշխատանքային թերթերը այլ աշխատանքային գրքերից հիմնական աշխատանքային գրքույկ տեղափոխելու համար:


Միավորել բազմաթիվ աշխատանքային գրքեր կամ աշխատանքային գրքերի նշված թերթեր VBA- ի հետ գլխավոր աշխատանքային գրքում

Եթե ​​կան բազմաթիվ աշխատանքային գրքեր, որոնք պետք է միավորվեն մեկի մեջ, դրան արագ հասնելու համար կարող եք կիրառել հետևյալ VBA կոդերը: Խնդրում եմ, արեք հետևյալ կերպ.

1. Տեղադրեք բոլոր աշխատանքային գրքերը, որոնք ցանկանում եք համատեղել, նույն գրացուցակի տակ:

2. Գործարկել Excel ֆայլ (այս աշխատանքային գիրքը կլինի հիմնական աշխատանքային գիրքը):

3. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:

VBA կոդ 1. Միավորել Excel- ի բազմաթիվ աշխատանքային գրքերը մեկի մեջ

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

Նշումներ:

1. Վերը նշված VBA ծածկագիրը միաձուլվելուց հետո կպահի բնօրինակ աշխատանքային գրքերի թերթիկների անվանումները:

2. Եթե ուզում եք տարբերակել, թե հիմնական աշխատանքային գրքում որ աշխատաթերթերն են եկել, միաձուլվելուց հետո, խնդրում ենք կիրառել ստորև նշված VBA կոդը 2:

3. Եթե դուք պարզապես ուզում եք աշխատանքային գրքերի նշված աշխատանքային թերթերը համատեղել հիմնական աշխատանքային գրքի մեջ, ստորև ներկայացված VBA կոդը 3 կարող է օգնել:

VBA կոդերում «C: \ Users \ DT168 \ Desktop \ KTE \”Պանակի ուղին է: VBA կոդ 3-ում »,Թերթ 1, Թերթ 3«աշխատանքային գրքերի նշված աշխատանքային թերթերն են, որոնք դուք միավորելու եք որպես հիմնական աշխատանքային գրքույկ: Կարող եք դրանք փոխել` ելնելով ձեր կարիքներից:

VBA կոդ 2. Միացրեք աշխատանքային գրքերը մեկի մեջ (յուրաքանչյուր աշխատանքային թերթ անվանակոչվելու է իր նախնական ֆայլի անվան նախածանցով).

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

VBA կոդ 3. Միացրեք աշխատանքային գրքերի նշված աշխատանքային թերթերը հիմնական աշխատանքային գրքում.

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Սեղմեք F5 ծածկագիրը գործելու համար: Այնուհետև որոշակի թղթապանակի աշխատանքային գրքերի բոլոր աշխատանքային թերթերը կամ նշված աշխատանքային թերթերը միանգամից համակցվում են հիմնական աշխատանքային գրքի հետ:


Հեշտությամբ միացրեք բազմաթիվ աշխատանքային գրքեր կամ աշխատանքային գրքերի նշված թերթեր մեկ աշխատանքային գրքի հետ

Բարեբախտաբար, այն Միավորել աշխատանքային գրքույկ Excel- ի համար նախատեսված գործիքներ շատ ավելի հեշտ է դարձնում բազմաթիվ աշխատանքային գրքերի միավորումը մեկում: Եկեք տեսնենք, թե ինչպես կարելի է այս ֆունկցիան աշխատել բազմաթիվ աշխատանքային գրքեր համատեղելու ժամանակ:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Ստեղծեք նոր աշխատանքային գիրք և կտտացրեք Kutools Plus > Միավորել, Դրանից հետո բացվում է երկխոսություն ՝ հիշեցնելու համար, որ բոլոր համակցված աշխատանքային գրքերը պետք է պահպանվեն, և հնարավորությունը չի կարող կիրառվել պաշտպանված աշխատանքային գրքերի վրա, խնդրում ենք կտտացնել OK կոճակը:

2. Մեջ Միավորել աշխատանքային թերթերը կախարդ, ընտրիր Միացրեք աշխատանքային գրքերից բազմաթիվ աշխատանքային թերթեր մեկ աշխատանքային գրքի մեջ տարբերակը, ապա կտտացրեք հաջորդ կոճակ Տեսեք,

3. Մեջ Միավորել աշխատանքային թերթերը - 2-րդ քայլ 3 երկխոսության տուփ, կտտացրեք Ավելացնել > Ֆայլ or Թղթապանակ ավելացնել Excel ֆայլերը, որոնք միաձուլվելու են մեկի: Excel ֆայլերը ավելացնելուց հետո կտտացրեք Ավարտել կոճակը և ընտրեք պանակ ՝ հիմնական աշխատանքային գիրքը պահելու համար: Տեսեք,

Այժմ բոլոր աշխատանքային գրքերը միավորվել են մեկի մեջ:

Համեմատած վերը նշված երկու մեթոդների հետ, Excel- ի համար նախատեսված գործիքներ ունի հետեւյալ առավելությունները.

  • 1) Բոլոր աշխատանքային գրքերը և աշխատանքային թերթերը նշված են երկխոսության դաշտում.
  • 2) աշխատանքային թերթերի համար, որոնք ցանկանում եք բացառել միաձուլումից, պարզապես հանել այն:
  • 3) դատարկ աշխատաթերթերը ինքնաբերաբար բացառվում են.
  • 4) ֆայլի սկզբնական անունը միաձուլումից հետո կավելացվի որպես նախածանց թերթիկի անվան.
  • Այս հատկության ավելի շատ գործառույթների համար խնդրում ենք այցելել այստեղ.

  Եթե ​​ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Excel- ի համար նախատեսված գործիքներ - Օգնում է ձեզ միշտ ավարտել աշխատանքը ժամանակից շուտ, ավելի շատ ժամանակ ունենալ կյանքից վայելելու համար
Հաճա՞խ եք ինքներդ ձեզ խաղում ՝ բռնելով աշխատանքը, ժամանակի սղությունը ձեզ և ընտանիքի համար ծախսելու համար:  Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ հաղթահարել 80% Excel-ի գլուխկոտրուկները և բարելավում են 80% աշխատանքի արդյունավետությունը, ձեզ ավելի շատ ժամանակ են տալիս ընտանիքի մասին հոգալու և կյանքը վայելելու համար:
300 առաջադեմ գործիք ՝ 1500 աշխատանքային սցենարների համար, ձեր աշխատանքը դարձնում են շատ ավելի հեշտ, քան երբևէ:
Այլևս կարիք չունեք անգիր բանաձևերի և VBA կոդերի, այսուհետ հանգիստ տվեք ձեր ուղեղին:
Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
Նվազեցրեք ստեղնաշարի և մկնիկի հազարավոր գործողությունները ամեն օր, հրաժեշտ տվեք մասնագիտական ​​հիվանդություններին այժմ:
Դարձեք Excel- ի փորձագետ 3 րոպեի ընթացքում, կօգնենք ձեզ արագ ճանաչվել և աշխատավարձերի բարձրացման խթանում:
110,000 բարձր արդյունավետություն ունեցող մարդկանց և 300++ աշխարհահռչակ ընկերությունների ընտրություն:
Կատարեք ձեր $ 39.0 արժողությամբ ավելի քան $ 4000.0 ուսուցում այլոց:
Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր. 60-օրյա գումարի վերադարձի երաշխիք առանց պատճառի:

Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (146)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, խնդրում եմ, օգնեք ինձ այս ստորև բերված պայմանով: Ես ունեմ տարբեր աշխատանքային գրքույկ, որն ունի ավելի քան 5 աշխատանքային թերթ, յուրաքանչյուրը տարբեր ճանապարհով: Ես պետք է համախմբեմ բոլոր աշխատաթերթերը տարբեր աշխատանքային գրքույկից մեկ աշխատանքային գրքում: Կարո՞ղ է որևէ մեկը օգնել ինձ լուծել macro.TIA-ի միջոցով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Բարև, խնդրում եմ, օգնեք ինձ հաղթահարել այս ստորև նշված պայմանը: Ես ունեմ տարբեր աշխատանքային գրքույկ, որն ունի ավելի քան 5 աշխատանքային թերթ, յուրաքանչյուրը տարբեր ճանապարհով: Ես պետք է համախմբեմ բոլոր աշխատաթերթերը տարբեր աշխատանքային գրքույկից մեկ աշխատանքային գրքում: Կարո՞ղ է որևէ մեկը օգնել ինձ լուծել macro.TIA-ի միջոցով:Ա.Քարթիի կողմից[/quote] Խնդրում ենք գնալ ներբեռնելու և տեղադրելու Kutools-ը Excel-ի համար, կարող եք արագ դա անել: Բայց եթե ցանկանում եք օգտագործել VBA, դա կարող է չափազանց բարդ լինել: Լրացուցիչ տեղեկությունների համար, թե ինչպես դա անել, այցելեք՝http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
KUTOOLS Awsome լուծում. Ես ևս մեկ օգնության կարիք ունեմ, երբ ես ստեղծում եմ հիմնական աշխատանքային գրքույկը, այնուհետև աշխատանքային թերթիկի բջջի գույնը փոխվում է սկզբնական աշխատաթերթից: Ինչպես կարող եմ պահել այն օրիգինալ աշխատաթերթի նման:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մեր գրասենյակն ունի տվյալների կրկնօրինակում (այսինքն՝ անունը, հասցեն, քաղաքը, գումարը, ստորագրման ամսաթիվը) մի քանի excel-ի բնօրինակներից, և տվյալների համադրման փորձը ընթացքի մեջ է լինելու: Ինչպե՞ս կարելի է դա անել կրկնակի աշխատանքն ու տեղեկատվության կրկնակի մուտքերը վերացնելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստանում եմ «runtime error 1004», «Worksheet» դասի պատճենման մեթոդը ձախողվեց այն տողում, որը կարդում է՝ Sheet.Copy After:=ThisWorkbook.Sheets(1): Ես օգտագործում եմ Excel 2010: Կարող եք օգնել: Շնորհակալություն, - Սյուզի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հեյ Սյուզի, ես ինքս արդեն որոշ ժամանակ է, ինչ աշխատում եմ այս խնդրի վրա՝ ստանալով նույն սխալը: Ստուգեք՝ արդյոք մոդուլը ստեղծվել է ԱՆՁՆԱԿԱՆ բաժնում՝ ձեր ակտիվ աշխատանքային գրքույկի փոխարեն: Երբ ես ստեղծեցի մոդուլը ճիշտ ծառի տակ, ստորև բերված կոդը լավ աշխատեց: Sub GetSheets_xls() Dim Sheet As Worksheet Path = "C:\Users\yournamehere\Desktop\Testingfolder\" Filename = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=False Set Sheet = ActiveWorkbook.Sheets(1) Sheet.Copy After:=This Workbook.Sheets(1) 'Next Sheet Workbooks(Filename).Փակել Ֆայլի անունը = Dir() Loop End Sub Հուսով ենք, որ սա կօգնի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն. Ձեր կոդը լավ է աշխատել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ես ստանում եմ «runtime error 1004», «Worksheet» դասի պատճենման մեթոդը ձախողվեց այն տողում, որը կարդում է՝ Sheet.Copy After:=ThisWorkbook.Sheets(1): Ես օգտագործում եմ Excel 2010: Կարող եք օգնել: Շնորհակալություն, - ՍյուզիՍյուզիի կողմից[/quote] Նույն խնդիրն ունեի, այն աշխատում է, երբ ես գնում եմ դիտելու և ցուցադրելու «PERSONAL»-ը, կարծես թե դժվարանում է մուտք գործել այս մակրո՝ թաքնված վարպետի հետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գնացեք դիտելու և ցուցադրեք «ԱՆՁՆԱԿԱՆ»-ը. թվում է, թե այն դժվարանում է գործարկել ամբողջ կոդը, մինչդեռ վարպետը թաքնված է: Դուք կարող եք մակրո բնօրինակը դարձնել այդ աշխատանքային գրքում, բայց դուք պետք է վերստեղծեք ամբողջը ամեն անգամ, երբ ցանկանում եք օգտագործել այն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Շատ շնորհակալ եմ այս ֆայլից............. :roll: Հարգանքներով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հեյ հիանալի հուշում: Արեց համարյա այն ամենը, ինչ ուզում էի: Համակցված աշխատանքային գրքում ես կցանկանայի, որ աշխատաթերթի անվանումը պարունակեր բնօրինակ գրքույկի անունը, այնպես որ ես գիտեմ, թե որ գրքույկից են ստացվել տվյալները: Տվյալները, որոնք ես համատեղում եմ, տարբեր արխիվներից են: Ես պետք է որոնեմ մուտքագրում, բայց չգիտեմ, թե որ արխիվում է այն: Այսպիսով, բոլոր տվյալները մեկ ֆայլում համակցելով ինձ համար հնարավոր կլինի որոնել բոլոր արխիվները միանգամից: Բայց ես դեռ պետք է իմանամ, թե որ արխիվում է գրառումը Հենրիկ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որպեսզի կոդը ներառի ֆայլի անունը, պարզապես արեք սա: Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel combination\" Filename = Dir(Path & "*.xlsx") Do while Filename "" Workbooks.Open Filename:= Ճանապարհ և ֆայլի անուն, Միայն կարդալու:=Իրական ջերմաստիճան = ActiveWorkbook.Name ActiveSheet.Name = Temp ActiveWorkbook.Sheets(temp).Պատճենել հետո՝=This Workbook.Sheets(1) Workbooks(Filename).Փակել Ֆայլի անունը = Dir() Loop End Sub Note Սա միայն առաջին թերթիկը պատճենելու համար է, այն կարելի է tweeked անել բոլոր թերթերը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս եք ներառում ավելի շատ թերթեր և ինչպես եք նշում այլ հիմնական ֆայլ՝ բոլոր թերթերը տեղադրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա իսկապես հիանալի լուծում է: շնորհակալություն. Մի խնդիր, սակայն, երբ ես այն կատարեմ այս excel-ի նման, կհարցնի, թե արդյոք ուզում եմ պահպանել փոփոխությունները փակելուց առաջ (քանի որ անունը փոխվել է), և ես չեմ ուզում դա անել յուրաքանչյուր ֆայլի համար (մոտ 32 մեկ կատարման համար): Կլինի՞ արդյոք սա լուծելու միջոց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի է :lol: ինձ շատ օգնեց…
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալ եմ, ընկեր, դու իմ օրն արեցիր այս շատ օգտակար կայքից... Իրականում ես նաև ցանկանում էի միավորել տարբեր թերթերի նույն վերնագրի տվյալները 1 հիմնական աշխատաթերթում, KUTOOL-ը Excel-ի համար ինձ շատ օգնեց... Եվս մեկ անգամ շնորհակալություն .... :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ արժեքավոր տեղեկատվության համար: Սա իսկապես աշխատում է: Այս հոդվածում թվարկված քայլերն իսկապես հեշտացրին իմ աշխատանքը: Շնորհակալություն, Դինեշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն ձեր գիտելիքները կիսելու համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եք այն թարմացնել բնօրինակ աշխատանքային գրքույկի փոփոխությունները: Ես փորձում եմ ստանալ ազգային ամփոփագիր, որը յուրաքանչյուր տարածաշրջանում կներկայացնի իր տվյալները իրենց աշխատանքային գրքույկներում, իսկ հետո կունենա ազգային ամփոփագիր, որը թարմացվում է դրանից: Ես կցանկանայի, որ այս սարքը ստեղծվեր ամբողջ տարվա սկզբում և չաշխատեի հետընթաց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատանքային թերթերը մեկ աշխատանքային գրքում միավորելուց հետո, ինչպե՞ս եք այն պահում, ես չկարողացա պահել այն, որը կոչվում է Book1, և ես կտտացնում եմ պահպանել կամ պահպանել որպես, բայց ոչ աշխատանքային: որևէ առաջարկ կա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հետևեցի «Combine multiple workbooks to one workbook with VBA»-ի քայլերին ու սեղմեցի «run», ոչինչ չպատահեց: Ես տեղյակ չեմ սխալների մասին և վստահ չեմ, թե ինչպես ուղղել: Կօգնե՞ք ինձ։ հետևյալ կոդը, որը ես մուտքագրել եմ նոր աշխատանքային գրքում: Շնորհակալություն Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Every Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=This Workbook.Sheets(1) Next Sheet Workbooks(Filename).Փակել Ֆայլի անունը = Dir() Loop End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի պարոն/տիկին, ես հետևեցի «Միավորել մի քանի աշխատանքային գրքույկ մեկ աշխատանքային գրքույկի հետ VBA-ի հետ» քայլերին՝ հետևյալ մոդուլը կարգավորելու համար, բայց ոչինչ տեղի չունեցավ: Կօգնե՞ք ինձ գտնել խնդիրը: շնորհակալություն Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True յուրաքանչյուրի համար Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=This Workbook.Sheets(1) Next Sheet Workbooks(Filename).Փակել Ֆայլի անունը = Dir() Loop End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
excel-ի նոր տարբերակների համար փորձեք սա: Ես պահել եմ իմ բաց աշխատանքային գրքույկը որպես կատալոգ, և բոլոր ֆայլերը c:\temp են: Sub GetSheets() Path = "c:\temp\" Ֆայլի անուն = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Every Sheet In ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename)Close Filename = Dir() Loop End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փորձեք սա excel-ի նոր տարբերակների համար: Աշխատանքային գրքույկս պահել եմ որպես կատալոգ, բոլոր ֆայլերը c:\temp են: Sub GetSheets() Path = "c:\temp\" Ֆայլի անուն = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Every Sheet In ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename)Close Filename = Dir() Loop End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Փորձեք սա excel-ի նոր տարբերակների համար: Աշխատանքային գրքույկս պահել եմ որպես կատալոգ, բոլոր ֆայլերը c:\temp են: Sub GetSheets() Path = "c:\temp\" Ֆայլի անուն = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Every Sheet In ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Next Sheet Workbooks(Filename)Close Filename = Dir() Loop End SubԴեյվի կողմից[/quote] Ես անընդհատ ստանում եմ «չի կարող նշանակվել միայն կարդալու հատկություն» ուղու վերաբերյալ... Գաղափար կա՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույնպես այս խնդիրն ունեմ: Դու հասկացա՞ր։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դեռ ոչինչ... Չեմ գտել որևէ լուծում կամ որևէ մեկը առաջարկել է ուղղում: Ներողություն...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույնպես. Սա աշխատում էր 6 ամիս առաջ, վերջին անգամ ես ստիպված էի այն գործարկել: Ինչ-որ մեկը դեռ գտել է լուծումը: Եթե ​​նախկինում այն ​​աշխատում էիք, և այժմ այն ​​չի աշխատի, կարո՞ղ է դա կապ ունենալ Microsoft-ի թարմացման հետ: Սա իսկապես հարմար գործիք է իմ առաջադրանքների համար և խնայում է ինձ շատ ժամանակ: Ի՞նչը կարող էր փոխվել, որ Excel-ը սկսեր հանկարծակի ցուցադրել այս հաղորդագրությունը: Լինելով բավականին նոր VBA-ում, ես քիչ եմ պատկերացնում, թե որտեղից սկսել տրամաբանությունը վերլուծել: Սիրով, Գրեգ. Գլազգո, Շոտլանդիա.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Թվում է, որ «Ուղին» այժմ վերապահված է, ուստի օգտագործեք ցանկացած այլ անուն և փոխարինեք «Ուղին», օրինակ՝ «Mypath»:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Միգուցե դուք պետք է փոխեք ReadOnly:=Ճիշտ է ReadOnly:=False, ես արել եմ, և դա օգտակար էր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ինչ-որ բան էի փնտրում այս գծերով, բայց ուզում էի մեկնաբանել: Արդյո՞ք Do while ֆայլի անունը չպետք է լինի այլ բան, քան «»-ը: թե սխալ եմ կարդում? Գուցե Do while NOT ֆայլի անուն = "" Ուղղակի մի միտք...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ միավորել բոլոր թերթերը մեկ թերթիկի մեջ, որտեղ վերնագրերը ընդհանուր են... խնդրում ենք օգնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես փորձեցի օգտագործել վերը նշված մակրոները մի քանի ֆայլեր համադրելու համար, ցավոք, ոչ մի արդյունք... կարո՞ղ է որևէ մեկը օգնել ինձ ազատվել ձեռքով համադրվող ֆայլերից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ես ունեմ 112 excel թերթ, որոնք ուզում եմ տեղադրել մեկ թերթիկի մեջ՝ առանց պատճենելու և տեղադրելու: Խնդրում եմ, օգնիր ինձ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ աշխատանքային գրքույկ, որը պարունակում է մոտ 250 թերթ: Ինձ պետք է Քոբեյնին մեկ թերթիկի մեջ. խնդրում եմ ինձ լուծում տվեք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փորձեք սա... Ես ստացել եմ սա մեկ այլ կայքից, բայց, ցավոք, չեմ կարող հիշել տիկնոջ անունը, ուստի ներողություն եմ խնդրում նրան չհիշատակելու համար, վատ եմ: Միավորել բազմաթիվ WB-ներ Excel-ում. ՀԻՇԵՔ ՓՈԽԵԼ MyPath = ! Sub Merge2MultiSheets( ) Dim wbDst որպես աշխատանքային գրքույկ Dim wbSrc Որպես աշխատանքային գրքույկ Dim wsSrc որպես աշխատանքային թերթիկ Dim MyPath որպես String Dim strՖայլի անունը որպես լարային Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\\cy" Սահմանել wbDst = Workbooks.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) If Len(strFilename) = 0 Այնուհետեւ Ելք Sub Do Մինչեւ strFilename = "" Սահմանել wbSrc = Workbooks.Open(Filename=: MyPath & "\" & strFilename) Սահմանել wsSrc = wbSrc.Worksheets(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Փակել False strFilename = Dir() Loop wbDksheets(Wor). Ջնջել Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես կոդը ավելացրի մոդուլի մեջ: Excel գիրքն անվանվել է Masterfile: Որտեղ ավելացնեմ կոդը: շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սրանցից ոչ մեկն ինձ համար չաշխատեց, ես վերջապես այս մեկն աշխատեցի: FYI Ես օգտագործում եմ 2010 թ. «Նկարագրություն. միավորում է թղթապանակի բոլոր ֆայլերը գլխավոր ֆայլի: Sub MergeFiles() Dim ուղին որպես տող, ThisWB As String, lngFilecounter As Long Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet Dim Filename as String, Wkb As Workbook Dim CopyRng as Range, Dest as Range Dim RowofCopySheet As InCote 2 ' Տող, որը պետք է սկսվի այն թերթերից, որոնք պատճենում եք ThisWB = ActiveWorkbook.Name path = "mypath....." ' Մի մոռացեք փոխել այս Application.EnableEvents = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook .Sheets(1) Filename = Dir(path & "\*.xls", vbNormal) If Len(Filename) = 0 Ապա Դուրս եկեք Sub Do Մինչև Ֆայլի անուն = vbNullString Եթե ոչ Ֆայլի անուն = ThisWB Այնուհետեւ սահմանեք Wkb = Workbooks.Open(Filename: =ուղի & "\" & Ֆայլի անուն) Սահմանել CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Սահմանել նպատակ = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Տող + 1) CopyRng.Copy Dest Wkb.Close False End If Filename = Dir() Loop Rang e("A1"): Ընտրեք Application.EnableEvents = True Application.ScreenUpdating = True MsgBox «Կատարված է»: Վերջ Ենթ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ խմբագրել սա այնպես, որ մուտքագրված տվյալները միշտ սկսվեն վերևի տողից: Եթե ​​ես գործարկեմ այս կոդը երկու անգամ, այն ավելացնում է տվյալները իմ նախորդ տվյալների վերջում (մակրոյի առաջին գործարկումից):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փոխեք այս տողը. RowofCopySheet = 2 RowofCopySheet = 1
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես ունեմ բազմաթիվ Excel File (մեկ թերթ) տարբեր թղթապանակ՝ գաղտնաբառով պաշտպանված: Ես ուզում եմ օրվա վերջը միավորել բոլոր տվյալները մեկ Master ֆայլի մեջ: Ամեն անգամ, երբ ես պետք է մուտքագրեմ գաղտնաբառ և բացեմ ֆայլը և պատճենեմ տեղադրեմ հիմնական ֆայլը: Խնդրում եմ, օգնեք ինձ VBA կոդով դրա համար:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից