怎么批量修改大量excel文件的修改时间？

先复制黏贴每个打开然后每个工作簿在不用的空白区域输入无关紧要的字段然后删除这些字段再保存即可

Sub ABCD()
Dim lj As String
Dim dirname As String
Dim nm As String
lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "\*.xlsx")
Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:=lj & "\" & dirname
Workbooks(dirname).save
Workbooks(dirname).Close False
End If
dirname = Dir
Loop
End Sub

蓝色部分就是你把那个东西复制到新的文件夹里面的路径自己改路径就可以了

Sub dfdfdf()
Application.DisplayAlerts = 0
aa = ThisWorkbook.Path
kk = Dir(aa & "\*.xlsx")
Do While kk <> ""
If kk <> ThisWorkbook.Name Then
Workbooks.Open Filename:=aa & "\" & kk
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\10220719\桌面\新建文件夹 (4)\" & kk
ActiveWorkbook.Close False
End If
kk = Dir
Loop
Application.DisplayAlerts = 1
End Sub

http://www.appinn.com/newfiletime/
百度下有这个软件

$d = Get-Date "2017/5/6 00:01:10"
$files = Get-ChildItem "D:\test"
foreach ($f in $files)
{
if ($f.Extension -like '*xls*') {$f.CreationTime = $d}
}
powershell 改一下上面代码中的创建时间和路径就可以了