habe hier ein Skript um eine rtf-Datei zu öffnen. Möchte aber festlegen, dass sich sofort einebestimmter Pfad öffnet. In diesem Fall N:\Versand.
fFile = Application.GetOpenFilename("RTF-Dateien (*.rtf), *.rtf")
fPfad = "N:\Versand\"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fPfad & fFile, _
Destination:=Range("A1"))
.Name = fFile
.FieldNames = True
.RowNumbers = False
... u.s.w.
Währe um jede Hilfe dankbar
Gruß Jürgen