需要更正代码以在单个工作簿中合并工作簿 - 消除Save Promt

Question

下面是将多个工作簿合并到单个工作簿的代码.但是,它会提示保存正在传输的每个文件.

我需要在不中断的情况下传输数据以保存文件.

非常感谢您的帮助.

Sub Merger()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("C:\Users\Vincent\Desktop\856")

Set dirObj = mergeObj.Getfolder("D:\change\to\excel\files\path\here")

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

也许您应该考虑关闭显示警报以防止出现通知。

您可以通过使用以下命令将其关闭来做到这一点：
Application.DisplayAlerts = False

然后重新使用
Application.DisplayAlerts = True....