Laufzeitfehler umgehen
17.02.2004 20:52:21
TinoB
habe hier unten folgendes macro zum einlesen einer textdatei. nun ist aber das problem, wenn ich keine datei öffnen möchte und auf abbrechen geh, erscheint ein laufzeitfehler, da dieses ja nicht bis zum ende ausgeführt wird. wie kann man diesen laufzeitfehler umgehen und ganz normal zur aktuellen datei zurückzukehren?
Danke im Voraus
Tino
Sub ASC()
'öffnen, einlesen und konvertieren der ASCI Datei
ChDir "C:\Eigene Dateien"
neudatei = Application.GetOpenFilename("Textdatei,*.asc")
Workbooks.OpenText FileName:=neudatei, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 9), Array(8, _
1), Array(14, 2), Array(21, 2), Array(28, 2), Array(35, 2), Array(42, 2), Array(49, 2), _
Array(56, 2), Array(63, 2), Array(70, 2), Array(77, 2), Array(84, 2), Array(91, 2))
End Sub