Dateien automatisch öffnen und verarbeiten
Peter
aus einem Unterordner möchte ich automatisch alle vorhandenen Dateien auswählen und öffnen. Leider fehlt mir der entsprechende Code dafür. Hat jemand eine Idee ? Ich weiß, dass es funktioniert, aber leider nicht wie.
Mein ProgrammCode lautet folgendermaßen:
Public NameDatAufruf, DatName, DatOrdner, NameL, DatUntOrd As String
Public AnzDatUnt, i As Integer
Sub ButtonEinlesen_Click()
NameDatAufruf = ActiveWorkbook.Name
NameL = 10
DatUntOrd = "DateiListe" 'Name des Unterordners
DatOrdner = ActiveWorkbook.Path & "\" & DatUntOrd
'Hier sollte bereits die Anzahl der sich im Unterordner befindlichen Dateien ausgezählt _
_
werden
AnzDatUnt = 2 'Hier sollte eigentlich die Anzahl der sich im Unterordner befindlichen _
_
Dateien ausgezählt werden
For i = 1 To AnzDatUnt 'Anzahl der im Unterordner befindlichen Dateien
'Application.Dialogs(xlDialogOpen).Number (DatOrdner + "\*.xls")
Application.Dialogs(xlDialogOpen).Show (DatOrdner + "\*.xls")
'xlDialogAppSize
DatName = ActiveWorkbook.Name
Next i
Exit Sub
End Sub
Gruß,
Peter