考勤表自动修改日期模板，如何批量修改多个考勤表的日期？

 Sub 修改所有工作簿日期()
     Dim folderPath As String
     Dim fileName As String
     Dim wb As Workbook
     Dim targetDate As Date

     ' 设置文件夹路径和目标日期
     folderPath = "C:\你的考勤表文件夹路径\"  ' 请替换为你的考勤表文件夹路径
     targetDate = DateSerial(2024, 11, 1) ' 请替换为你要设置的目标日期

     ' 遍历文件夹中的所有工作簿
     fileName = Dir(folderPath & "*.xls*")
     Do While fileName <> ""
         Set wb = Workbooks.Open(folderPath & fileName)

         ' 修改指定单元格的日期
         wb.Sheets(1).Range("A1").Value = targetDate ' 请替换为你需要修改的单元格

         ' 保存并关闭工作簿
         wb.Save
         wb.Close

         fileName = Dir()
     Loop

     MsgBox "所有工作簿日期已修改完成！", vbInformation
 End Sub