Bequemer CSV/TXT-Import

.. das wohl mächtigste Werkzeug in Bill Gates' Büro-Sippe. Ob reine Formeln, PowerQuery oder VBA. Hier bleiben kaum Wünsche unerfüllt.
Benutzeravatar
d'r Bastler
Beiträge: 832
Registriert: 29. Aug 2022, 13:20
Hat sich bedankt: 224 Mal
Danksagung erhalten: 119 Mal

Bequemer CSV/TXT-Import

#1

Beitrag von d'r Bastler »

Moin allerseits,

XL lädt unter Daten > Aus Text/CSV zum sehr hübsch gemachten Import von Daten ein, die dann auch gleich in PowerQuery präsentiert werden. Problem dabei: Um z.B. Kommata in den Daten zu behalten, braucht es einigen Aufwand. Gesehen habe ich dazu schon dreizeilige Formeln ...

Einfacher geht es hiermit (Code in eine Tabelle):

Code: Alles auswählen

Option Explicit

Sub DirectImport()
Dim sFile As String, sFilter As String, sLine As String
Dim iFile As Integer, i As Integer

    sFilter = "CSV-Dateien(*.csv), *.csv"       'ANPASSEN
    ChDir "X:\"                                 'ANPASSEN - ggf. Ordnernamen ergänzen
    sFile = Application.GetOpenFilename(sFilter)
    iFile = FreeFile
    Cells.Clear
    
    Open sFile For Input As #iFile
        
        Do While Not EOF(iFile)
            i = i + 1
            Line Input #iFile, sLine
            Cells(i, 1) = sLine
        Loop
    
    Close #iFile
    
MsgBox "Done: " & i & " lines imported"
    
End Sub
Viel Spaß damit!

lg
d'r Bastler von den VBAsteleien.de
Win 10 + Office 2019 & Win11 + Office 2021 + Visio 2019 pro & macOS.X15 + Office2019pro & Android12 & XL365
Benutzeravatar
theos
Beiträge: 51
Registriert: 15. Sep 2022, 21:48
Hat sich bedankt: 4 Mal
Danksagung erhalten: 35 Mal
Kontaktdaten:

Re: Bequemer CSV/TXT-Import

#2

Beitrag von theos »

Noch einfacher gehts mit dem Legacy Importassistenten. :)
Den kann man inzwischen auch ganz einfach nutzen, in dem man die CSV im Editor öffnet, dort alles markiert und kopiert, dann in Excel über den Einfügen-Befehl mit dem Textimport-Assistenten einfügt.
Dort kannst du dann die Trennzeichen so einstellen, wie du sie brauchst - und bekommst ohne das PQ-Gedöns eine saubere Excel-Tabelle.
Aber, warum einfach, wenns umständlich geht?
Folgende Benutzer bedankten sich beim Autor theos für den Beitrag (Insgesamt 2):
d'r Bastler, thowe
Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste