マクロです。教えてください。

Question

シートC5にある名前で保存する。
Windows("シート名.xlsm").Activate
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("C5").Value

を実行すると正しく保存されますが、すぐ「名前を付けて保存」がもう一度開かれます。
どうしてでしょうか？
二度目はキャンセルを押して終了しますが、どうやったら二度目を表示させなくできますか？

お教えください。

KURUMITO · Accepted Answer

次のコードを追加してはいかがでしょう。

ActiveWorkbook.Close SaveChanges:=True

tsubuyuki · Answer

とりあえず、原因から考えてみます。

正直な話、この２行だけを見せられても
「これだけだったら、ダイアログは１回しか出て来ないはずですよ。」
としか言えません。

まず思いつくのが、
プロシージャ内の処理は「これ（ご提示の２行）だけではないんじゃないか？」
という疑問です。
保存した後に「何かを更新するようなコード」があるのであれば、
当然ながら、上書き保存を確認するダイアログが出てきます。

プロシージャの末尾に
　　　　ActiveWorkbook.Saved = True
の１行を追加し、「ブックが保存された状態」にしてやり、
それでもなおダイアログが出てくるのであれば、コード自体の見直しをオススメします。

ただし、これだと「名前を付けて保存」とは別物ですから、
おそらくこれは現象に合致しないでしょう。

例えばステップインモード（ＶＢＥでＦ８キー）などを利用して、
「どのタイミングで２回目のダイアログが表示されるか」判断してみてましょう。

個人的に気になるのは
> 実行すると正しく保存されますが、すぐ「名前を付けて保存」がもう一度開かれます。
の記述です。
ここから連想できるのは、
「実はこの２行の前に何らかの形で保存してあって（これで「正しく保存」）
　この２行のコードが“２回目のダイアログ”なんじゃないか？」
と言うことです。
つまりコードが

Sub Sample()
　　（処理）
　　（保存）

Windows("シート名.xlsm").Activate
　　Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("C5").Value
End Sub

と言う状態である可能性ですね。
こうじゃないと「２回目のダイアログ」の発生根拠が乏しいですから。

まぁ、何にせよ。
もっと具体的な回答をお望みであれば、出来る限り詳しい「状況」を補足くださいませ。
（私は見れないかもしれませんが。）

play_with_you · Answer

こちらで試しましたが1回しかダイアログは開きませんでしたよ。
他の場所で何かおかしいのでは。

ちなみに、名前をつけて保存ならActiveWorkbook.SaveAsのほうがいいんじゃないでしょうか。
わざわざダイアログウィンドウを出す必然性があるなら仕方ないですが。

hallo-2007 · Answer

すでに回答がありますように
ほかのタイミングで名前を付けて保存が実行されていませんかね？
ちなみに
Msgbox "１のタイミング"
Windows("シート名.xlsm").Activate
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("C5").Value
Msgbox "１のタイミング"

とか、メッセージをいくつか表示させて問題部分を探し出す方法もありかと
思います。

マクロです。教えてください。

次のコードを追加してはいかがでしょう。

この回答への補足

とりあえず、原因から考えてみます。

こちらで試しましたが1回しかダイアログは開きませんでしたよ。

すでに回答がありますように

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング