ich benötige eine routine die alle *.xls dateien in einem ordner öffnet, danach soll mein bestehendes makro drüberlaufen, und die geänderten dateien wieder abspeichern.
kann mir jemand helfen?
ciao
atikar
Sub VerzLesen()
Dim Pfad As String
Dim s As String
Pfad = "D:\xl\"
s = dir(Pfad & "*.xls")
Do Until s = ""
Workbooks.Open Filename:=Pfad & s
'hier dein Makro
ActiveWorkbook.Close SaveChanges:=True
s = dir()
Loop
End Sub
Gruß Matthias
Sub Aufruf()
Workbooks.Open FileName:=[a1]
End Sub
Sub lfdNr()
Dim Nr%
Dim dName$
Dim Zielordner$, Dateiname$
'Hier den Pfad verändern
Zielordner = "c:\"
'Hier den Dateinamen verändern
Dateiname = "Excel_lfdNr"
dName = Zielordner & Dateiname & ".ini"
Close
On Error Resume Next
Open dName For Input As #1
If Err > 0 Then
Nr = 1
Close
Open dName For Output As #1
Print #1, Nr
Close
Exit
Sub
Else
Input #1, Nr
Close
Open dName For Output As #1
Print #1, Nr + 1
Close
End If
ActiveCell.Value = Nr
End
Sub
Servus,
Anton