|
|
| Excel VBA Macro ・ ブックシート ・ FAQ |
|
確認メッセージを出さずにブックを上書き保存するには？
|
|
|
|
Question 14.8 |
|
 |
 |
|
|
テキスト文書をExcelで開き、加工して名前をつけて保存するというマクロを作成しました。
ファイル名は毎回同じ名前で上書（置換）保存する為、上書確認メッセージが表示されます。
今はユーザーに「上書する」ボタンを選択させています。自動化させたいのですが方法が分かりません。
尚、そのファイルは別のファイルからVlookup関数で参照している為、名前は毎回同じ名前で保存させたいのです。
自動でファイル名をつける・すでにある名前と同じ名前で保存する方法は、ないでしょうか？
（今は「ActiveWorkbook.SaveAs FileName:="C:\dbg952.xls"」コマンドを使っています。「ActiveWorkbook.Save」という上書コマンド ＋ 名前をつける）
よい方法がありましたら教えて下さい。よろしくお願い致します。お忙しい所申し訳ありません。
|
|
Answer |
Copyright (C) 1999.1.28 永井善王 |
|
|
あなたが知りたいことは、ブックを上書き保存する時に、エクセルの確認メッセージ（右図:Excel97の場合）を出さなくする方法ですね。
この「すぐに役立つエクセルVBAマクロ集」には、すべてのマクロが載ってるとは言えませんが、これについては載っています。
あなたは見つけれなかったようですが、Macroの「ブックシート」の［基本型］のページの1)ブックを開く、閉じるの中の「アクティブブックを上書き保存して閉じる」に、ブックを閉じる場合にメッセージを出さないケースがあります。
一応、以下にまとめておきます。
'-----------------------------------------------------------------------------------------
Sub 確認メッセージを出さずにブックを上書き保存する()
Application.DisplayAlerts = False 'メッセージを出さない
ActiveWorkbook.SaveAs FileName:="C:\dbg952.xls"
End Sub
'-----------------------------------------------------------------------------------------
|
|
|
|
| |
|
|
