2017-06-21 33 views
0

VBA Excelで2回目にオートメーションエラーが発生しました。Excel VBAオートメーションエラー2回目のコード実行

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

そして、それは私が研究し、このリンクhttps://support.microsoft.com/en-us/help/178510/excel-automation-fails-second-time-code-runs になったが、私は、私は失敗していたオブジェクトである得ることはありません

Selection.Insert Shift:=xlDown 

行でエラーをトリガ: 次のようにそれはありますSelectを使用しない

+0

[選択を避ける方法](https://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba-macros)を参照してください。おそらく問題が解決します。 –

答えて

0

を呼び出すために、これはそれを解決すべきだと思う:

With Sheets("Panel Resumen") 
    .Rows("55:69").Copy 
    .Rows("55:55").Insert Shift:=xlDown 
End With 
Application.CutCopyMode = False 
関連する問題