質問: "data" & right(.range("a2").value, 8) .copy end with chdrive "f" chdir "f:\data_auto" application.dialogs(xldialogsaveas).show arg1:="dnr.txt", arg2:=3 activewindow.close (false) end sub これでたいていは大丈夫なのですが、なかには共有サーバーのドライブをfではなく、gとかeとかに設定しているひとがいて、失敗します。 chdrive "f" chdir "f:\data_auto" のfを、それぞれの方に合わせて書き換えるか、あるいは社内でfに統一すればすむことですが、どちらも厄介です。 "\\fxhogehoge\s999\data_auto" というパスは変わらないので、これから、各端末で設定したドライブ名を取得するか、あるいは、application.dialogsで自動的にこのドライブとディレクトリを指定ことはできないものでしょうか?
回答: 安直と言えば安直ですが 変更前: application.dialogs(xldialogsaveas).show arg1:="dnr.txt", arg2:=3 変更後: application.dialogs(xldialogsaveas).show arg1:="\\fxhogehoge\s999\data_auto\dnr.txt", arg2:=3 などで。