請問VBA在做兩個工作簿資料複製時,出現執行階段錯誤'9',陣列索引超出範圍的中斷是什原因?

同樣的程序碼,用了好一陣子都OK(至昨日也正常)
今天在進行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
請問VBA在做兩個工作簿資料複製時,出現執行階段錯誤'9',陣列索引超出範圍的中斷是什原因?

'然後一直卡在上程序碼那紅字體 => 返回啟用目的檔那裡..
於是我用錄製巨集,發現程序碼都是一樣的
再於是我另訂一程序

內文
Sub test()
Windows("ABC.xlsm").Activate
Windows("目的檔.xlsm").Activate
end sub

然後F8執行,執行都OK,切來切去很正常

那就奇怪了,只要回到要複製的那段,他就什麼陣列範圍有問題..啊我又沒用陣列..昨天以前也都還好好的..
同時在執行來源複製範圍時都正常,只是要返回就異常..

&& +其它試算表檔也有一些出現這樣的問題,凡是只要動到從另一個工作簿copy資料到目的工作簿的.就全都顯示這可惡的陣列索引超出範圍的中斷...
而至昨天前這些工作簿本都很正常在作業的
凡請高手幫忙解惑,感激不盡啊~~~

====================
補充一下,剛試著補上用開啟目的檔的方式,然後再啟用目的檔
結果錯誤變成找不到檔案..
恩..後來我終於發現一切都出在昨天的改檔名...
將原本目的檔的檔名,改多加一橫槓 -,乍看OK,實測就是啟用不到該檔..
真它X的烏龍= ="~"以上finish..
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!