ExcelのChDirで二つのフォルダを指定しても一つめしか認識しない

質問

ExcelのChDirで二つのフォルダを指定しても一つめしか認識しない

いつもながらExcelのマクロについての質問です。

ChDir "C:\A"
Dim 開く As FileDialog
Set 開く = Application.FileDialog(msoFileDialogOpen)
If 開く.Show = -1 Then
　　開く.Execute
End If
Set 開く = Nothing

ChDir "C:\B"
Dim 保存 As FileDialog
Set 保存 = Application.FileDialog(msoFileDialogSaveAs)
If 保存.Show = -1 Then
　　保存.Execute
End If
Set 保存 = Nothing

これで"C:\A"のフォルダにあるファイルを一つ選び
そのファイルをそのまま
"C:\B"フォルダにコピーしようとしても
コピー先としては
同じ"C:\A"フォルダが表示されてしまいます。

コピー先に
"C:\B"フォルダが表示されるようにするためには
どうしたらよいのでしょう。

Excel2002およびExcel2003でやってみたのですが
同じ結果でした。

以上、よろしくお願いいたします。

回答No.1

jcctaira · ベストアンサー

ChDirは使用せずに、以下のように「InitialFileName」プロパティをセットすると思われます。

Dim 開く As FileDialog
Set 開く = Application.FileDialog(msoFileDialogOpen)
　　開く.InitialFileName = "C:\A\"
If 開く.Show = -1 Then
　　　　　　：
Dim 保存 As FileDialog
Set 保存 = Application.FileDialog(msoFileDialogSaveAs)
　　保存.InitialFileName = "C:\B\"
If 保存.Show = -1 Then
　　　　　　：

お礼

早速のご回答、ありがとうございます。
やってみたところ、うまくいきました。
本当に助かりました。
今後ともよろしくお願いいたします。

ちなみに、参考までにお聞きしたいのですが
ChDirが１回しか使えないというのは
なぜなのでしょう。
みなさんは滅多に使わないのですか？
わたしはこれしか知らなかったため
別の方法が発想できませんでした…

回答No.2

jcctaira

＞ ちなみに、参考までにお聞きしたいのですが
＞ ChDirが１回しか使えないというのは
＞ なぜなのでしょう。

Application.FileDialogは「ChDir」の影響はないような【仕様】だと思います。
確かに最初の一度だけ「ChDir」で「InitialFileName」が暗黙的に指定されたような
動きをしますね。
でもそれ以降オブジェクトをリセット（Set 開く = Nothing）しても、「ChDir」は
影響されず、最初だけの「ChDir」が残っているようです。

私は仕事で「FileDialog」は使用したことがないので、詳しくはありません。
説明できず申し訳ありません。
とにかく【仕様】通りに使うことをお勧めします。

お礼

改めてありがとうございます。
おかげさまで納得できました。

職場でのトラブルでしたので
明日、早速使わせていただきます。

これからも何かありましたら
よろしくお願いいたします。