5
Dưới đây là mã để hợp nhất nhiều sổ làm việc vào một sổ làm việc. Tuy nhiên, nó yêu cầu lưu từng tệp đang được chuyển.Cần sửa mã để hợp nhất sổ làm việc trong một sổ làm việc - Loại bỏ Lưu Promt
Tôi cần dữ liệu được truyền mà không bị gián đoạn để lưu tệp.
Trợ giúp của bạn được đánh giá cao.
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
Application.DisplayAlerts nên giúp - https://msdn.microsoft.com/en-us/library/office/ff839782.aspx – 0m3r
đây là giải pháp tốt nhất: 'SaveChanges bookList.Close: = False '. Xem [Sự kiện đóng sổ làm việc] (https://msdn.microsoft.com/en-us/library/office/ff838613.aspx). Điều này buộc sổ làm việc phải đóng mà không lưu thay đổi. Không có lời nhắc nào sẽ xuất hiện. –