compain multiple files in one file

[jabir]

Hi all,

I have been compain 100 files in one master file using VBA,
Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte"
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
End Sub

after that there are some datas missing . how can I identify missing datas? the sheets are not sorted by order in folder .
is any option to identify missing data or sheets sort by same order before merge ?

 

[jabir]

Hello All,

Anyone can help me ??!!