[算表] 複製工作表至別的工作簿

看板Office作者Ibrahimovic (伊布)時間8年前 (2018/01/28 06:33)推噓1(1推 0噓 3→)

留言4則, 2人參與討論串1/1

軟體: Excel 版本: 2016 想從A工作簿複製多個工作表，至B工作簿最後面的工作表後方開始貼上寫了一個迴圈出現錯誤找了老半天才找到的錯誤如下錯誤版本 Sheets(i).Copy After:=Workbooks(TargetFileName).Sheets(Sheets.Count) OK版本 Sheets(i).Copy After:=Workbooks(TargetFileName).Sheets(1) OK版本裡的1換成2或3，都是OK的雖說這樣的工作表排序後面再改回來也行可是還是想請教為什麼用 Sheets()裡放 Sheets.Count 會出現錯誤而改用數字就不會？ PS: 錯誤說明為 “執行階段錯誤 '9' 陣列索引超出範圍“ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.239.146.147 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1517092399.A.D53.html

推

Iories

01/28 09:16, 8年前 , 1^F

01/28 09:16, 1^F

→

Iories

01/28 09:17, 8年前 , 2^F

01/28 09:17, 2^F

謝謝你的回應但還是出現錯誤我貼code好了 ======================================================================== Sub 備份檔案() '主程式執行的檔名　VbaFileName = "下載yahoo當日行情(上市).xlsm" '欲存進的資料夾路徑 & 檔案名稱　　TargetFilePath = "E:\股市資料\存檔區\" 　TargetFileName = "存檔01yahoo當日行情個股.xlsx" '開啟欲存進去的檔案　Workbooks.Open Filename:=TargetFilePath & TargetFileName '切回主程式的檔案　Windows(VbaFileName).Activate For i = 2 To 5 Step 1 Windows(VbaFileName).Activate 　　　　Sheets(i).Copy After:=Workbooks(TargetFileName).Sheets(Sheets.Count) Next End Sub ========================================================================

→

soyoso

01/28 20:13, 8年前 , 3^F

01/28 20:13, 3^F

→

soyoso

01/28 20:13, 8年前 , 4^F

01/28 20:13, 4^F