Office: (Office 365) CSV-Daten per Makro einbinden - manuelle Wahl der Quelldatei

Liebe Excel-Gemeinde,

ich möchte CSV-Daten in eine bereits geöffnete Arbeitsmappe laden. Sie sollen nach jedem Laden eines Datensatzes auf einem anderen Arbeitsblatt dargestellt werden, das den Namen der importierten CSV-Datei bekommt. Manuell klappt das sehr gut und auch das untenstehende Makro, das ich mit dem Rekorder aufgezeichnet habe, erledigt diese Aufgabe super. Mein Problem ist: Ich möchte dieses Makro so abwandeln, dass ich nach Start des Makros den Ordner und die zu ladende Quelldatei manuell auswählen kann, bevor das Makro den gesamten Importvorgang abschließt. Ich habe im Forum danach gesucht, bin aber nicht zu 100 % fündig geworden. Da meine VBA-Kenntnisse begrenzt sind, bin ich auf tolle Ideen der Excel-Community angewiesen … Vielen Dank schon mal für eure Hilfe.

Sub Test_CSV_Daten_Abfrage()

ActiveWorkbook.Queries.Add Name:="Testdaten", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Csv.Document(File.Contents(""C:\Users\User1\Desktop\Ordner1\Testdaten.csv""),[Delimiter="";"", Columns=2, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"" = Table.TransformColumnTypes(Quelle,{{""Column1"", Int64.Type}, {""Column2"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"""
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Testdaten;Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [Testdaten]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Testdaten"
.Refresh BackgroundQuery:=False
End With
End Sub

 

Guten Morgen zusammen,
hat keiner eine Idee? Die Forensuche hilft in diesem
Punkt leider nur bedingt weiter ...

Vielen Dank
X-ler