Anzeige
Archiv - Navigation
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

GetOpenFilename-Funktion einen Pfad mit übergeben

GetOpenFilename-Funktion einen Pfad mit übergeben
15.03.2004 10:55:30
Frank
Hi zusammen,
ich möchte gerne über die GetOpenFilename-Funktion eine Datei öffnen (soweit kein Problem). Nun möchte ich beim Aufrufen des Öffnen-Fenster diesem aber gerne einen Pfad mit übergeben, in welchem er anfängt, die Filter-Dateien anzuzeigen.
Danke schon mal im voraus!
mfg Frank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: GetOpenFilename-Funktion einen Pfad mit übergeben
15.03.2004 11:07:01
PeterP
quelle: www.schmittis-page.de/excel/faq/f45.htm

Sub Öffnen()
ChDir "\"
ChDrive "c:"
ChDir "c:\eigene dateien\excel"
Datei = Application.GetOpenFilename _
("Microsoft Excel-Dateien (*.xls), *.xls")
If Datei = False Then Exit Sub
Workbooks.OpenText Filename:=Datei, Origin:=xlWindows
End 

Sub
hth
pp

Vorher ChDrive und ChDir ...
15.03.2004 11:10:10
Volker Croll
Hallo Frank,
dazu musst Du vorher auf das Laufwerk und den Startpfad wechseln; Beispiel:

Sub DateiOeffnen()
Dim Datei As String
ChDrive "D"
ChDir "\"
ChDir "D:\Test"
Datei = Application.GetOpenFilename("Microsoft Excel-Dateien (*.xls), *.xls")
If Datei = False Then Exit Sub
End Sub

Gruss
Volker Croll
www.crolltools.de
Anzeige
AW: Vorher ChDrive und ChDir ...
15.03.2004 11:15:13
Frank
Funktioniert einwandfrei!
thx an beide ;-)
mfg Frank

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige