ExcelVBAでファイルを開くフォルダ指定方法

質問

ExcelのVBAを用いて実験データのcsvファイルをまとめるプログラムを書いています．
肝心のプログラムはほぼできています．
しかし
OpenfileName = Application.GetOpenFilename("CSVファイル,*.csv?")
としたときに開かれるフォルダ（ファイルを指定するフォルダ）がカレントフォルダ？となっております．

実行するExcel（VBA入り）と実験データが下記のパスにあったとして
C:\Users\ABC\Documents\Data\110302\
カレントフォルダはなぜかマイドキュメントがデフォルトになってしまいます．
C:\Users\ABC\Documents\

階層移動できるので問題なくもないのですが，一々階層移動するのも面倒なので修正したいと考えております．
そこで
(1)プログラム実行直前にカレントフォルダを実行するExcel(VBA入り)の位置に変更する方法
(2)カレントフォルダと関係なく実行するExcel(VBA入り)があるフォルダを開く方法
どちらかで対処できると考えたのですがその方法が見つかりません．
（ちなみに実行するExcel(VBA入り)の位置は動かすものとするので絶対パスでの指定はなしとします）
どなたかご教授お願いします．

回答No.1

mt2008 · ベストアンサー

ChDir　を使い、カレントディレクトリを変更します。
念のためにカレントドライブも明示的に指定した方が良いでしょう。
Application.GetOpenFilename の前に以下の2行を加えて見てください。

ChDrive　="C"
ChDir "C:\Users\ABC\Documents\Data\110302\"

お礼

ご回答ありがとうございます．
ただ
＞（ちなみに実行するExcel(VBA入り)の位置は動かすものとするので絶対パスでの指定はなしとします）
と書いてあります通り，絶対パスでの指定はしたくないのです．
C:\Users\DEF\Documents\Data\120503\
の位置にある場合でも，プログラムを書き換える必要なく動かせるようにしたいのです．

補足

お二人の回答から自己完結しました．
ChDir ThisWorkbook.Path
とすればいいのですね．
お二方ともありがとうございました．

回答No.2

nora1962

ChDir "初期表示したいフォルダ名"
OpenfileName = Application.GetOpenFilename("CSVファイル,*.csv?")

でいいような気がします。
必要があればChDrive　"D" とかも。

お礼

ご回答ありがとうございます．
＞ChDir "初期表示したいフォルダ名"
試してみましたが実行時エラー'76'パスが見つかりませんとなりました．
また実際に使用するフォルダは毎回変わるため，現在Excelのあるフォルダを習得する方法がわからないと使えませんorz

補足

お二人の回答から自己完結しました．
ChDir ThisWorkbook.Path
とすればいいのですね．
お二方ともありがとうございました．