樂享

如果有兩個跨文件想使用巨集複製貼上

方法一 (檔案要打開)

(假設 要將檔案C.cvs中sheet C 的A欄到Z欄複製到P.xlsx的sheet P)
1. 先把要複製的的檔案(C.CVS)打開來
2. 在P檔案中執行
Workbooks("C.csv").Worksheets("sheet C").Columns("A:Z").Cells.Copy '複製C.cvs中sheet C 的A欄到Z欄
Workbooks("P.xlsx").Worksheets("sheet P").Select '選擇P.xlsx的sheet P
Range("A1").Select '選擇欄位A
ActiveSheet.Paste '貼上


方法二 (檔案不用開, P.xlsx 不用有sheet P)

(直接複製C.cvs中sheet C至P.xlsx)
1. 在P檔案中執行
Workbooks.Open Filename:="途徑\C.csv" '開啟C檔
Sheets("sheet C").Copy Before:=Workbooks("P.xlsx").Sheets(1) '複製sheet C並貼至P.xlsx第一個sheet (sheets() 中的數字表示第幾個sheet
Sheets(1).Name = "sheet P" '把第一個sheet 改名為 sheet P

Note: 檔案格式(cvs, xlsx, xls...)照實填寫即可，可以在點選文件後按右鍵選擇內容查看





如果有更好的寫法也歡迎一起討論