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

*.mdb in Listbox zeigen

Forumthread: *.mdb in Listbox zeigen

*.mdb in Listbox zeigen
Martin
Hallo,
wie kann ich alle Access-Datenbanken (*.mdb) eines Ordners in eine Listbox einlesen. Mit Filesearch klappt das irgendwie nicht.
Danke, Martin
Anzeige

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

Betreff
Benutzer
Anzeige
AW: *.mdb in Listbox zeigen
Oberschlumpf
Hi Martin
Versuch es mal so:

Sub Einlesen()
Dim lstrDatName As String
DatName = Dir("DeinPfad\*.mdb")
Do Until DatName = ""
Listbox1.AddItem DatName
DatName = Dir
Loop
End Sub

Konnte ich helfen?
Ciao
Thorsten
AW: *.mdb in Listbox zeigen
26.04.2004 20:00:07
Oberschlumpf
Hallo
ups...Fehler im Code...hab ich jetzt erst bemerkt
So ist's richtig:

Sub Einlesen()
Dim lstrDatName As String
lstrDatName = Dir("DeinPfad\*.mdb")
Do Until lstrDatName = ""
Listbox1.AddItem lstrDatName
lstrDatName = Dir
Loop
End Sub

Ciao
Thorsten
Anzeige
AW: *.mdb in Listbox zeigen
Martin
Hallo Thorsten,
Danke für den Tipp. Genauso hatte ich mir das gedacht !
Gruß, Martin
bitte...gerne :-)..thx for feedback.. o.T.
26.04.2004 21:59:12
Oberschlumpf
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige