小编Set*_*eth的帖子

我正在尝试遍历文件夹中的所有文件，打开它们并删除文档信息。我在处理无法打开的文件时遇到问题，或者在打开时遇到有关禁用宏的问题。我尝试使用 on error resume next 和 on error goto 0 来解决这个问题。但是后来我遇到了运行时失败，因为当我尝试关闭打开的文件时，我的工作簿对象 (wb) 尚未设置。

我已经阅读了关于“On Error Resume Next”和“On error goto 0”的文档，但我不相信我在这里正确使用它们。非常感谢任何帮助，谢谢。

Option Explicit
Sub test_Scrubber_New()

Dim directory As String, fileName As String, i As Variant, wb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False

'directory = "C:\Users\bayli\Desktop\Files for Testing\"
directory = "C:\Users\bayli\Desktop\excel files\"
fileName = Dir(directory & "*.xl??")

i = 0
Do While fileName <> ""
    On Error Resume Next
    Set wb = Workbooks.Open(directory & fileName)
    On Error GoTo 0
        'remove …