Klasördeki excel dosyalarını şablonla farklı kaydetme.

[yNsr43]

selamlar

klasördeki excell dosyalarındaki verileri, şablon göre tekrar farkli kaydetmek istiyorum, elle tek tek yapabiliyorum ama toplu halde yapmayi çözemedim teşekkürler.
http://s6.dosya.tc/server8/23hjmw/sablon.rar.html

 

[yNsr43]

kodu koymayi unutmuşum.

Sub Genel()
    Range("A2") = ActiveSheet.Name
    
    ActiveSheet.Name = "Genel"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Genel.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
        Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub

 

[yNsr43]

tekrar selamlar, bunu klasördeki excellere nasıl uyarlayabiliriz ?

teşekkürler.