ich benutze folgende Code zum Aufruf einer Textdatei:
Sub GEBSTAT_Aufruf()
Dim x As String
ChDir "C:\Test"
x = Application _
.GetOpenFilename("Text Dateien (*.txt), *.txt")
Workbooks.OpenText Filename:=x, Origin:=xlMSDOS, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
Set WbG = Workbooks(ActiveWorkbook.Name)
UserForm1.Show
End Sub
Wenn ich nun diese Aktion im Fenster "Öffnen" abbreche, erhalte ich eine Fehlermeldung.
Laufzeitfehler 1004:
'Falsch.xls' wurde nicht gefunden.
Wie lässt sich diese Fehlermeldung unterbinden?
Gruß Korl