ComboBox zeigt Ordnerinhalt
13.02.2004 10:17:29
Markus
Ich hätte da mal eine Frage. Ich hab innerhalb Access dieses Problem eigentlich schon einmal gelöst, aber unter Excel funktioniert das irgendwie nicht.
Ich will eine Kombobox dafür nutzen den Inhalt eines Dateiordners auszulesen.
Hier mein VBA - Code der unter Access läuft.
Vielleicht muß man ihn ja nur geringfügig umstellen.
Sub ComboBox1_Change()
On Error GoTo err_ComboBox1_Change
Dim strDateiliste As String
Dim strDatei As String
Me.ComboBox1.RowSource = ""
strDatei = Dir("C:\*.xls")
Do While strDatei <> ""
strDateiliste = strDateiliste & ";" & strDatei
strDatei = Dir
Loop
Me.ComboBox1.RowSource = Mid(strDateiliste, 2)
err_ComboBox1_Change:
End Sub
Wäre echt nett wenn mir jemand helfen könnte.
MfG
Markus