Note: The other languages of the website are Google-translated. Back to English
Autentificare  \/ 
x
or
x
Înregistrare  \/ 
x

or

Cum se combină mai multe registre de lucru într-un singur registru de lucru principal în Excel?

Ați fost vreodată blocați când trebuie să combinați mai multe registre de lucru într-un registru de lucru master în Excel? Cel mai teribil lucru este că registrele de lucru pe care trebuie să le combinați conțin mai multe foi de lucru. Și cum să combinați doar foile de lucru specificate pentru mai multe registre de lucru într-un singur registru de lucru? Acest tutorial demonstrează mai multe metode utile pentru a vă ajuta să rezolvați pașii cu pași.


Combinați mai multe registre de lucru într-un singur registru de lucru cu funcția Mutare sau Copiere

Dacă trebuie combinate doar câteva registre de lucru, puteți utiliza comanda Mutare sau Copiere pentru a muta sau copia manual foi de lucru din registrul de lucru original în registrul de lucru principal.

1. Deschideți registrele de lucru pe care le veți îmbina într-un registru principal.

2. Selectați foile de lucru din registrul de lucru original pe care îl veți muta sau copia în registrul de lucru principal.

note:

1). Puteți selecta mai multe foi de lucru neadiacente, ținând apăsat butonul Ctrl tasta și făcând clic pe filele foii unul câte unul.

2). Pentru a selecta mai multe foi de lucru adiacente, vă rugăm să faceți clic pe prima filă de foi, țineți apăsat butonul Schimba , apoi faceți clic pe ultima filă a foii pentru a le selecta pe toate.

3). Puteți face clic dreapta pe orice filă de foaie, faceți clic pe Selectați Toate foile din meniul contextual pentru a selecta toate foile de lucru din registrul de lucru în același timp.

3. După selectarea foilor de lucru necesare, faceți clic dreapta pe fila foaie, apoi faceți clic pe Mutați sau copiați din meniul contextual. Vedeți captura de ecran:

4. Apoi Mutați sau copiați apare fereastra de dialog, în A rezerva derulant, selectați registrul de lucru principal în care veți muta sau copiați foile de lucru. Selectați mutare pentru a termina în Înainte de foaie , bifați caseta Creați o copie , apoi faceți clic pe butonul OK butonul.

Apoi, puteți vedea foi de lucru în două registre de lucru combinate într-una. Vă rugăm să repetați pașii de mai sus pentru a muta foile de lucru din alte registre de lucru în registrul de lucru principal.


Combinați mai multe registre de lucru sau foi de cărți de lucru specificate într-un registru de lucru principal cu VBA

Dacă există mai multe registre de lucru care trebuie îmbinate într-unul singur, puteți aplica următoarele coduri VBA pentru a le realiza rapid. Vă rugăm să faceți următoarele.

1. Puneți toate registrele de lucru pe care doriți să le combinați într-unul sub același director.

2. Lansați un fișier Excel (acest registru de lucru va fi registrul de lucru principal).

3. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați mai jos codul VBA în fereastra Module.

Cod VBA 1: îmbinați mai multe registre de lucru Excel într-unul singur

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
	

note:

1. Codul VBA de mai sus va păstra numele foilor registrelor de lucru originale după îmbinare.

2. Dacă doriți să faceți distincția dintre foile de lucru din registrul de lucru principal de unde provin după îmbinare, vă rugăm să aplicați codul VBA 2 de mai jos.

3. Dacă doriți doar să combinați foile de lucru specificate ale registrelor de lucru într-un registru de lucru principal, codul VBA 3 de mai jos vă poate ajuta.

În codurile VBA, „C: \ Users \ DT168 \ Desktop \ KTE \”Este calea folderului. În codul VBA 3, „Sheet1, Sheet3"este fișele de lucru specificate ale registrelor de lucru pe care le veți combina cu un registru de lucru principal. Puteți să le modificați în funcție de nevoile dvs.

Cod VBA 2: Îmbinați registrele de lucru într-una (fiecare foaie de lucru va fi denumită cu prefixul numelui său original de fișier):

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

Cod VBA 3: Combinați foile de lucru specificate ale registrelor de lucru într-un registru de lucru principal:

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. apasă pe F5 tasta pentru a rula codul. Apoi, toate foile de lucru sau foile de lucru specificate ale registrelor de lucru din anumite dosare sunt combinate într-un registru de lucru principal simultan.


Combinați cu ușurință mai multe registre de lucru sau foi de cărți de lucru specificate într-un singur registru de lucru

Din fericire, Combina utilitar registru de lucru al Kutools pentru Excel face mult mai ușoară îmbinarea mai multor registre de lucru într-unul singur. Să vedem cum să funcționăm această funcție în combinarea mai multor registre de lucru.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Creați un nou registru de lucru și faceți clic pe Kutools Plus > Combina. Apoi apare o fereastră de dialog pentru a vă reaminti că toate registrele de lucru combinate ar trebui să fie salvate și caracteristica nu poate fi aplicată registrelor de lucru protejate, faceți clic pe OK butonul.

2. În Combinați foi de lucru vrăjitor, selectați Combinați mai multe foi de lucru din registrele de lucru într-un singur registru de lucru , apoi faceți clic pe Următor → buton. Vedeți captura de ecran:

3. În Combinați foi de lucru - Pasul 2 din 3 , faceți clic pe Adăuga > Fișier or Dosar pentru a adăuga fișierele Excel veți fuziona într-unul singur. După adăugarea fișierelor Excel, faceți clic pe finalizarea și alegeți un folder pentru a salva registrul de lucru principal. Vedeți captura de ecran:

Acum toate registrele de lucru sunt îmbinate într-unul singur.

Comparativ cu cele două metode de mai sus, Kutools pentru Excel are următoarele avantaje:

  • 1) Toate registrele de lucru și foile de lucru sunt listate în caseta de dialog;
  • 2) Pentru foile de lucru pe care doriți să le excludeți de la îmbinare, debifați-le;
  • 3) Fișele de lucru goale sunt excluse automat;
  • 4) Numele fișierului original va fi adăugat ca prefix la numele foii după îmbinare;
  • Pentru mai multe funcții ale acestei funcții, vă rugăm să vizitați aici.

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Kutools pentru Excel - Vă ajută să terminați întotdeauna munca înainte de timp, să aveți mai mult timp să vă bucurați de viață
Te găsești adesea jucându-te la curent cu munca, lipsa de timp pe care să-l petreci pentru tine și pentru familie?  Kutools pentru Excel vă poate ajuta să faceți față cu 80% puzzle-uri Excel și să îmbunătățiți 80% eficiența muncii, vă oferă mai mult timp să aveți grijă de familie și să vă bucurați de viață.
300 de instrumente avansate pentru 1500 de scenarii de lucru, vă fac munca mult mai ușoară ca niciodată.
Nu mai aveți nevoie de memorarea formulelor și codurilor VBA, lăsați-vă creierului să vă odihniți de acum înainte.
Operațiile complicate și repetate pot fi efectuate o procesare unică în câteva secunde.
Reduceți mii de operații de la tastatură și mouse în fiecare zi, spuneți adio acum bolilor profesionale.
Deveniți un expert Excel în 3 minute, vă ajută să vă recunoașteți rapid și să promovați o creștere a salariilor.
110,000 de oameni foarte eficienți și peste 300 de companii de renume mondial la alegere.
Faceți ca 39.0 USD să fie mai în valoare de peste 4000.0 USD pentru antrenamentul altora.
Încercare gratuită completă de 30 de zile. Garanție de rambursare de 60 de zile fără motiv.

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    venkatesh · 3 months ago
    hai sir i want know code for copying multiple sheets in one excel to multiple excels
  • To post as a guest, your comment is unpublished.
    venkatesh · 3 months ago
    hai sir i want know code for copying multiple sheets in one excel to multiple excels
  • To post as a guest, your comment is unpublished.
    noelle · 6 months ago
    how to use VBA code 1 to amend and make it runs to combine all the .xlsx files into one excel file and each excel spreedsheet tab in the combined excel file should be named as original file name.thanks
  • To post as a guest, your comment is unpublished.
    Steve · 7 months ago
    What part of VBA code 3 specifies the name of the worksheet to be copied?

  • To post as a guest, your comment is unpublished.
    crystal · 8 months ago
    @Rajni bala Good day,
    I recommend the first option "Combine multiple worksheets from workbooks into one worksheet" of the Combine feature in Kutools for Excel to handle this work.
    You can open the below hyperlink for more details of this option:
    https://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html#a1
  • To post as a guest, your comment is unpublished.
    Rajni bala · 8 months ago
    sir i want to compile different worksheets from different workbook into one master sheet
  • To post as a guest, your comment is unpublished.
    Rangaswamy · 9 months ago
    Hi, While combining the worksheets from different workbooks, I want it to be paste special values. How to do that?
  • To post as a guest, your comment is unpublished.
    RameshPK · 11 months ago
    Hello Sir,
    When I run the VBA code 1, as per the instructions given. The script ran without any errors. but I could see in the master file
    1) each xls file from the directory got created 2 times in the master workbook.
    2) if master file name falls in between the other sheet names (ex: file1.xls, file2.xls, file3_master.xls, file4.xls ... ) then file4.xls is not being added into the file3_master.xls file.
    file1, file2 got created 2 times...

    Please help how to address this ?

    Thank you,
    Ramesh
  • To post as a guest, your comment is unpublished.
    Rajesh Chintamaneni · 11 months ago
    @crystal Can we Tweak it to get only orginal sheet name?
  • To post as a guest, your comment is unpublished.
    Sippika Kwatra · 1 years ago
    In VBA 2 option my sheet names as Name.xlsx - Can we remove .xlsx?
  • To post as a guest, your comment is unpublished.
    Ai · 1 years ago
    hello, vba code 3 isn't worked with me. can anyone help me? i'm using excel 2016. the code hasn't error. but, it can't worked. thanks
  • To post as a guest, your comment is unpublished.
    ltrung · 1 years ago
    Hello, can anyone advise me please if it is possible to combine workbooks NOT into the one where I have(run) the button with VBA macro BUT to a completely different new workbook? So basically I would like to know if it is possible to create a macro in VBA that would create new workbook(file) with combined data from other workbooks? Would greatly appreciate your help! Thank you!
  • To post as a guest, your comment is unpublished.
    Gerdy · 1 years ago
    Say you want to combine workbooks by fives or twos or tens. So basically, if you have 50 workbooks and you want to combine them by fives, you'll have 10 workbooks, each having 5 workbooks worth of data by the end of it. How do you tweak this data?
  • To post as a guest, your comment is unpublished.
    crystal · 2 years ago
    @shashank Good day,
    After applying the above VBA 2, the original worksheets' information (the workbook names) will be added to the corresponding worksheet names as prefix.
  • To post as a guest, your comment is unpublished.
    shashank · 2 years ago
    VBA Code2 is working but the sheet names are "Consolidated"1,2 and so on not the original workbook names, How can I get the sheet names as original workbook names. Pls anyone help me..
  • To post as a guest, your comment is unpublished.
    Treb · 2 years ago
    Tanx for this, it helps me a lot... looking forward for more help from you. God bless you always.
  • To post as a guest, your comment is unpublished.
    giorgia.fattorini@gmail.com · 2 years ago
    @crystal Hi Crystal,
    how can I copy only the first sheet of each folder?
  • To post as a guest, your comment is unpublished.
    crystal · 2 years ago
    @dezignextllc@gmail.com I’m glad I could help ^_^
  • To post as a guest, your comment is unpublished.
    crystal · 2 years ago
    @Chris Hi Chris,
    If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

    Sub MergeWorkbooks()
    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
  • To post as a guest, your comment is unpublished.
    crystal · 2 years ago
    @Jonel Hi Jonel,
    The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

    Sub MergeSheets2()
    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
  • To post as a guest, your comment is unpublished.
    dezignextllc@gmail.com · 2 years ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 2 years ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
  • To post as a guest, your comment is unpublished.
    Chris · 2 years ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
  • To post as a guest, your comment is unpublished.
    Owen · 2 years ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    crystal · 2 years ago
    @Simona Pandele Good day,
    Please make sure you have put "\" at the end of your path. Thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Justin · 2 years ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.
  • To post as a guest, your comment is unpublished.
    Simona Pandele · 2 years ago
    The VBA code isn't working for me. I have entered my path but is there anything else that I need to customize to make it run? I can't easily see what else I might need to enter.
  • To post as a guest, your comment is unpublished.
    janu · 2 years ago
    code not worked can anyone help me
  • To post as a guest, your comment is unpublished.
    Daniela · 3 years ago
    Big thanks! It was just what I needed
  • To post as a guest, your comment is unpublished.
    dekeyser1976@gmail.com · 3 years ago
    @kevin Hi, I run into an syntaxis error while I execute this code (I also need just to combine sheet 1 from around 250 seperate .xls files into one file). I am not a VBA specialist.


    This below pops up in yellow.
    Sub MergeFilesWithoutSpaces()

    Another question: do I need to replace the "c:\test\"path by my path where these 250 .xls are stored?
    Any other modifications to this code?


    Much appreciated!
  • To post as a guest, your comment is unpublished.
    Gavin · 3 years ago
    This doesn't seem to mention the easiest method (at least for a limited number of sheets): simply drag the tab at the bottom of each sheet to the new workbook.
  • To post as a guest, your comment is unpublished.
    Muhammad · 3 years ago
    @Nahid Use the remove duplicates option in Excel 2016

    https://support.office.com/en-us/article/Filter-for-unique-values-or-remove-duplicate-values-ccf664b0-81d6-449b-bbe1-8daaec1e83c2
  • To post as a guest, your comment is unpublished.
    Nahid · 3 years ago
    Hello All, please help me.

    I have one old worksheet list with their email address and one new worksheet, how can I merge this two list and take the duplicates and have the one with email address from duplicates
  • To post as a guest, your comment is unpublished.
    Tanner Markley · 3 years ago
    Thank you for providing the VBA code!
  • To post as a guest, your comment is unpublished.
    · 3 years ago
    Hi everyone,

    First of all I have to tell that I have no experience with Macro (VBA Codes). However what I need is related to this. Maybe you guys could help me with it.

    I have a workbook and in this workbook there are 10 worksheets. The first 9 Sheets have the same order of the coloumns of titles and in these columns there are names, dates, percentages of Project Status, comments to Projects etc.. As I said the columns have the same order just the name of the worksheets (for different Teams in the Organisation) are different.

    In Addition to this I have to merge all the worksheets and have them in another sheet which is called "Übersicht" (Overview). However there is a different column in the sheet and it's between "Nr." and "Thema" columns (which are in A1 and A2 in all the 9 Sheets) and this different column called "Kategorie" (in A2 in Übersicht-Overwiev sheet). As this column is between These the order is like this "Nr. (A1), Kategorie (A2) and Thema (A3).....".So this category column (Kategorie) should be empty except this all the Information should be merged into this sheet. And also when there is a Change or update in any worksheet, the Information in "Übersicht" (Overview) sheet needs to update by itself. How can I do this?

    I hope I explained it well. Thanks a lot in advance!

    I wish you merry Christmas and a happy new year!

    oduff
  • To post as a guest, your comment is unpublished.
    Snow · 3 years ago
    Thank you for the VB code it has helped me with my job to make it easy.
  • To post as a guest, your comment is unpublished.
    James Gibson · 3 years ago
    When merging multiple Excel files, how can I get the merge routine to skip the first row on all but the first worksheet (so that only data are in the merged file, not variable names with each new Excel worksheet that gets added to the merged data set)?
  • To post as a guest, your comment is unpublished.
    adamwgrise@gmail.com · 3 years ago
    @adamwgrise@gmail.com Update: I have discovered that there is *just* enough variance in column headers such that I can identify which is which, and from there I can rename the sheets based on those properties. It appears that will work for now, but I'd be curious if it's still possible to do what I'd originally thought.
  • To post as a guest, your comment is unpublished.
    adamwgrise@gmail.com · 3 years ago
    By the way, I'm using Excel 2016 and here's the code I have, which seems to work correctly:

    Sub mergeFiles()
    Dim numberOfFilesChosen, i As Integer
    Dim tempFileDialog As FileDialog
    Dim mainWorkbook, sourceWorkbook As Workbook
    Dim tempWorkSheet As Worksheet

    Set mainWorkbook = Application.ActiveWorkbook
    Set tempFileDialog = Application.FileDialog(msoFileDialogFilePicker)

    tempFileDialog.AllowMultiSelect = True

    numberOfFilesChosen = tempFileDialog.Show

    For i = 1 To tempFileDialog.SelectedItems.Count

    Workbooks.Open tempFileDialog.SelectedItems(i)

    Set sourceWorkbook = ActiveWorkbook

    For Each tempWorkSheet In sourceWorkbook.Worksheets
    tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count)
    Next tempWorkSheet

    sourceWorkbook.Close
    Next i

    End Sub
  • To post as a guest, your comment is unpublished.
    adamwgrise@gmail.com · 3 years ago
    This code is great. One question.

    The team I'm building a workbook for gets data from several external sources, and many of the sheets appear similar and have the same name. This makes it hard to identify the sources of data just by looking at the sheets. However, each workbook will have a different file name.

    For example, if I pull in three files: Book1, Book2, Book3, and each of them has two sheets: SheetA, SheetB... After all is said and done, there isn't a clear way to distinguish which sheets came from where, since the sheet names will just be: SheetA, SheetB, SheetA (2), SheetB (2), SheetA (3), SheetB (3).

    Instead if they could be renamed to SheetABook1, SheetBBook1, SheetABook2, SheetBBook2, etc. they'd be more identifiable. Is there a way to have the VBA tack on the file name to the existing sheet names?
  • To post as a guest, your comment is unpublished.
    jay · 3 years ago
    Run-time error '1004':
    Copy method of worksheet class failed
  • To post as a guest, your comment is unpublished.
    kevin · 3 years ago
    I am using the code below to combined sheet 1 of multiple workbooks, but now I actually need to combine sheet 2 of multiple work books. Can any one please help me with what I need to change on the coding to combine sheet 2 instead of sheet 1.

    Sub MergeFilesWithoutSpaces()
    Dim path As String, 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 Integer ThisWB = ActiveWorkbook.Name

    path = "c:\Test\"

    RowofCopySheet = 2

    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Set shtDest = ActiveWorkbook.Sheets(1)
    Filename = Dir(path & "\*.xls", vbNormal)
    If Len(Filename) = 0 Then Exit Sub
    Do Until Filename = vbNullString
    If Not Filename = ThisWB Then Set Wkb = Workbooks.Open(Filename:=path & "\" & Filename)
    Set CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column))
    Set Dest = shtDest.Range("A" & shtDest.Cells(Rows.Count, 1).End(xlUp).Row + 1)
    CopyRng.Copy
    Dest.PasteSpecial xlPasteFormats
    Dest.PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False 'Clear Clipboard'
    Wkb.Close False

    End If

    Filename = Dir()

    Loop

    End Sub
  • To post as a guest, your comment is unpublished.
    Hitesh · 3 years ago
    i want to combine data from multiple work books (excel file) whc includes 8 sheets
  • To post as a guest, your comment is unpublished.
    Lawrance · 3 years ago
    @Kevin Coutts Hi,


    When execute the above script Workbooks.Open Filename:= shows error expected statment. Could you please helpw me to resolve the issue
  • To post as a guest, your comment is unpublished.
    Lawrance · 3 years ago
    Error Line: Workbooks.Open Filename:=
  • To post as a guest, your comment is unpublished.
    Lawrance · 3 years ago
    @Kevin Coutts Hi All,


    When I execute the above script it shows Line 6 Char 27 Expected Statement. Could you please help me to resolve the issue.
  • To post as a guest, your comment is unpublished.
    ibra · 3 years ago
    how can I copy specific same cells for expamle (between A1-A15 for each excel sheet )from different files and paste all of them into a worksheet?
  • To post as a guest, your comment is unpublished.
    DS · 3 years ago
    @samuel Birch Thanks a lot. Your code worked well.
  • To post as a guest, your comment is unpublished.
    shuk · 3 years ago
    @Shuk Got the solution for using both the formats i.e. ".xls" and ".xlsx" of excel spread sheet and code is given below:

    Sub GetSheet()
    Dim temp As String
    Path = "Z:\.....\reports\"
    Filename = Dir(Path & "*.xl??")
    Do While Filename ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    temp = ActiveWorkbook.Name
    ActiveSheet.Name = ActiveSheet.Name
    ActiveWorkbook.Sheets(ActiveSheet.Name).Copy After:=ThisWorkbook.Sheets(1)
    Workbooks(Filename).Close
    Filename = Dir()
    Loop
    End Sub
  • To post as a guest, your comment is unpublished.
    Shuk · 3 years ago
    Hi All
    I have successfully imported couple of excel spread sheets in one sheet by using below mentioned vb script:

    Sub GetSheets()
    Path = "Z:\.....\reports\"
    Filename = Dir(Path & "*.xls")
    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

    However can anyone help me refining above script on how to import both the formats i.e. ".xls" and ".xlsx" of excel spread sheet by using single vb script.

    Any help would be much appreciated.