सहेजें हटाएं नीचे एक कार्यपुस्तिका में एकाधिक कार्यपुस्तिकाओं को मर्ज करने के लिए एक कोड है। हालांकि, यह स्थानांतरित होने वाली प्रत्येक फ़ाइल को सहेजने के लिए संकेत दे रहा है।एक कार्यपुस्तिका में कार्यपुस्तिकाओं को मर्ज करने के लिए कोड को सही करने की आवश्यकता है - प्रोमेट
मुझे फ़ाइलों को सहेजने के लिए बाधा के बिना स्थानांतरित करने की आवश्यकता है।
आपकी सहायता की बहुत सराहना की जाती है।
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 मदद करनी चाहिए - https://msdn.microsoft.com/en-us/library/office/ff839782.aspx – 0m3r
इस सबसे अच्छा समाधान है: 'bookList.Close SaveChanges: = झूठी '। [वर्कबुक बंद घटना] देखें (https://msdn.microsoft.com/en-us/library/office/ff838613.aspx)। यह कार्यपुस्तिका को परिवर्तनों को सहेजे बिना बंद करने के लिए मजबूर करता है। कोई संकेत नहीं दिखाई देगा। तकनीकी रूप से सही होने पर –