アクセスと同フォルダの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 · ベストアンサー

Access2000以降に限られますが、
DoCmd.TransferText acImportDelim, "請求書csvインポート定義", _
"請求書", CurrentProject.Path & \請求書.csv", True

お礼

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

回答No.3

bonaron

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

回答No.2

noname#22222

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

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

お礼

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