![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
いつも大変お世話になっております。
新規作成したBOOKを指定の場所に、指定の名前で保存しようとしています。
例)C:\ファイル名.xls
保存したいものの
sFileName="C:\ファイル名.xls"
WorkbookName="ファイル名.xls"
ActiveWorkbook.SaveAs Filename:=sFileName '保存して閉じる
Workbooks(WorkbookName & "_" & sNowTime & ".xls").Close SaveChanges:=True
上記のように設定したところ、
既にファイルがある場合はウィンドウが表示されます。
その際、MsgBoxにフルパスで表示されてしまい、大変見づらく困っています。
また、新規作成したブックは必ず上書き保存で良いものになっています。
C:\ファイル名.xls というものが既にある場合は、
メッセージを出さず、上書き保存にしたいと思っています。
下記のように、既にブックがあるかも確認したのですが、
違い?が良く分からず、上手くいきませんでした。
'======================使わない上に、プログラムが間違っているためコメントアウトしてます。=========--
'Dim buf As String
' buf = Dir(sFileName) 'ファイルの存在を調べる
' If buf <> "" Then
' '保存
' ActiveWorkbook.SaveAs Filename:=sFileName '保存して閉じる
'
' '=================ファイル作成完了
' Else
' ActiveWorkbook.SaveAs Filename:=sFileName '保存して閉じる
' Workbooks(WorkbookName & "_" & sNowTime & ".xls").Close SaveChanges:=True
' End If
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
質問内容がぐちゃぐちゃしてきたので、まとめさせて頂きます。
●新規ブックを指定場所に、指定名で保存したい
●指定場所に指定名のブックがあった場合、メッセージを出さずに上書き保存したい
です、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
とりあえず、確認のメッセージを表示させる、させないの切り替えができます。
Application.DisplayAlerts = False
’確認メッセージを非表示にする
ActiveWorkbook.SaveAs Filename:=sFileName '保存して閉じる
Workbooks(WorkbookName & "_" & sNowTime & ".xls").Close SaveChanges:=True
Application.DisplayAlerts = True
'確認メッセージを表示する(元に戻す)
といった感じで使います。
回答ありがとうございます!
教えて頂いたプログラムで上手くいきました!
前同じように組んだつもりでしたが何故かエラーが出てました・・・
問題なくでき、良かったです!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル・マクロ(VBA)で、指定...
-
Excel画面の自動更新 Excelファ...
-
エクセル 更新していないのに...
-
エクセル Webページとして保存...
-
ピボットテーブルの更新ができない
-
エクセルファイルの保存
-
拡張子の替え方について教えて...
-
新しく作成したBOOKを上書き保存
-
エクセルの縮小版で中身を表示...
-
エクセルでCSVファイルとして保...
-
エクセルで保存しますか?のメ...
-
エクセルで保存ごとにリンク先...
-
エクセルを上書き保存したのに...
-
エクセル2016 上書き保存が出来...
-
メール添付されているファイル...
-
【スプレドシート】IMPORTRANGE...
-
パワーポイントをエクセルファ...
-
エクセルでファイルを閉じても...
-
エクセル0:00と表示される原因
-
Lotus 1-2-3のファイルをExcel...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを上書き保存したのに...
-
いきなりPDFでPDFファイルを開...
-
メール添付されているファイル...
-
excelとCSVについて質問です! ...
-
エクセル文書を保存したらメモ...
-
マクロ VBA ファイル名を連番...
-
Excel画面の自動更新 Excelファ...
-
エクセルでVBAを使用して1分毎...
-
エクセル・マクロ(VBA)で、指定...
-
エクセルでCSVファイルとして保...
-
Illustratorファイルに読み取り...
-
開いてるファイル(エクセル等)...
-
ピボットテーブルの更新ができない
-
エクセル表のCSV化ができない
-
エクセルがwindows終了時に未保...
-
OneDriveの存在を知った。エク...
-
「変更を保存しますか?」と聞...
-
エクセルで保存しますか?のメ...
-
エクセルで保存の前に固まって...
-
CSVの上書き保存
おすすめ情報