starten sie kostenlos
Visual Studio Developer Center >
> 
> 
Application.GetOpenFilename Kontrolle Rückgabewert

Allgemeine Diskussion Application.GetOpenFilename Kontrolle Rückgabewert

  • Montag, 30. April 2012 07:48
     
     
    Anmelden
    0

    In einem Excel-Makro nutze ich die Methode Application.GetOpenFilename.

    Der Rückgabewert ist, auch in der Online-Hilfe, folgendermaßen beschrieben:

    “This method returns the selected file name or the name entered by the user. The returned name may include a path specification. Returns False if the user cancels the dialog box.”

     

    Um den Fehlerfall abzufangen, wird im Code eine Abfrage entsprechend folgendem Beispiel (aus der Excel-Hilfe) empfohlen:

    fileToOpen = Application _

        .GetOpenFilename("Text Files (*.txt), *.txt")

    If fileToOpen <> False Then

        MsgBox "Open " & fileToOpen

    End If

    Bei früheren Excel-Versionen hat dies einwandfrei funktioniert. Im aktuellen Excel 2007 wird aber die Abfrage „fileToOpen <> False“ mit folgender Fehlermeldung quittiert:

     "Laufzeitfehler '13': Typen unverträglich"

    Leider habe ich weder in der Excel-Hilfe, noch in der VBA-Hilfe, noch im Internet auf den MSDN-Seiten einen Hinweis gefunden, wie eine entsprechende Abfrage an den Anwender nach einer Datei mit entsprechender Sicherheit, falls der Anwender keine Datei wählt, implementiert werden kann.

    Wie ist eine entsprechende Funktionalität unter Excel 2007 mit VBA 6.5 zu implementieren?

    Vielen Dank !!!

     

Alle Antworten