.







 
English Deutsch Türkçe
Ana Sayfa Excel Araçları Excel Araçları

 
Merge Excel Files Merge Excel Files Dili:  Visual Basic 
Merge multiple Excel files into one file.

Merge Excel Files
     [benzer sayfalar] 

Copy your all individual workbooks into a single directory "C:Temp"
Open a new workbook. Right click the leftmost excel icon and click viewcode then paste this code and run.

Keep backup of your orignal data.

Sub MergeSheets()
Dim SrcBook As Workbook
Dim fso As Object, f As Object, ff As Object, f1 As Object

Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.Getfolder("C:\Temp")
Set ff = f.Files

For Each f1 In ff
Set SrcBook = Workbooks.Open(f1)
Range("A1:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
SrcBook.Close
Next
End Sub


Üye Girişi  |  İletişim