Mesclando vários arquivos do Excel em um arquivo

Question

Esta é minha macro para mesclar todos os arquivos em um diretório para uma folha de excel. Eu sou incapaz de encontrar porque não está funcionando conforme a expectativa. Eu tenho mil linhas em cada arquivo. Ele copia 1000 linhas do primeiro arquivo, mas no próximo arquivo copia da 1001ª linha em vez da primeira linha. da mesma forma cópias de arquivos 3 de 2001 linha. Eu quero copiar primeiro 1000 linhas a cada momento. Qual parte do código que causa problema

Sub MergeFiles()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
Dim i
i = 0

'change folder path of excel files here
Dim TTFiles_Path As String
ThisWorkbook.Worksheets(7).Activate
TTFiles_Path = Range("B2").Value

Set dirObj = mergeObj.GetFolder(TTFiles_Path)
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)


'change "A2" with cell reference of start point for every files here
'for example "B3:IV" to merge all files start from columns B and rows 3
'If you're files using more than IV column, change it to the latest column
'Also change "A" column on "A65536" to the same column as start point
Range("A4:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(8).Activate

'Do not change the following column. It's not the same column as above
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next

End Sub

    

Answer 1

Uma maneira de analisar a falha: use a depuração na macro.

Por favor, veja minha resposta aqui para o básico.