Datei öffnen Dialog öffnet letztes Excel File
12.11.2002 08:53:35
Timo
ich habe folgendes Problem. Ich habe ein kleines Makro geschrieben, welches mir den Deti öffnen Dialog von Excel startet. Das klappt auch ganz gut, aber wenn ich dann in der Tabelle etwas ändere und unter anderem Namen abspeichere, so ergibt sich folgendes Problem. Beim erneuten ausführen des Makros aus der Standarddatei öffnnet Excel die zuletzt abgespeicherte Tabelle und lässt sich nicht starten, wenn ich die letzte Tabelle umbenenne.
Wo liegt der Fehler?
Danke für die Hilfe schon einmal im Voraus
Timo
Hier mein Makro:
Sub Davis_Ergebnisfiles_öffnen()
'
' Makro1 Makro
'
On Error GoTo ErrorHandler
ChDir "D:\Projekte\Andritz\Versuche\Ergebnisfiles"
FileToOpen = Application.GetOpenFilename("Alle Dateien (*.*), *.*")
Workbooks.OpenText Filename:= _
FileToOpen, Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1) _
, Array(2, 1), Array(13, 1)), TrailingMinusNumbers:=True
GoTo ende
ErrorHandler:
MsgBox ("Starten die das Makro erneut, da Sie einen Fehler gemacht haben!")
ende:
End Sub