アクセスと同フォルダのCSVファイルをインポートしたい

初心者で質問がわかりにくかったらすみません。
アクセスで、CSVファイルを取込みたいです。
下記のような構文で、取込む方法はわかりました。

Private Sub コマンド62_Click()
DoCmd.TransferText acImportDelim, "請求書csvインポート定義", _
"請求書", "C:\Documents and Settings\user3\デスクトップ\受付番号アクセス\これ！\請求書.csv", True
End Sub

しかし、これだと常に取込むCSVファイルが同じ場所ではないと、いけないので、他のPCで使用するとエラーになってしまいます。
なので、他のPCに移した場合でも、いちいち構文を修正せずに、
この構文が作成してあるアクセスと同フォルダの”請求書.csv”というファイル名のCSVデータを取込めるような、構文が知りたいです。

お手数ですが、教えてください。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2006/12/18 12:20

Access2000以降に限られますが、

DoCmd.TransferText acImportDelim, "請求書csvインポート定義", _
"請求書", CurrentProject.Path & \請求書.csv", True

この回答へのお礼

出来ました！ありがとうございます。
ここに質問すると、周りの人に聞くより最速で的確なお返事が
頂けるので大変助かってます。本当にすごい人がおおいですね。

お礼日時：2006/12/18 13:21

No.3 回答者： bonaron 回答日時： 2006/12/18 12:40

No1です。

修正ミスがありました。
DoCmd.TransferText acImportDelim, "請求書csvインポート定義", _
"請求書", CurrentProject.Path & "\請求書.csv", True

No.2 回答者： noname#22222 回答日時： 2006/12/18 12:26

　　' ----------------------------

　　'　カレントディレクトリの変更
　　' ----------------------------
　　strCurrentDir = CurrentProject.Path
　　ChDrive strCurrentDir
　　ChDir strCurrentDir
　　' -----------------------
　　'　INIファイルの呼び込み
　　' -----------------------
　　If FileExists("SQLCNN.INI") Then
　　　　strCnnTexts() = FileReadArray("SQLCNN.INI")

このように、カレントディレクトリの変更を行うといいです。

この回答へのお礼

出来ました！！すごく助かりました(^^)ありがとうございました。

お礼日時：2006/12/18 13:22