|
初心者 さん、こんにちは
初心者さんが、されたい処理をするには、
「DefaultFilePath」ではなく、「ChDir」を使えばいいと思います。
こんな感じ
ChDir "C:\WINDOWS\デスクトップ"
Ofname = Application.GetOpenFilename(fileFilter:="取り込みファイル(*.csv),*.csv")
これで、カレントフォルダを、直前に指定できるので、
ファイルを開くダイヤログの、デフォルトのフォルダが、任意のフォルダにできると思います。
「DefaultFilePath」は、私は知らなかったのだけど、
これはどうやら、エクセルの「ツール」−「オプション」のなかの
「全般」の「カレントフォルダ名」を設定/取得するもののようです。
それから、
>Ofname = Application.GetOpenFilename(fileFilter:="取り込みファイル.csv),*.csv")
この行、間違ってまっせ。
ここは
Ofname = Application.GetOpenFilename(fileFilter:="取り込みファイル(*.csv),*.csv")
ですわ♪
|
|