Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1024to1028
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
Inhaltsverzeichnis

Dateiname mit Dialogbox auslesen

Dateiname mit Dialogbox auslesen
13.11.2008 15:04:43
Uwe
Hi,
ich suche eine Möglichkeit einen Dateinamen in einer Dialogbox auszuwählen und in eine Tabelle zu schreiben. Die Funktion könnte analog zu GetDirectory aufgebaut sein, hab leider nichts ähnliches gefunden oder war zu blind.

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

Betreff
Datum
Anwender
Anzeige
AW: Dateiname mit Dialogbox auslesen
13.11.2008 16:20:00
Ramses
Hallo
strFile = Application.GetOpenFilename("EXCEL Files *.xls, *.xls")
Dein Dateiname steht dann in "strFile"
Gruss Rainer
AW: Dateiname mit Dialogbox auslesen
13.11.2008 16:33:00
fcs
Hallo Uwe,
ich tippe mal du warst zu blind.
Gruß
Franz

Sub DateinameAuswaehlen()
Dim varAuswahl, aktiverPfad As String
'aktiverPfad = VBA.CurDir 'aktves Verzeichnis merken
varAuswahl = Application.GetOpenFilename(FileFilter:="Alle (*.*),*.*", _
Title:="Bitte den gewünschten Dateinamen auswählen und Öffnen")
If varAuswahl  False Then
Range("A1") = varAuswahl 'Pfad + dateiname eintragen
Range("A2") = Mid(varAuswahl, Len(VBA.CurDir) + 2) 'Nur dateiname eintragen
End If
'VBA.ChDir = aktiverPfad 'gemerktes Verzeichnis wieder setzen
End Sub


Anzeige
AW: Dateiname mit Dialogbox auslesen
13.11.2008 16:46:00
Uwe
Herzlichen Dank an Franz (das war es) und Alle die sich bemüht haben.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige