软件: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