Hallo Leute,
ich stehe gerade irgendwie auf dem Schlauch.
Ich möchte über einen FileDialog eine .csv-Datei auswählen um diese im späteren Verlauf zu importieren.
Leider kann ich mit nicht erklären, warum im folgenden Code mein FileDialog 2x hintereinander aufgerufen wird.
Soll heißen: Start Funktion -> Auswahl der Datei und bestätigen über "Import"-Button -> dann wieder Auswahl der Datei und bestätigen über "Import"-Button -> erst jetzt liegt der Pfad auf meiner Variable.
Hier der Code:
Option Explicit
Function csv_Pfad_ermitteln()
Dim Dateiaufruf As FileDialog
'Dim vrtSelectedItem As Variant
Set Dateiaufruf = Application.FileDialog(msoFileDialogOpen)
With Dateiaufruf
.Title = "Importdatei auswählen"
.Filters.Add "CSV-Dateien", "*.csv", 1
.ButtonName = "Import"
If .Show = -1 Then
'For Each vrtSelectedItem In .SelectedItems
csv_Pfad_ermitteln = .SelectedItems(1)
'csv_Pfad_ermitteln = vrtSelectedItem
'Next vrtSelectedItem
Else
End If
End With
Set Dateiaufruf = Nothing
End Function
Habe schon einiges ausprobiert bekomme das Problem allerdings nicht behoben.
Hat das Forum vielleicht ein paar Ideen?
Grüße aus Hamburg
Andreas
|