[算表] 用巨集將多個檔案複製貼上到指定檔案
軟體: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://www.ptt.cc/bbs/Office/M.1535994514.A.48E.html
→
09/04 01:22,
7年前
, 1F
09/04 01:22, 1F
→
09/04 01:25,
7年前
, 2F
09/04 01:25, 2F
→
09/04 01:26,
7年前
, 3F
09/04 01:26, 3F
→
09/04 01:26,
7年前
, 4F
09/04 01:26, 4F
→
09/04 06:42,
7年前
, 5F
09/04 06:42, 5F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
