需要更正代码以合并单个工作簿中的工作簿 – 消除保存提示
以下是将多个工作簿合并到单个工作簿的代码。 但是，它会提示保存每个正在传输的文件。
我需要不中断地传输数据来保存文件。
非常感谢您的帮助。
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 也许你应该closures显示警报，以防止通知出现。
你可以通过closures使用…
Application.DisplayAlerts = False
并重新使用…
Application.DisplayAlerts = True 。
就我个人而言，我认为从下面的链接的AddIn更容易处理，它处理各种情况，所以我斜纹做你在这里描述，以及许多其他的事情。