軟體: 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' 陣列索引超出範圍“

因為Sheets.Count回傳的是A工作簿的Sheets.Count要改成Workbooks(TargetFileName).Sheets.Count

測試i大回文，將sheets.count改為workbooks(...).sheets.count https://i.imgur.com/kkZA8Wa.jpg 並無出現錯誤