|
▼小僧様 皆様
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データは文字列になるのでしょうか?
連投申し訳ありませんが、宜しくお願い致します。
|
|