Sub OpenCloseArray()
Dim MyFile As String
Dim Arr(100) As String
Dim count As Integer
MyFile = Dir("H:\Python学习文件夹\" & "*.xlsx")
count = count + 1
Arr(count) = MyFile
Do While MyFile <> ""
MyFile = Dir
If MyFile = "" Then
Exit Do
End If
count = count + 1
Arr(count) = MyFile
Loop
For i = 1 To count
Workbooks.Open Filename:="H:\Python学习文件夹\" & Arr(i)
Worksheets("报告页").Range("Z7:AE7").Value = "2020-07-24"
Worksheets("报告页").Range("P94:V94").Value = "2020-07-24"
Worksheets("网优工程师测试表格").Range("U2:X2").Value = "2020-07-24"
Worksheets("性能验收覆盖效果图").Range("C5:G5").Value = "2020-07-24"
Worksheets("站点后台指标监控").Range("F2").Value = "2020-07-24"
Worksheets("站点后台指标监控").Range("F3").Value = "2020-07-24"
Worksheets("站点后台指标监控").Range("F4").Value = "2020-07-24"
Worksheets("站点后台指标监控").Range("G2").Value = "2020-07-24"
Worksheets("站点后台指标监控").Range("G3").Value = "2020-07-24"
Worksheets("站点后台指标监控").Range("GF4").Value = "2020-07-24"
ActiveWorkbook.Close savechanges = True
Next
End Sub

ActiveWorkbook.Close savechanges = True '　这里不是保存并关闭了嘛