Wie importiert man eine CSV-Datei in ein Arbeitsblatt?

Es mag einfach sein, ein Arbeitsblatt als CSV-Datei zu importieren oder zu speichern, aber haben Sie jemals versucht, eine CSV-Datei in ein Arbeitsblatt zu importieren? In diesem Artikel werde ich Ihnen einige interessante Methoden vorstellen, um diese Aufgabe zu bewältigen.

CSV-Datei mit dem Textimport-Assistenten in ein Arbeitsblatt importieren

CSV-Datei mit Kutools für Excel in ein Arbeitsblatt importieren

CSV-Datei mit VBA-Code in ein Arbeitsblatt importieren

CSV-Datei mit dem Textimport-Assistenten in ein Arbeitsblatt importieren

Normalerweise können Sie in Excel die Funktion Textimport-Assistent anwenden, um die CSV-Datei in ein Arbeitsblatt zu importieren. Bitte gehen Sie wie folgt vor:

1. Aktivieren Sie das Arbeitsblatt, in das Sie die CSV-Datei importieren möchten, und klicken Sie dann auf Daten > Aus Text, siehe Screenshot:

2. Wählen Sie im Fenster Textdatei importieren die CSV-Datei aus, die Sie importieren möchten, siehe Screenshot:

3. Klicken Sie dann auf die Schaltfläche Importieren. Im ersten Schritt des Textimport-Assistenten wählen Sie die Option Trennzeichen aus, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche Weiter >. Im zweiten Schritt des Assistenten aktivieren Sie unter der Option Trennzeichen das Kontrollkästchen Komma, siehe Screenshot:

5. Klicken Sie weiter auf die Schaltfläche Weiter >. Im dritten Schritt des Assistenten wählen Sie unter dem Abschnitt Spaltendatenformat die Option Text aus, und Sie sehen, dass die erste Spalte hervorgehoben wird. Halten Sie dann die Umschalttaste gedrückt, um alle Spalten hervorzuheben. Siehe Screenshot:

6. Klicken Sie dann auf die Schaltfläche Fertig stellen. Im erscheinenden Dialogfeld Daten importieren wählen Sie den Speicherort aus, an den Sie die Daten einfügen möchten, siehe Screenshot:

7. Klicken Sie auf die Schaltfläche OK, und die CSV-Datei wird sofort in das Arbeitsblatt importiert.

CSV-Datei mit Kutools für Excel in ein Arbeitsblatt importieren

Wenn Sie Kutools für Excel haben, können Sie mit der Funktion Datei am Cursor einfügen schnell eine CSV-Datei, Textdatei, Excel-Datei oder PRN-Datei in das aktuelle Arbeitsblatt importieren.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Aktivieren Sie ein Arbeitsblatt, in das Sie die CSV-Dateidaten importieren möchten.

2. Klicken Sie dann auf Kutools Plus > Importieren & Exportieren > Datei am Cursor einfügen, siehe Screenshot:

3. Im Dialogfeld Datei am Cursor einfügen führen Sie bitte die folgenden Optionen aus:

(1.) Klicken Sie auf die Schaltfläche, um eine Zelle auszuwählen, in der Sie die Daten ausgeben möchten;

(2.) Klicken Sie dann auf die Schaltfläche Durchsuchen, um das Fenster Eine Datei zum Einfügen an der Cursorposition auszuwählen zu öffnen;

(3.) Wählen Sie im erscheinenden Fenster CSV-Dateien aus der Dropdown-Liste unten rechts aus, und wählen Sie dann die CSV-Datei aus, die Sie importieren möchten.

4. Nachdem Sie die CSV-Datei angegeben haben, klicken Sie auf die Schaltfläche Öffnen, um zum vorherigen Dialogfeld zurückzukehren, und klicken Sie dann auf OK, um die CSV-Datei zu importieren. Die CSV-Datei wird an der gewünschten Stelle eingefügt.

Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!

CSV-Datei mit VBA-Code in ein Arbeitsblatt importieren

Wenn Sie die obige Methode Schritt für Schritt mühsam finden, kann der folgende VBA-Code dieses Problem ebenfalls lösen.

1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: CSV-Datei in ein Arbeitsblatt importieren:

Sub ImportCSVFile()
'Updateby Extendoffice
    Dim xFileName As Variant
    Dim Rg As Range
    Dim xAddress As String
    xFileName = Application.GetOpenFilename("CSV File (*.csv), *.csv", , "Kutools for Excel", , False)
    If xFileName = False Then Exit Sub
    On Error Resume Next
    Set Rg = Application.InputBox("please select a cell to output the data", "Kutools for Excel", Application.ActiveCell.Address, , , , , 8)
    On Error GoTo 0
    If Rg Is Nothing Then Exit Sub
    xAddress = Rg.Address
    With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und wählen Sie die CSV-Datei aus, die Sie im erscheinenden Kutools für Excel-Dialogfeld importieren möchten, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche Öffnen und auf eine Zelle, in die Sie die importierten Daten einfügen möchten, siehe Screenshot:

5. Klicken Sie anschließend auf OK, und die spezifische CSV-Datei wurde in das Arbeitsblatt importiert.