Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

find file -->dateipfad/namen retour geben

find file -->dateipfad/namen retour geben
18.07.2005 07:59:15
michael
ich möchte mit VBA ein öffnendialogfenster aufrufen (findfile, soweit kein problem).
dann soll aber die datei nicht geöffnet werden, sonder der pfad/name der datei zurückgemeldet werden, weil die daten dann mittels makro importiert werden sollen.
wie kann ich das den machen? ich vermute das geht ganz einfach? aber ich komm einfach ned drauf...

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: find file -->dateipfad/namen retour geben
18.07.2005 08:01:14
Hajo_Zi
Hallo Michael,
ein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die Deine Frage beantworten und da sollte Zeit für die paar Worte doch vorhanden sein.
benutze getopen.
Bestimmtes Verzeichnis und *.TXT
Dim strVerzeichnis$
strVerzeichnis = "E:\eigene Dateien"
‚ Überprüfen ob Verzeichnis vorhanden
If Dir(strVerzeichnis, vbDirectory) "" Then ChDir strVerzeichnis Else Exit Sub
dat = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
‚ Auf die Variable dat wird der Dateinamen geschrieben
If dat "Falsch" Then Workbooks.Open dat
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
AW: find file -->dateipfad/namen retour geben
18.07.2005 09:03:08
Michael
Hallo alle zusammen!
Grüßen ist schon wichtig, das habe ich im Eifer des Gefechtes vergessen, tut mir leid, werd mich in Zukunft bemühen! :-)
Auf jeden Fall hat mir dein Beitrag geholfen, es funktioniert jetzt so wie ich will, danke!
Liebe Grüße
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige