Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7549 / 76732

←次へ　｜　前へ→


	【74769】ダイアログをキャンセルした後の処理

3891 - 13/9/12(木) 15:10 -


	引用なし

	パスワード

また、質問させてください。

ダイアログを開いて、名前をつけて保存させます
ファイル名は、初期値のまま保存する場合も、変更する場合もあります

書式１
Target = "初期値"
Application.Dialogs(xlDialogSaveAs).Show arg1:=Target

とやっていたのですが、ダイアログをキャンセルしたときにも、
OKと同じ処理に走ってしまうので、分岐させたいのですが、
このやり方だと、キャンセルという戻り値が取れません。

書式２
Dim BlnRtn As Boolean
BlnRtn = Application.Dialogs(xlDialogPrint).Show
という記述を見つけたのですが、この書式だと、 arg1:=Target の部分が
VBEにコンパイルエラーと返されてしまいます。

書式３
Dim BlnRtn As Variant
BlnRtn= IIf(Application.Dialogs(xlDialogSaveAs).Show(ARG1:=Target), "保存", "キャンセル")

と、true/falseを見させようとすると、今度は、戻り値として、
保存したファイル名を受け取ることが出来ません
このため、ファイル名を初期値から変更したときに、その名前を得ることができません。

煩雑な処理をすれば、できない処理では無いと思うのですが、
割と、普通の処理なので、スマートなやり方があるに違いないと思い、
質問させていただきました。

よろしくお願いいたします

2 hits

▼

【74769】ダイアログをキャンセルした後の処理 3891 13/9/12(木) 15:10

≪