帶有數據屬性的對象工作簿的方法打開彈出

Question

我在文件夾中有8個Excel文件。 我想從所有excel文件的sheet1復制C3單元格值。 我已經使用以下宏來做到這一點

Sub Converge_ID()
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")
Dim i
i = 0
Dim TTFiles_Path As String
ThisWorkbook.Worksheets(1).Activate

TTFiles_Path = Range("B1").Value

Set dirObj = mergeObj.GetFolder(TTFiles_Path)
Set filesObj = dirObj.Files
For Each everyObj In filesObj

Set bookList = Workbooks.Open(everyObj)
Coverge_ID = Range("C3")

ThisWorkbook.Worksheets(2).Activate
Range("A1").Offset(i, 0) = Coverge_ID
i = i + 1
bookList.Close
Next
End Sub.

當我執行此宏時，它可以按預期工作到第8個文件。 它復制C3單元格值並按預期​​粘貼。 關閉第8個文件后，我將彈出此窗口。

如何避免這個錯誤。 是什么導致此錯誤。

Answer 1

其實這個問題是由文件損壞引起的。 它按照其他文件的要求工作。