Access VBA質問箱 IV

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

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


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

1999 / 9994

←次へ　｜　前へ→


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

cocoa - 09/12/9(水) 14:05 -


	引用なし

	パスワード

▼小僧様　皆様
>最終行(271行目)は
>改行コードだけがあるのでしょうか…。
うまく説明できなくて申し訳ないです。
改行コードだけかどうかはわからないのですが、データはないです。
フィールド１　フィールド２　...フィールド8まであります。
1
2
.
.
.
270 データあり　データあり　...データあり
271 データなし　データなし　...データなし

でもALT + A で選択すると、271行目フィールド8まで選択されます。

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)'←(yyyy/mm/dd__00:00:00)
　　　　　　　　　　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

上記プログラムを実行すると、270行目までのデータはインポートされておりました。が、インデックスエラーがでます。

宜しくお願い致します。

982 hits

▼

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