Eingabeaufforderung in Marko einbauen

Hi,

ich möchte das eine CSV Datei mit einem Makro automatisch importiert und anschließend formatiert wird.
An und für sich kein Problem, nur ist bei der Aufnahme des Makros der Pfad zur CSV Datei natürlich absolut angegeben worden.
Ich würde nun gerne noch eine Eingabeaufforderung hinzufügen wo der User den Pfad zur Datei selbst eingeben kann bzw. das Marko so bearbeiten, dass es ist diesen Schritt nicht automatisch macht, sondern die Wahl der CSV Datei noch dem User überlässt. Versteht ihr ?!

Ums zu verdeutlichen, entweder soll dieser Teil des Makros über eine Eingabeaufforderung abgefangen werden:

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Downloads\2012-12.csv", Destination:=Range("$A$1"))  
        .Name = "2012-12"  
        .FieldNames = True
        ......

oder eben das Marko das gar nicht automatisiert machen lassen. Ich habe weder von der einen Lösung noch von der anderen eine Ahnung

Danke im Voraus!
cphowdy

Please also mark the comments that contributed to the solution of the article

Content-Key: 196308

Url: https://administrator.de/contentid/196308

Printed on: April 25, 2024 at 04:04 o'clock

4 Comments

Latest comment

Hallo cphowdy!

In etwa so:

    Dim strFileToOpen As Variant
    
    strFileToOpen = Application.GetOpenFilename("Csv Dateien (*.csv), *.csv")  

    If strFileToOpen <> False Then
        With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;" & strFileToOpen, Destination:=Range("$A$1"))  
            .FieldNames = True
            '......  
            
            .Delete
        End With
    End If