Office: (Office 2010) Csv-Datei mit VBA einlesen und in einer access Tabelle einfügen

hallo, ich möchte eine Csv-Datei per VBA in eine Access Tabelle einfügen. Die Csv-Datei besteht aus Runden und Streckenzeiten.
Das sind die Werte die in der Csv-Datei stehen ( hier nur ein beispiel):
1,00;1,01;1,02;1,03;4,06
2,00;2,01;2,02;2,03;8,06
die ersten vier Zeiten sind die Rundenzeiten und die letzten die Streckenzeiten.
aber so ganz will das nicht funktionieren :D Es ist das erste mal das ich mit VBA programmiere. deswegen bitte ich um Verständnis.
bei mir kommt die ganze Zeit "Fehler beim kompilieren : Erwartet : Datenfeld

Code:

Private Sub Befehl22_Click()

    Const DatNam = "C:\Users\win_7_64bit\Desktop\techniker\Datenbank\Rennen\Rennen1.csv"
    Const TabNam = "Rennzeiten_Import"
    
    Dim AktDB   As DAO.Database
    Dim ds      As DAO.Recordset
    Dim Zeile   As String
    Dim SZeile  As Date
    Dim SZeile_1  As Date
    Dim IDatNum As Integer
    
    Set AktDB = CurrentDb
    Set ds = AktDB.OpenRecordset(TabNam)
    IDatNum = FreeFile
    Open DatNam For Input As IDatNums
    While Not EOF(IDatNum)              ' bis Dateiende
        Line Input #IDatNum, Zeile      ' Eine Zeile einlesen
        
        SZeile = Split(Zeile, ";")      ' aufsplitten der Ersten Zeile
        SZeile_1 = Split(SZeile(0), " ")   ' hier meckert der immer bei SZeile(0) 
        
        With ds
            .AddNew
            !Runde1 = SZeile_1(0)
            !Runde2 = SZeile_1(1)
            !Runde3 = SZeile_1(2)
            !Runde4 = SZeile_1(3)
            !Streckenzeit = SZeile_1(4)
            .Update
        End With
   Wend
        
End Sub

die Split funktion hab ich mir aus dem internet gezogen. So wie ich das Verstanden hab, wird beim ersten Split() die Werte in der ersten Zeile per simicolon getrennt werden. Ich weiß aber nicht wofür ich den zweiten Split benötige.
ich hoffe ihr Könnt mir bei dem Code weiterhelfen. Wenn ihr noch andere Fehler findet bitte direkt schreiben.
Vielen Dank im voraus.

 

Hallo,

Code:

[COLOR="#FF0000"][B]Option Explicit[/B] 'Diese Zeile ist als 1. Zeile jedes Moduls [U]sehr[/U] empfehlenswert - erleichtert die Fehlersuche ungemein![/COLOR]
Private Sub Befehl22_Click()

    Const DatNam = "C:\Users\win_7_64bit\Desktop\techniker\Datenbank\Rennen\Rennen1.csv"
    Const TabNam = "Rennzeiten_Import"
    
    Dim AktDB   As DAO.Database
    Dim ds      As DAO.Recordset
    Dim Zeile   As String
    Dim SZeile[COLOR="#FF0000"]()[/COLOR]  As Date    [COLOR="#0000CD"]'Split(...) benötigt ein dynamisches Array für seine Rückgabewerte[/COLOR]
    Dim SZeile_1[COLOR="#FF0000"]()[/COLOR]  As Date  [COLOR="#0000CD"]'Split(...) benötigt ein dynamisches Array für seine Rückgabewerte[/COLOR]
    Dim IDatNum As Integer
    
    Set AktDB = CurrentDb
    Set ds = AktDB.OpenRecordset(TabNam)
    IDatNum = FreeFile
    Open DatNam For Input As IDatNum  [COLOR="#FF0000"]'Hier ist bei IDatNums das "s" am Schluss zu entfernen![/COLOR]
    While Not EOF(IDatNum)              ' bis Dateiende
        Line Input #IDatNum, Zeile      ' Eine Zeile einlesen
        
        SZeile = Split(Zeile, ";")      ' aufsplitten der Ersten Zeile
        SZeile_1 = Split(SZeile(0), " ")   ' hier meckert der immer bei SZeile(0)[COLOR="#FF0000"], weil du hier ein Array verwendest, aber keines im DIM deklariert hast! [/COLOR]
        
        With ds
            .AddNew
            !Runde1 = SZeile_1(0)
            !Runde2 = SZeile_1(1)
            !Runde3 = SZeile_1(2)
            !Runde4 = SZeile_1(3)
            !Streckenzeit = SZeile_1(4)
            .Update
        End With
   Wend
   [COLOR="#FF0000"]Close #IDatNum   '[U]Muss[/U] gemacht werden, sonst bleibt die Datei geöffnet[/COLOR] 
   [COLOR="#0000CD"]Set ds = Nothing  'Aufräumvorbereitung für Garbage-Collection [U]sollte[/U] gemacht werden[/COLOR]
   [COLOR="#0000CD"]Set AktDB = Nothing[/COLOR]   
End Sub

ich verstehe leider nicht wirklich die zentrale Passage deines Codes:

1) Du liest mittels LINE INPUT... 1 Zeile in die String-Variable Zeile ein.

2) Dann möchtest du diese Zeile mit Split(Zeile,";") an den Semicola-Stellen aufsplitten und einer dynamischen Array-Variablen SZeile() zuweisen, wobei die einzelnen Array-Elemente vom Datentyp "DATE" sein sollen. Damit das gelingt musst du diese Variable auch als dynamische Array-Variable deklarieren: DIM SZeile() As Date

3) Jetzt kommt die Zeile, die ich überhaupt nicht verstehe: ein nochmaliges Split(SZeile(0)," "): Das hieße doch, dass du aus dem in der Vorzeile befüllten Array SZeile(0), SZeile(1), ..., SZeile(4), das die 5 Datums/Uhrzeitangaben enthält, das Array-Element SZeile(0) hernimmst, es implizit in einen String verwandelst und darauf nochmals die Split-Funktion anwendest, diesmal jedoch mit dem " "-Zeichen als Trennzeichen, und das Ganze einer weiteren dynamischen Array-Variablen SZeile_1() zuweist.

4) Ich vermute eher, dass diese Zeile unter 3) entfernt gehört und die Zeilen nach .AddNew entsprechend korrigiert gehören auf
!Runde1 = SZeile(0)
....
!Streckenzeit = SZeile(4)