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

*.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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige