|
また、質問させてください。
ダイアログを開いて、名前をつけて保存させます
ファイル名は、初期値のまま保存する場合も、変更する場合もあります
書式1
Target = "初期値"
Application.Dialogs(xlDialogSaveAs).Show arg1:=Target
とやっていたのですが、ダイアログをキャンセルしたときにも、
OKと同じ処理に走ってしまうので、分岐させたいのですが、
このやり方だと、キャンセルという戻り値が取れません。
書式2
Dim BlnRtn As Boolean
BlnRtn = Application.Dialogs(xlDialogPrint).Show
という記述を見つけたのですが、この書式だと、 arg1:=Target の部分が
VBEにコンパイルエラーと返されてしまいます。
書式3
Dim BlnRtn As Variant
BlnRtn= IIf(Application.Dialogs(xlDialogSaveAs).Show(ARG1:=Target), "保存", "キャンセル")
と、true/falseを見させようとすると、今度は、戻り値として、
保存したファイル名を受け取ることが出来ません
このため、ファイル名を初期値から変更したときに、その名前を得ることができません。
煩雑な処理をすれば、できない処理では無いと思うのですが、
割と、普通の処理なので、スマートなやり方があるに違いないと思い、
質問させていただきました。
よろしくお願いいたします
|
|