AccessでCSVをインポートしたい(VBA)

質問

お世話になります。AccessVBA暦2週間の初心者です。
AccessでCSVをインポートできたらいいなと思い
↓下のサイトにあるVBAサンプルを参考にして以下のようにプログラミングをしました。
http://memo.bz/access/advance/csvinpsam

Public Function SplitTest()
On Error GoTo myError

Dim dbs As Database
Dim rst As Recordset
Dim varData As Variant
Dim lngFileNum As Long
Dim strData As String
Dim xSQL As String

FileName = TestGetFileName

'入力元CSVファイルを開く
lngFileNum = FreeFile()
Open FileName For Input As #lngFileNum

'テーブルを開く
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Data")

'CSVファイルの全レコードを読み込むループ
Do Until EOF(lngFileNum)

'CSVファイルより１件分を読み込み
Line Input #lngFileNum, strData
'カンマで区切って配列に代入
varData = Split(strData, ",", , vbTextCompare)
'各フィールドデータをテーブルに追加
With rst
.AddNew
![Code1] = varData(0)
![Code2] = varData(1)
![TS] = varData(2)
![PM] = varData(3)
![金額] = varData(4)
![摘要] = varData(5)
![メモ] = varData(6)

.Update
End With
Loop

rst.Close
Close #lngFileNum

MsgBox "データの取り込みが終了しました"

Exit Function

myError:
MsgBox "ファイル名を指定してください"

End Function

'CSVファイル選択

Function TestGetFileName() 'ファイル選択
Const ENABLE_WIZHOOK = 51488399
Const DISABLE_WIZHOOK = 0
Dim strFile As String
Dim intResult As Integer
WizHook.Key = ENABLE_WIZHOOK ' WizHook 有効化
intResult = WizHook.GetFileName( _
0, "", "", "", strFile, "", _
"すべてのファイル (*.*)|*.*", _
0, 0, 0, True _
)

WizHook.Key = DISABLE_WIZHOOK ' WizHook 無効化
TestGetFileName = strFile
End Function

ダイアログは普通に開けるのですがインポートが出来ず「ファイル名を指定してください」
というメッセージボックスが出ます。
弄っている部分は ![フィールド1] = varData(0)を ![Code1] = varData(0)にしているぐらいです。
何が悪いのか皆目見当がつきません。
こんな初心者でございますがご教授のほどよろしくお願いします。
（ヒントでも構いません）
説明不足等ございましたらご指摘のほどよろしくお願いします。

回答No.3

piroin654 · ベストアンサー

No2です。本来は実行すると真っ先に
「変数の宣言がされていません」という
エラーが出るはずです。

Option Explicit

は、コード表の「ツール」から「オプション」を選択し、
「編集」の項の「変数の宣言を強制する」にチェックが
入っているか確認してください。

お礼

piroin654さん
分かりやすい回答ありがとうございます。

以下のように変更しました

Option Compare Database
Option Explicit

Public Function SplitTest()

'On Error GoTo myError

Dim dbs As Database
Dim rst As Recordset
Dim varData As Variant
Dim lngFileNum As Long
Dim strData As String
Dim xSQL As String
Dim FileName As String

FileName = TestGetFileName

'入力元CSVファイルを開く
lngFileNum = FreeFile()
Open FileName For Input As #lngFileNum
------------------以下略------------------

csvファイルには

00210,137,1,0,700,ゲンキンAAAAA,ゲンキンイコウ

というデータが1件入っておりますが
実行した際、「このコレクションには項目がありません。」
と出てしまいますね。
ここから先は自分の力で頑張りたいなと思います。

補足

と思ったら設定ミスだったようです。
無事解決いたしました本当にありがとうございました。

2011年8月1日　20：03　筆

回答No.2

piroin654

FileName が変数宣言されていません。

Public Function SplitTest()

で

Dim FileName As String

を追加。

コードを書くときは、必ず

Option Compare Database
Option Explicit

をモジュールの先頭に設定しておくこと。

回答No.1

o_chi_chi

>Set rst = dbs.OpenRecordset("Data")

追加しようとしているテーブル名が"Data"でないのでは？

お礼

o_chi_chiさん　早速の回答ありがとうございます。
開くテーブル名は一致してたので問題はないかと思います。