Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dateiname auslesen - getopenfilname(.. ,True)

Dateiname auslesen - getopenfilname(.. ,True)
05.03.2019 07:51:56
Wiebke
Hallo zusammen,
bisher bin ich immer fündig geworden wenn ich Antworten gesucht habe.. jetzt aber leider nicht. Daher poste ich selber.
Die Fragestellung ist einfach:
Ich möchte den Dateinamen auslesen.
Der code lautet wie folgt (reduziert auf das wichtigste):
Sub Daten_Laden()
Dim varFileName as Variant
varFileName = Application.GetOpenFilename(".txt Datei(*.txt), *.txt", , "Load .txt", , True)
End Sub

Das "True" am Ende ist wichtig, sonst funktioniert des Rest meines Codes nicht.
Mit dem "True" funktioniert aber "Dir(varFileName)" leider nicht.. .
Über Antworten freue ich mich sehr!
Viele Grüße,
Wiebke
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname auslesen - getopenfilname(.. ,True)
05.03.2019 07:58:04
EtoPHG
Hallo Wiebke,
Mit dem "True" funktioniert aber "Dir(varFileName)" leider nicht.. .
Natürlich nicht, denn mit deinem True erlaubst du die Auswahl mehrerer Dateien und Dir(x) ist darauf angewiesen genau einen (Datei)-Parameter zu verarbeiten. Du musst also prüfen, ob dein varFileName mehrere Elemente enthält! (Hätte angenommen, dass dies bei deinem angegeben Level bekannt ist!)
Gruess Hansueli
Anzeige
AW: Dateiname auslesen - getopenfilname(.. ,True)
05.03.2019 08:37:38
Wiebke
Danke für die Antwort.
Aber das hilft mir leider noch nicht bei der Lösung meines Problems..
Viele Grüße,
Wiebke
dann beschreib mal Dein Problem...
05.03.2019 08:41:53
EtoPHG
Wiebke,
denn Zitat:
Das "True" am Ende ist wichtig, sonst funktioniert des Rest meines Codes nicht.
Mit dem "True" funktioniert aber "Dir(varFileName)" leider nicht.. .

ist wohl keine vollständige Aufgaben-, bzw. Problembeschreibung!
Gruess Hansueli
Anzeige
AW: dann beschreib mal Dein Problem...
05.03.2019 08:54:55
Wiebke
Hallo Hansueli,
mit deinem Satz
"mit deinem True erlaubst du die Auswahl mehrerer Dateien" habe ich mein Problem soeben gelöst.
Sub Daten_Laden()
Dim varFileName as Variant
varFileName = Application.GetOpenFilename(".txt Datei(*.txt), *.txt", , "Load .txt", , True)
MsgBox Dir(varFileName(1))
End Sub
lautet die Lösung auf dem kurzen Weg.
Allerdings benötige ich die Mehrfachauswahl nicht - das muss ich dann nur auch in meinem folgenden Code ändern. Wenn ich True entferne, klappt natürlich varFileName(1) im restlichen Code nicht mehr.
Vielen Dank!!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige