Excel 2016中的宏

Question

我正在使用下面的宏來提取Excel 2013中的數據，現在我已經轉移到Excel 2016.在Excel 2016中，宏不起作用。

Sub simpleXlsMerger() 


    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") 

    Set dirObj = mergeObj.Getfolder("path") 

    Set filesObj = dirObj.Files 

    For Each everyObj In filesObj 

    Set bookList = Workbooks.Open(everyObj) 

    Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy 

    ThisWorkbook.Worksheets(1).Activate 

    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial 

    Application.CutCopyMode = False 

    bookList.Close 

    Next 

End Sub 

有人可以幫助我解決這個問題

Answer 1

試試這個：

Sub simpleXlsMerger() 


    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") 

    Set dirObj = mergeObj.Getfolder("path") 

    Set filesObj = dirObj.Files 

    For Each everyObj In filesObj 

     Set bookList = Workbooks.Open(everyObj) 

     'EDIT 
     With bookList.Sheets(1) 
      .Range("A2:IV" & .Range("A65536").End(xlUp).Row).Copy _ 
      ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(1, 0) 
     End With 
     '/EDIT 

     bookList.Close False 

    Next 

End Sub