ACCESS2013で複数ファイルのインポート

質問

お世話になっております。

環境は
windows7
ACCESS2013

ACCESS2013を使って特定フォルダにある、AAA1.csv AAA2.csv・・・・とファイル名下一桁が連番になっているデータをACCESS2013のT_AAAという名前のテーブルにインポートをさせたいです。

テーブルのフィールド名やデータ型はどのファイルも同一です。
色々とネットで検索したのですが、あまりに初心者レベルのために理解できずにおります。
アドバイスをお願いいたします。

ネットで調べて真似して書いてみましたがエラーになります。
DoCmdでエラーになります。
どこが悪いのかさっぱり解りません。

Private Sub コマンド0_Click()
Dim MyPath As String
Dim MyCSV As String

MyPath = "C:\Users\OOO_OOO\Desktop\test\AAA*.csv"
MyName = Dir(MyPath, vbNormal)

Do While MyName <> ""
DoCmd.TransferText acImportDelim, "T_AAA", _
"C:\Users\OOO_OOO\Desktop\test\" & MyName, False
MyName = Dir
Loop
End Sub

大変申し訳ございませんが、アドバイスをお願い申し上げます。

回答No.1

mitarashi · ベストアンサー

「,」が一個足りないのでは？
式.TransferText(TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodePage)
の、 SpecificationName（スキーマファイル名）の部分です。詳しくはヘルプをご覧下さい。
たしかに、「'実行時エラー '31519':このファイルをインポートできません。」では何が悪いのか分かりませんね。

試していると、 'AAA1 - コピー.csvbak という名前のファイルもヒットしてインポートエラーになりました。バグ？ご注意下さい。
（当方Win7Home-64bit,Acc2010-32bitです）

Subtest()
Dim MyPath As String, MyName As String

MyPath = GetDesktopPath & "\test" & "\"
MyName = Dir(MyPath & "AAA*.csv", vbNormal)
Do While MyName <> ""
DoCmd.TransferText acImportDelim, , "T_AAA", MyPath & MyName, False
MyName = Dir
Loop
End Sub

Private Function GetDesktopPath() As String
Dim wScriptHost As Object, strInitDir As String
Set wScriptHost = CreateObject("Wscript.Shell")
GetDesktopPath = wScriptHost.SpecialFolders("Desktop")
Set wScriptHost = Nothing
End Function

お礼

mitarashi様

有り難うございます。