作者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/m.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