軟體:Excel
版本:2016
我有個All.xlsx 檔案
它的第一個活頁簿A欄有同一資料夾下其他3個檔案的列表
我想將其他3個檔案的A1~A2格依序複製貼回到All.xlsx 的第2~4個活頁簿
只是巨集跑到 .Paste 的那行就fail了...
錯誤訊息是 物件不支援此屬性或方法
想請問我這樣寫哪裡會有問題呢?
Sub Openfile()
For i = 1 To 3
Workbooks.Open Filename:="C:\Users\USER\Documents\test merge\" &
Workbooks("All.xlsx").Worksheets(1).Cells(i, 1) & ".xlsx"
Range("A1:A2").Copy
Workbooks("All.xlsx").Worksheets(i + 1).Cells(1, 1).Paste
Workbooks(Cells(i, 1) & ".xlsx").Activate
ActiveWindow.Close
Next
End Sub