CSV-Dateien importieren und mit VBA in Tabellen konvertieren

Automatisieren Sie den Prozess des Importierens von CSV-Datendateien und deren Ausgabe in Tabellen mithilfe von Excel-VBA-Skripten.

Das VBA-Skript zum Öffnen einer Datei, Erstellen einer Tabelle und Ausgabe lautet wie folgt. (Teilweise zitiert unten)

Ändern Sie “C:\pg\node_tmp\out.csv” im Code unten in einen beliebigen Dateinamen und Dateipfad, und ändern Sie “Sheet1” in den angegebenen Blattnamen.

Sub openfile()

    Set ws = ActiveWorkbook.Sheets("Sheet1")
    With ws.QueryTables.Add(Connection:="TEXT;" & "C:\pg\node\_tmp\out.csv", Destination:=ws.Range("A1"))
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .Refresh
    End With

    On Error GoTo nothingtodelete
        Sheets("Data").QueryTables(1).SaveData = False
        Sheets("Data").QueryTables.Item(1).Delete
nothingtodelete:

End Sub

Das folgende Programm ist ein Beispiel für ein VBA-Skript, das beim Öffnen einer mit dem folgenden VBA in Excel verknüpften Datei beim Start automatisch das folgende Programm ausführt und eine CSV-Datei liest. Das folgende VBA-Programm wird unter ThisWorkbook im Projekt gespeichert.

Sub openfile()

    Set ws = ActiveWorkbook.Sheets("Sheet1")
    With ws.QueryTables.Add(Connection:="TEXT;" & "C:\pg\node\_tmp\out.csv", Destination:=ws.Range("A1"))
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .Refresh
    End With

    On Error GoTo nothingtodelete
        Sheets("Data").QueryTables(1).SaveData = False
        Sheets("Data").QueryTables.Item(1).Delete
nothingtodelete:

End Sub

Private Sub Workbook_Open()

    Call openfile
    Call colorize

    Dim dummy As Integer
    dummy = 0
End Sub

Beachten Sie, dass einige oder alle VBA-Programme in diesem Artikel aus dem Folgenden zitiert sind.

vba - Is there a way to import data from .csv to active excel sheet? - Stack Overflow User hatchnet - Stack Overflow

Referenz:

vba - Is there a way to import data from .csv to active excel sheet? - Stack Overflow