Lösungsansatz
14.11.2002 21:16:50
andreas e
hallo werner ,
hier ne möglichkeit alle dateien eines Verzeichnisses in ne Listbox ner UF einzulesen .
die kannst dann erweitern und dann alle öffnen lassen.
Hilft das ??Private Sub UserForm_Initialize()
ListBox1.List = FileArray("d:\Excel Andreas\", "*.xls")
End Sub
Function FileArray(strPath As String, strPattern As String)
Dim arrDateien()
Dim intCounter As Integer
Dim strDatei As String
If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
strDatei = Dir(strPath & strPattern)
Do While strDatei <> ""
intCounter = intCounter + 1
ReDim Preserve arrDateien(1 To intCounter)
arrDateien(intCounter) = strDatei
strDatei = Dir()
Loop
FileArray = arrDateien
End Function
gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Lösungsansätze zu EXCEL und mehr