csv. mit VBA in Access datenbank importieren

[erik SN]

hab hier eine schleife gefunden bzw. ein wenig umgebaut die ein .csv file in eine Access datenbank einliest
jedoch schneidet es je nach bereich von "intZ" in der schleife immer die letzte spalte ab, leider bin ich
noch nicht genug in die Materie eingestiegen um das richtig umzu bauen...theoretisch brauch ich den
bereich von 0-40 jedoch kommt dann die fehler meldung: ungültiges Argumment X(

vielleicht hat jemand von euch eine passende idee der sich in VBA besser auskennt
eventuel gibt es ja auch eine möglichkeit mit DOCmd.TransferText....
thx erik SN

Private Sub cmd_inputBO11_Click()

Dim rst As New ADODB.Recordset
Dim strZeile As String
Dim intZ As Integer
Dim intPos1 As Integer
intZ = 0

'On Error GoTo fehler
rst.Open "tbl_BO11", CurrentProject.Connection, , adLockOptimistic
Open "C:xxx.csv" For Input As #1

Do While Not EOF(1)
DoCmd.Hourglass True

Line Input #1, strZeile
rst.AddNew
For intZ = 0 To 40
rst.Fields(intZ) = Left(strZeile, InStr(strZeile, ";") - 1)
intPos1 = InStr(strZeile, ";") + 1
strZeile = Mid(strZeile, intPos1, Len(strZeile) - InStr(strZeile, ";"))
Next intZ
rst.Update

Loop
DoCmd.Hourglass False
Close #1
rst.Close
Exit Sub

fehler:
MsgBox Err.Number & " " & Err.Description
Close #1
End Sub

Das problem liegt an der .csv da am ende der zeile kein ";" steht gibt es hierzu vielleicht
direkt eine Idee wie is es mache ohne das ich das ";" manuell in die csv eintragen muss?

 

[0mega]

hm. früher konnte man csv-dateien in basic problemlos mit input # einlesen (glaub ich). evtl kannst du mit..

if not right$(strzeile,1) = ";" then strzeile=strzeile+";"

an geeigneter stelle eingefügt etwas anfangen. das sollte prüfen ob am ende ein semikolon sitzt & bei bedarf eins anfügen. packs einfach mal unter's line input und schau nach ob's läuft, programmierung in der theorie is nämlich nich so mein ding xD

viel glück ^^

 

[erik SN]

naja ich hab jetzt einfach die letzte spalte nochma eingefügt nach der schleife des geht dann auch.....der scheiß vba dreck geht ma echt am senkl hey -.-

trotzdem danke

das eigntl. Problem ist wohl das ich am ende der Zeile kein Semikolon stehen habe.
Gibt es vielleicht eine möglichkeit das in jeder Zeile automatisch ans ende des strings zu schreiben

 

[0mega]

hm.. das sollte mein code eigentlich tun.. hab mich wahrscheinlich blöd ausgedrückt
naja, harter arbeitstag, bisschen wirr im kopf und dann produzier ich schonma müll

evtl gehts ja so:

Private Sub cmd_inputBO11_Click()

Dim rst As New ADODB.Recordset
Dim strZeile As String
Dim intZ As Integer
Dim intPos1 As Integer
intZ = 0

'On Error GoTo fehler
rst.Open "tbl_BO11", CurrentProject.Connection, , adLockOptimistic
Open "C:xxx.csv" For Input As #1

Do While Not EOF(1)
DoCmd.Hourglass True

Line Input #1, strZeile
If Not Right$(strZeile,1) = ";" Then strZeile=strZeile+";"
rst.AddNew
For intZ = 0 To 40
rst.Fields(intZ) = Left(strZeile, InStr(strZeile, ";") - 1)
intPos1 = InStr(strZeile, ";") + 1
strZeile = Mid(strZeile, intPos1, Len(strZeile) - InStr(strZeile, ";"))
Next intZ
rst.Update

Loop
DoCmd.Hourglass False
Close #1
rst.Close
Exit Sub

fehler:
MsgBox Err.Number & " " & Err.Description
Close #1
End Sub

an zeile 17 sollte mein codeschnippsel nämlich gehn, habs aber nich getestet.. und naja, programmieren in der theorie is nich mein ding ^^ viel erfolg

achja noch was.. eventuell muss man bei VBA das $-zeichen bei "Right$()" weglassen. gehts dann immer noch nich, mag ich VBA auch nich mehr

mfg.