如何批量修改文件夹中的EXCEL单元

[阿标很忙～]

遇到一个需要重复操作的问题，文件夹里有许多相同的EXCEL表格，每个表格中都有同一个单元格需要修改，请教各位大神，能否能用VBA编程搞定？ 操作软件:WPS 如有好的建议请给我留言，谢谢～

[唐诗三百首]

写个程序--遍历文件夹下所有Excel文件--逐个处理(打开-修改单元格-保存)...

[ダ雨夹雪リ]

Sub Test()
Dim mFile As String
Dim Arr(100) As String
Dim count As Integer

mFile = Dir("D:\data\" & "*.xlsx") '路径

count = count + 1
Arr(count) = mFile

Do While mFile <> ""
mFile = Dir
If mFile = "" Then
Exit Do
End If
count = count + 1
Arr(count) = mFile
Loop

For i = 1 To count
Workbooks.Open Filename:="d:\data\" & Arr(i)
Sheet1.Cells(2, 2) = " " '修改打开文件的内容
ActiveWorkbook.Close savechanges = True
Next
End Sub