Excel VBA 質問スレッド №2061 (解決済)

ダイアログを使って保存

投稿者 : クロちゃん投稿日時 : 2024/12/14(Sat) 11:51:51 OS : Windows 11 EXCEL : Office 365

モジュール内にダイアログを使ってファイル名を付けて保存し、保存後
そのモジュールのマクロ実行を継続したいのですが、VBAの記述はどう
すれば良いのでしょうか。教えてください。
マクロ実行中、ダイアログを閉じると実行が止まるのを回避したい。

[返信 1] Re : ダイアログを使って保存

投稿者 : 例えば投稿日時 : 2024/12/15(Sun) 07:53:56

以下のようなこと　？

Sub test()
    Dim saveFileName As String

    ' 名前を付けて保存ダイアログを表示
    saveFileName = Application.GetSaveAsFilename( _
        InitialFileName:="新しいファイル.xlsx", _
        FileFilter:="Excelファイル (*.xlsx), *.xlsx", _
        Title:="名前を付けて保存")

    ' ダイアログでキャンセルが押された場合も処理を継続
    If saveFileName <> "False" Then
        ' ファイルを保存
        ThisWorkbook.SaveAs Filename:=saveFileName
    End If

    ' ここから先のコードは保存の成否に関わらず実行されます
    MsgBox "マクロの実行を継続します。"

    ' 以降、続けて実行したい処理を記述
End Sub

[返信 2] Re : ダイアログを使って保存

投稿者 : 例えば投稿日時 : 2024/12/17(Tue) 13:18:45

全くリーターンが無い

解决する気が無いようなで以後無視します。

当掲示板について

Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
記事内ではHTMLのタグは使用できません。
記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。

返信入力フォーム

( 処理日時 : 2025-01-25 12:17:01 )