VBA批量清除文件夹下多个EXCEL的错误值

不鲁是理

单个Excel，我可以ctrl +g定位错误值然后清除，我现在有一个文件夹，文件夹里面有子文件夹，一共有一千来个Excel,求VBA把每个EXCEL的错误值都清楚掉，以下是我录制的宏，但是只针对单个Excel
Sub 宏5()
'
' 宏5 宏
'

'
    Selection.SpecialCells(xlCellTypeFormulas, 16).Select
    Selection.ClearContents
    ActiveWorkbook.Save
End Sub

不鲁是理

顶顶顶顶顶顶顶顶顶顶顶顶

不鲁是理

拼凑的代码，帮忙价格If Then Else 语句，要不碰到没有错误值的EXCEL，他就停止了
Sub 更新()
    Dim Fso As Object, Folder As Object, arr$(), m&, i&
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Folder = Fso.GetFolder(ThisWorkbook.Path)
    Call GetFiles(Folder, arr, m)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For i = 1 To m
        With Workbooks.Open(arr(i))
           Selection.SpecialCells(xlCellTypeFormulas, 16).Select
            Selection.ClearContents
            ActiveWorkbook.Save
            Close 1
        End With
    Next
    Set Folder = Nothing
    Set Fso = Nothing
    Application.ScreenUpdating = True
    MsgBox "更新完毕。"
End Sub

Sub GetFiles(ByVal Folder As Object, arr$(), m&)
    Dim SubFolder As Object
    Dim File As Object
    For Each File In Folder.Files
        If File.Name Like "*.xls*" And InStr(File.Name, ThisWorkbook.Name) = 0 Then
            m = m + 1
            ReDim Preserve arr(1 To m)
            arr(m) = File
        End If
    Next
    For Each SubFolder In Folder.SubFolders
        Call GetFiles(SubFolder, arr, m)
    Next
End Sub

EXCELLMY

不鲁是理 发表于 2019-9-5 13:11
拼凑的代码，帮忙价格If Then Else 语句，要不碰到没有错误值的EXCEL，他就停止了
Sub 更新()
    Dim Fs ...

加一句遇错继续执行试试