Makro zum einlesen beliebiger CSV-Datei

[Andi68]

Hallo Zusammen,

Vielleicht kann mir hier jemand helfen.
Ich bin in Sachen VBA völlig unerfahren und werde es wahrscheinlich auch nicht mehr benötigen.
Ich möchte in regelmäßigen Abständen Log-Dateien im CSV-Format mit unterschiedlichen Dateinamen, aber immer im gleichen Ordner einlesen und auswerten.
Das ist manuel auch kein Problem, und alle weiteren Schritte sind mit dem Makrorecorder auch kein Problem.
Ich bastel aber jetzt seit ein paar Stunden ohne Erfolg an dem Versuch, das per Makro durchzuführen;-((
Kann mir vielleicht jemand folgendes Makro-Recording im  Anhang beispielhaft nur so um bauen, dass ich statt der statischen CSV-Datei eine variable Datei auswählen kann?

Ich vermute, dass für den einen oder anderen hier im Forum das eine Sache von einer Minute ist.
Ich wäre Euch wirklich dankbar!!!
Gruß,
Andi


  beispielmakro.txt (Größe: 1,11 KB / Downloads: 4)

[RPP63]

Moin!
Wenn das Verzeichnis immer das Gleiche ist, dann .B, so:

Sub RPP()
Dim Pfad
ChDir "C:\Logdateien"
Pfad = Application.GetOpenFilename
If Pfad <> False Then
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Pfad, _
        Destination:=Range("$A$1"))
        '… 
    End With
End If
End Sub

Die … entsprechen Deinem bisherigen Code.

(hat aber doch etwas mehr als eine Minute gedauert …)

Gruß Ralf

[Andi68]

Hallo Ralf,

perfekt!!!!!

Ich danke Dir vielmals für die "mehreren" Minuten Zeitinvestition!!!!!!


Gruß,
Andi