今天在進行copy 時,發生執行階段錯誤'9',陣列索引超出範圍的中斷
程序碼大致如下:
Public Sub 兩工作簿複製貼上()
Dim 來源 As Range
'啟用來源檔工作簿
Windows("ABC.xlsm").Activate
Set 來源 = Range("A1:B2")
來源.Copy
'回目前工作簿(目的檔)
'下列陳述式在啟動時偶會出現執行階段錯誤'9',陣列索引超出範圍的中斷
'2021/10/20 用錄製的程序碼
'Windows("目的檔.xlsm").Activate
'下為原正常可執行的程序碼
Windows("目的檔.xlsm").Activate
Range("A" & Rows.Count).End(xlUp).Offset(-1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

'然後一直卡在上程序碼那紅字體 => 返回啟用目的檔那裡..
於是我用錄製巨集,發現程序碼都是一樣的
再於是我另訂一程序
內文
Sub test()
Windows("ABC.xlsm").Activate
Windows("目的檔.xlsm").Activate
end sub
然後F8執行,執行都OK,切來切去很正常
那就奇怪了,只要回到要複製的那段,他就什麼陣列範圍有問題..啊我又沒用陣列..昨天以前也都還好好的..
同時在執行來源複製範圍時都正常,只是要返回就異常..
&& +其它試算表檔也有一些出現這樣的問題,凡是只要動到從另一個工作簿copy資料到目的工作簿的.就全都顯示這可惡的陣列索引超出範圍的中斷...
而至昨天前這些工作簿本都很正常在作業的
凡請高手幫忙解惑,感激不盡啊~~~
====================
補充一下,剛試著補上用開啟目的檔的方式,然後再啟用目的檔
結果錯誤變成找不到檔案..
恩..後來我終於發現一切都出在昨天的改檔名...
將原本目的檔的檔名,改多加一橫槓 -,乍看OK,實測就是啟用不到該檔..
真它X的烏龍= ="~"以上finish..