第二次運行Excel VBA自動化錯誤代碼

在VBA Excel中，第二次運行我的代碼時出現自動化錯誤。它如下：第二次運行Excel VBA自動化錯誤代碼

Sheets("Panel Resumen").Select 
Rows("55:69").Select 
Selection.Copy 
Rows("55:55").Select 
Selection.Insert Shift:=xlDown 
Range("D25").Select 
Application.CutCopyMode = False

而且它觸發錯誤

Selection.Insert Shift:=xlDown

我研究並得到了這個鏈接https://support.microsoft.com/en-us/help/178510/excel-automation-fails-second-time-code-runs 行了，但我不明白這是我失敗的對象調用

來源

2017-06-21 Alvatroc

請參閱[如何避免選擇]（https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba-macros），可能會解決這個問題。 –

不使用Select，這應該解決這個問題，我認爲：

With Sheets("Panel Resumen") 
    .Rows("55:69").Copy 
    .Rows("55:55").Insert Shift:=xlDown 
End With 
Application.CutCopyMode = False

來源

2017-06-21 16:00:03

第二次運行Excel VBA自動化錯誤代碼

回答

相關問題