excel - vba 中许多工作簿中的数据 - 限定符无效

Question

我尝试从同一单元格中的许多工作簿中获取数据，但出现无效的限定符错误

Dim obj() As Workbook
Dim total As Integer

total = 0
Set obj(1) = Workbooks.Open("C:\Users\Riky\Downloads\Compressed\2020\BAGUNUNG\02.06.20\DIANA")
Set obj(2) = Workbooks.Open("C:\Users\Riky\Downloads\Compressed\2020\BAGUNUNG\02.06.20\GULTOM")
Set obj(3) = Workbooks.Open("C:\Users\Riky\Downloads\Compressed\2020\BAGUNUNG\02.06.20\HSR")
Set obj(4) = Workbooks.Open("C:\Users\Riky\Downloads\Compressed\2020\BAGUNUNG\02.06.20\MADI")

total = total + obj(1).Worksheets(1).Cells(33, 5) + obj(2).Worksheets(1).Cells(33, 5) + 
obj(3).Worksheets(1).Cells(33, 5) + obj(4).Worksheets(1).Cells(33, 5)
Cells(1, 1) = total

obj.Close

有人可以帮忙吗？

Answer 1

代替:obj.Close和:

obj(1).Close
obj(2).Close
obj(3).Close
obj(4).Close