Problem mit GetOpenFilename
04.01.2006 12:32:57
Heribert
mit nachfolgendem Code, lade ich eine txt Datei in mein Excel.
Soweit so gut.
Wähle ich aber keine Datei aus, also abbrechen, sollte der Code nicht ausgeführt
werden, da an die Variable sname2 nichts übergeben wird.
Der Code versucht dennoch eine Datei zu laden, und endet mit der
Fehlermeldung.... Datei nicht gefunden.
Auch mit OnError klappt es nicht.
Kann jemand von euch weiterhelfen?
Besten Dank
Gruss Heribert
Sub Datei_laden
Dim sname2 As String' Variable / Dateiname
sname2 = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
If sname2 <> "" Then 'Sollte den Code ausführen wenn sname2 nicht ""
Open (sname2) For Input As #1
'On Error GoTo Fehler
End If
'Fehler:
'MsgBox "Fehler beim Öffnen: " & vbCrLf & "erneut versuchen"
End Sub