【教學】Excel VBA 如何複製工作表到現有的活頁簿？超簡單馬上學會！

excel vba 工作表複製 現有活頁簿

先將 “活頁簿2.xlsx” 開啟，在”活頁簿1.xlsx” 巨集中將下方程式碼貼上，即可將 “活頁簿1.xlsx” 中的 “工作表1” 複製到 “活頁簿2.xlsx” 的最後面
◆ Dim wb_source As Workbook 和 Dim wb_target As Workbook：宣告兩個變數來代表活頁簿物件。
◆ Set wb_source = Workbooks(“活頁簿1.xlsx”)：將變數指定為要複製的來源活頁簿。
◆ Set wb_target = Workbooks(“活頁簿2.xlsx”)：將變數指定為要複製的目標活頁簿。

Dim wb_source As Workbook
Dim wb_target As Workbook

' 設定來源活頁簿和目標活頁簿
Set wb_source = Workbooks("活頁簿1.xlsx")
Set wb_target = Workbooks("活頁簿2.xlsx")

' 複製工作表
wb_source.Worksheets("工作表1").Copy
After:=wb_target.Worksheets(wb_target.Worksheets.Count)