[求助]想实现一个“批量删除若干excel文件的某1个单元格里的值”的功能

Question

Sub Test()
Dim f As String, folder As String, wb As Workbook
folder = "D:\1\"
f = Dir(folder & "Test*.xls*")
While f > ""
Set wb = Workbooks.Open(folder & f)
wb.Sheets(1).[a4] = ""
wb.Close True
f = Dir
Wend
MsgBox "OK"
End Sub

Answer 1

你有多少个文件？Sub Test()
Dim strFile As String, wb As Workbook
strFile = Dir("D:\1\" & "Test*.xls")
Do Until strFile = ""
    Set wb = Workbooks.Open(D:\1\" & strFile)
    wb.Sheets(1).[a4] = ""
    wb.Close True
    strFile = Dir()
Loop
MsgBox "OK"
End Sub