Thema Datum  Von Nutzer Rating
Antwort
Rot FileDialog wird doppelt aufgerufen
 10.04.2017 17:37:20 Andreas
NotSolved
10.04.2017 18:18:53 Gast3049
NotSolved

Ansicht des Beitrags:
Von:
Andreas		 Datum:
10.04.2017 17:37:20		 Views:
874		 Rating:
     
Antwort:
  Ja
Thema:
FileDialog wird doppelt aufgerufen

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot FileDialog wird doppelt aufgerufen
 10.04.2017 17:37:20 Andreas
NotSolved
10.04.2017 18:18:53 Gast3049
NotSolved