[已解决]如何实现两次IF判断?

ww0000

下面的代码可以批量设置001文件夹下所有XLS文件为“禁用宏就关闭文件”，但如果文件夹里面已经有设置好的文件，就会出错，请问如何用IF判断里面是否存在工作表"Macro"，如果有就跳过这个文件，继续往下，如
If xs.Name = "Macro" Then
        wb.Close True
        Exit Sub
但我不知道如何加！





Sub test1()    '批量设置禁用宏则关闭文件
    Dim wb As Workbook
    Dim i%
    Dim err '变量声明
    Application.ScreenUpdating = False    '关闭屏幕更新，防止闪屏、加快代码运行
    Application.DisplayAlerts = False
    With Application.FileSearch    '建立一个搜索
    .NewSearch    '新搜索
    .LookIn = "C:\Documents and Settings\Administrator\桌面\001"  '设定搜索的范围
    .FileType = msoFileTypeExcelWorkbooks    '查找所有Excel类型的文件
    .Execute
        For i = 1 To .FoundFiles.Count    '逐个处理找到的文件列表中的每个工作簿
        Set wb = Workbooks.Open(.FoundFiles(i))     '打开它
               
        wb.Sheets.Add Type:=xlExcel4MacroSheet '插入宏表
        wb.ActiveSheet.Name = "Macro" '命名宏表
        Range("A2") = "=ERROR(TRUE,$A$6)" '在宏表中输入函数
        Range("A4") = "=RETURN()"
        Range("A6") = "=IF(ERROR.TYPE($A$3)=4)"
        Range("A8") = "FILE.CLOSE(FALSE)"
        Range("A9") = "RETURN()"
        Range("A10") = "ELSE()"
        Range("A11") = "ERROR(TRUE)"
        Range("A12") = "RETURN()"
        Range("A13") = "END.IF()"
        wb.ActiveSheet.Visible = 2 '隐藏宏表
        For Each xs In wb.Sheets '历遍工作表并定义名称
        If xs.Type = xlWorksheet Then
        xs.Select
        ActiveWorkbook.Names.Add Name:=xs.Name & "!Auto_Activate", RefersToR1C1:="=Macro!R2C1"
        End If
        Next xs
      
        wb.Close True    '保存并关闭打开的工作簿
        Next i    '继续打开下一个工作簿
        End With    '结束With语句块
        Application.ScreenUpdating = True    '重新打开屏幕更新
        Application.DisplayAlerts = True
        MsgBox "已处理完毕！", 64, "提示"
    End Sub

最佳答案

月排行榜 / 总排行榜

wayy

2011-4-6 10:28

加一行试一下：
On Error Resume Next

跳转到最佳答案楼层

ww0000

各位老师请帮帮看看!

tony3

老师们现在忙。没上网

wayy

加一行试一下：
On Error Resume Next

ww0000

On Error Resume Next '忽略错误
谢谢wayy，能达到效果！不过，这样不是判断，而是继续增加一个宏表！能不能有判断的方法？

ww0000

继续探索,继续研究

allenchentao

lvhuilong6205

我还是小班，看不懂，但我会努力

ww0000

继续研究,继续请教!

matthewfanmh

学习学习吖!