2016-06-16 26 views
0

私はExcelファイルを保存し、新しいブックを生成して保存し、それを印刷するプログラムを実行しています。コードはかなり円滑に実行されますが、何らかの理由でランダムエラーが発生しています。私がランダムに言うと、私はVBAがプログラムの実行を停止し、デバッグしたいかどうか私に尋ね、デバッグするとき、修正する必要のある行をハイライト表示します。ランダムなVBAエラー

これは通常の動作ですが、行が修正または変更されるまで、行は通常進行しません。しかし、コード内で何も変更せずに「再生」ボタンをすぐに押すと、コードが正常に機能します。

これが2回出現:コマンドでの最後に一回:

With newbook 
    .Title = newName 
    .Worksheets("Sheet1").Name = "MAIN SHEET" 
    .Worksheets("Sheet2").Name = "FORMULA SHEET" 
    .SaveAs (newName) 
End With 

そして、それはラインで発生します。

ActiveSheet.PrintOut

これらの行の両方が正常に動作せず何かを変えてただ遊びを押すだけです。

コード内にこれらの停止を表示する方法はありませんか?

ありがとうございました!

+0

フラグを設定しましたか?これらの行で停止しますか? – findwindow

+1

@findwindow *ブレークポイント*を意味しますか? :p –

+0

いいえフラグがありません。それはちょうどそれ自身の上で走り、止まらないはずです。 –

答えて

1

印刷/保存しようとしているときにブックが完全に形成されていない可能性があります。

のようなもの、保存/印刷する前に遅延を導入してみてください。

.Worksheets( "Sheet2の")の名前= "FORMULAシート"

DoEvents関数

をスリープ500

DoEvents

.SaveAs(newName)