Hallo
in ein normales Modul
Sub Alle_Dateien_Verzeichnis() '
On Error GoTo Fehler
Dim Pfad As String, Ext As String, Datei As String, Wb As Workbook
Ext = "*.xlsx"
Pfad = "E:\Excel\Temp\" '**** mit \
Datei = Dir(Pfad & Ext)
Do While Len(Datei) > 0
Set Wb = Workbooks.Open(Filename:=Pfad & Datei)
'Mach was damit
Call DeinMakro(Wb.Name)
'**
Wb.Close True
Datei = Dir() ' nächste Datei
Loop
Err.Clear
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Sub DeinMakro(P1)
MsgBox P1 & " wurde geöffnet"
Workbooks(P1).Sheets(1).Range("A1") = "Hallo" ' Beispiel
End Sub
LG UweD
|