Access VBA質問箱 IV

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

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


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

1989 / 9994

←次へ　｜　前へ→


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

cocoa - 09/12/10(木) 14:51 -


	引用なし

	パスワード

▼小僧様　皆様
Private Sub EventLogAccess_Click()
Dim txtData As String
Dim FNo As Long
Dim arrData As Variant
Dim i As Integer
Dim Con As New ADODB.Connection
Dim Rec As New ADODB.Recordset
Dim strFilePath As String
Dim returnValue As Long
　
　　'[ファイルを開く]ダイアログボックスを表示
　　WizHook.Key = 51488399

　　returnValue = WizHook.GetFileName( _
　　　　　　　　　　　　 0, "", "", "", strFilePath, "", _
　　　　　　　　　　　　 "CSVファイル (*.csv)|*.csv", _
　　　　　　　　　　　　 0, 0, 0, True _
　　　　　　　　　　　　 )
　　WizHook.Key = 0
　
　　'[キャンセル]がクリックされた場合は即終了
　　If returnValue <> 0 Then
　　　　Exit Sub
　　End If

　　Set Con = CurrentProject.Connection
　
　　Con.Execute "Delete From INPUTDATA"
　　Rec.Open "INPUTDATA", Con, adOpenDynamic, adLockOptimistic

　　FNo = FreeFile
　
　　Open strFilePath For Input As #FNo
　
　　'先頭～7行目までを読み飛ばす
　　For i = 1 To 8
　　　　Line Input #FNo, txtData
　　Next i
　
　　On Error GoTo ErrHndl
　　'エラーが発生した場合にデータのインポートをなかったこと(ロールバック)
　　'にするためにトランザクション処理として実行
　
　　Con.BeginTrans
　　
　　'実際のデータ部分(8行目)から
　　'EOF(End Of File)までループ
　　
　　　　Do Until EOF(FNo)
　　　　　　Line Input #FNo, txtData
　　　　　　arrData = Split(txtData, ",")
　　　　　
　　　　'先頭に半角スペースがあった場合はループを抜ける
　　　　　　If arrData(0) = " " Then
　　　　　　　　Exit Do
　　　　　　Else
　　　　　　　　Rec.AddNew
　　　　　　　　Rec("日付") = Split(arrData(2), " ")(0)
　　　　　　　　Rec("時間") = Split(arrData(2), " ")(1)
　　　　　　　　Rec("ComputerName") = arrData(4)
　　　　　　　　Rec("Description1") = Split(arrData(7), "　　")(0)
　　　　　　　　Rec("Description2") = Split(arrData(7), "　　")(1)
　　　　　　　　Rec.Update
　　　　　　End If
　　　　Loop
　
　　Close #FNo
　　Rec.Close
　　Set Rec = Nothing
　
　　Con.CommitTrans
　　Con.Close
　　Set Con = Nothing
　
　　DoCmd.OpenForm "TimeForm", acPreview
　　Exit Sub

ErrHndl:
　
　　Close #FNo
　　Con.RollbackTrans
　　Con.Close
　　Set Con = Nothing
　
　　MsgBox "以下のエラーが発生したためロールバックしました。" & vbCrLf & _
　　　　　　Err.Description, vbCritical
　　　
End Sub

小僧様に戴いたサンプルで、下記箇所が全角スペース2つになっておりました。
　　　　　　　　Rec("Description1") = Split(arrData(7), "　　")(0)
　　　　　　　　Rec("Description2") = Split(arrData(7), "　　")(1)
上記を半角スペース4つになおして、For文の箇所を1 to 8 へ変更した所、
CSVデータを編集せずにインポートする事ができました。
ただ、前の質問の通り、""が付いてしまいます。

For文でくるくるすると、csvデータは文字列になるのでしょうか？

連投申し訳ありませんが、宜しくお願い致します。

1,272 hits

▼

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