作者semurderer ()
看板Office
标题[算表] 用巨集将多个档案复制贴上到指定档案
时间Tue Sep 4 01:08:30 2018
软体: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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.192.84.153
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1535994514.A.48E.html
1F：→ soyoso: 贴上为worksheet.paste不加上range 09/04 01:22
2F：→ soyoso: 如要用paste且指定贴上储存格的话，先至要贴上的活页簿， 09/04 01:25
3F：→ soyoso: 工作表内选取该储存格後再worksheet.paste 09/04 01:26
4F：→ soyoso: 或是以range.pastespecial，可指定贴上的储存格 09/04 01:26
5F：→ semurderer: 了解了 谢谢! 09/04 06:42