2017-02-09 4 views
1

私は別の "船の本"を開いて、貼り付け、次にブックを閉じます。私は新しい本を開き、マクロを実行し、保存して閉じるマクロを持っていますが、保存プロンプトが機能しなくなっています

閉じることになるときからすべてが機能します。「保存しますか?はいいいえ」などのメッセージが表示されますマクロに保存が書き込まれていますか?

したがって、実際には閉じていません。これは毎日実行するようにスケジュールしたいので、実際には迷惑で、終了しないとできません。

明らかに、このプロンプトウィンドウをオフにすることはできませんので、どんな助けも素晴らしいでしょう。

下記の私の公式を見てください。

Sub AllFiles() 

    Application.Run "'G:\Research\Analysts\Elliot Frost\Barge_Tracker_Master.xlsm'!HistoricalData" 
    Workbooks("Barge_Tracker_Master.xlsm").Close savechanges:=True 

End Sub 

'============================================================= 

Sub Scheduler() 

    '-- RUNS SUB(S) (OR FUNCTIONS) AT TIME SCHEDULED. 

    Application.OnTime TimeValue("11:28:00"), "AllFiles" 

End Sub 

答えて

1

はこのように、Application.DisplayAlerts = Falseを追加:ちょうどFYI

Sub AllFiles() 

With Application 
    .Run "'G:\Research\Analysts\Elliot Frost\Barge_Tracker_Master.xlsm'!HistoricalData" 
    DoEvents 
    .DisplayAlerts = False 
End With 

Workbooks("Barge_Tracker_Master.xlsm").Close savechanges:=True 
Application.DisplayAlerts = True 

Scheduler 
End Sub 

Sub Scheduler() 

'-- RUNS SUB(S) (OR FUNCTIONS) AT TIME SCHEDULED. 

Application.OnTime TimeValue("11:28:00"), "AllFiles" 

End Sub 
+0

ありがとう、完璧に動作します!私のapplication.ontimeがその日に毎日実行されることを確認してください。 ありがとうございます –

+0

@elliotfrost:適切な実装については、http://www.cpearson.com/excel/OnTime.aspxを参照してください。私はすでにAllFilesの最後にスケジューラを追加して、実行後にOnTimeを元に戻しました!それはすでにうまくいくはずです! ;) – R3uK

+0

ありがとう、助けてくれてありがとう! –

1

this postからの回答を確認してください:

Sub test() 
    '[...] 
    Application.DisplayAlerts = False 
    ThisWorkbook.Save 
    ThisWorkbook.Close False 
    Application.DisplayAlerts = True 
End Sub 
+0

、あなたのプロフィールに自分のサイトへのリンクが動作していません! ;) – R3uK

+0

@ R3uKああそう!それは古いものです、私に知らせてくれてありがとう:) –

+0

ありがとう、あなたの助けをたくさん! –

関連する問題