Application.GetOpenFilename
19.11.2008 10:43:23
Jana
Aus einer bestehenden Datei heraus möchte ich eine zweite Excel-Datei ansprechen.
1. Diese zweite Datei wird geöffnet
2. Alle Daten werden ausgelesen und in meine bestehende Datei eingelesen
3. Diese zweite Datei wird wieder geschlossen.
Soweit. dank eurer Hilfe perfekt.
Aber: mit dem Code
ChDrive ThisWorkbook.Path & "\Outbound"
ChDir ThisWorkbook.Path & "\Outbound\*Test~"
Import = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")
soll der Pfad dieser zweiten Datei zum Finden angegeben werden. Da diese zweite Datei in dem Ordner "Outbound" unter diversen Namen abgespeichert wird, soll nun in dem Auswahlfenster die gesuchte Excel-Datei mit dem Anfangsnamen "Test" und anschließend einer fortlaufenden Zahl manuell angewählt werden.
Leider wird er Ordner "Outbound" nicht mit geöffnet.
Beide Dateien liegen auf einem Netzlaufwerk, nicht aber im gleichen Ordner.
Im Forum habe ich gelesen (Ramses; 14.11.2003 14:05:33; "ChDrive kann nur lokale Laufwerksbezeichnungen ansprechen. Netzlaufwerke sind leider aussen vor.")
Giebt es vielleicht eine andere elegante Lösung, um den "Suchaufwand" für diese Test-Datei zu minimieren?
Vielen Dank
Gruß Jana