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

質問

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

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

お教えください。

回答No.1

KURUMITO · ベストアンサー

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

ActiveWorkbook.Close SaveChanges:=True

お礼

突然の出張が入りさきほど帰ってまいりました。
お礼が遅くなり申し訳ありませんでした。
なぜか、 Arg1:=Range("C5").Valueの部分を削除しましたら問題が解決しました。
ありがとうございました。

補足

早速の回答ありがとうございます。
Windows("シート名.xlsm").Activate
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("C5").Value

ActiveWorkbook.Close SaveChanges:=True

に変えて実行したのですが二度開かれます。

回答No.4

hallo-2007

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

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

お礼

突然の出張が入りさきほど帰ってまいりました。
お礼が遅くなり申し訳ありませんでした。
なぜか、 Arg1:=Range("C5").Valueの部分を削除しましたら問題が解決しました。
ありがとうございました。

回答No.3

play_with_you

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

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

お礼

突然の出張が入りさきほど帰ってまいりました。
お礼が遅くなり申し訳ありませんでした。
なぜか、 Arg1:=Range("C5").Valueの部分を削除しましたら問題が解決しました。
ありがとうございました。

回答No.2

tsubuyuki

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

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

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

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

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

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

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

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

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

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

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

お礼

突然の出張が入りさきほど帰ってまいりました。
お礼が遅くなり申し訳ありませんでした。
なぜか、 Arg1:=Range("C5").Valueの部分を削除しましたら問題が解決しました。
ありがとうございました。