Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1996 / 9994

←次へ　｜　前へ→


	【11278】Re:ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下にあるtxtをインポートしたい。

cocoa - 09/12/10(木) 9:19 -


	引用なし

	パスワード

▼小僧様　皆様
>269,xxx,20091209 190000,aaaa,bbb,CP-01,0,1　　kozo
>270,yyy,20091209 190001,aaaa,bbb,CP-02,0,2　　cocoa
>271
>271________________________________________________(_は半角スペース）
>271,　 ,　　　　　　　 ,　　,　 ,　　 , ,　　　　　
>271,,,,,,,,
271行目(最終行)の1列目には半角スペースが先頭に一つ入っておりました！！
2列目以降はなにもデータはありません。空白です。,もありません。

Sub Test()
Dim txtData As String, FNo As Long, arrData, i As Integer
Dim Con As New ADODB.Connection, Rec As New ADODB.Recordset
　
Set Con = CurrentProject.Connection
Rec.Open "INPUTDATA", Con, adOpenDynamic, adLockOptimistic
　
FNo = FreeFile
Open "C:\Documents and Settings\UserName\デスクトップ\EventLogAccess\eventlog\20091209.csv" For Input As #FNo
　　'ファイルの1行目の項目名部分を読み込む(何も処理しない)
　　Line Input #FNo, txtData

　　　
　　　　'実際のデータ部分(2行目)からの処理
　　　　Do While Not EOF(FNo)
　　　　　　Line Input #FNo, txtData
　　　　　　arrData = Split(txtData, ",")
　　　　　　　　If UBound(arrData) = -1 Then
　　　　　　　　　　Exit Do
　　　　　　　　End If
　　　　　　　　Rec.AddNew
　　　　　　　　　　'引用符を削除してからフィールドに値を代入する
　　　　　　　　　　Rec("Date") = Split(arrData(2), " ")(0)←この部分でインデックスエラーとなります。
　　　　　　　　　　Rec("Time") = Split(arrData(2), " ")(1)
　　　　　　　　　　Rec("ComputerName") = arrData(4)
　　　　　　　　　　Rec("Description1") = Split(arrData(7), "　　")(0)
　　　　　　　　　　Rec("Description2") = Split(arrData(7), "　　")(1)
　　　　　　　　　　
　　　　　　　　Rec.Update
　　　　　　　　
　　　　Loop
　　　　　
　　Close #FNo
　　　
End Sub

インデックスエラーについては、最終行をみに行ったときに、空白なので、Split関数のインデックスが間違っている。とエラーになると予想致しました。

インデックスエラーについては解決致しました。

説明不足で申し訳ないです。
宜しくお願い致します。

1,025 hits

▼

【11255】ｺﾏﾝﾄﾞﾎﾞﾀﾝを押下すると、指定ﾌｧﾙﾀﾞ下にあるtxtをインポートしたい。 cocoa 09/12/4(金) 16:13