遍历多工作簿时，如何检查指定工作表是否存在并执行对应操作？

先修正原函数的语法错误 #

你的原函数有两个明显问题：

• 参数里的Activeworkbook wb As Workbook是语法错误，应该直接写wb As Workbook
• 变量app173重复定义（既是字符串参数又是工作表变量），需重命名工作表变量避免冲突

实现WorksheetExists函数 #

提供两种常用实现方式，按需选择：

方式1：错误捕获法（简洁高效） #

利用VBA的错误捕获机制快速判断工作表是否存在：

Function WorksheetExists(sheetName As String, wb As Workbook) As Boolean
    Dim ws As Worksheet
    On Error Resume Next ' 临时屏蔽工作表不存在的错误
    Set ws = wb.Worksheets(sheetName)
    On Error GoTo 0 ' 恢复默认错误处理逻辑
    WorksheetExists = Not (ws Is Nothing) ' 若ws不为空则说明工作表存在
End Function

方式2：遍历检查法（直观无错误捕获） #

遍历目标工作簿的所有工作表，逐一匹配名称：

Function WorksheetExists(sheetName As String, wb As Workbook) As Boolean
    Dim ws As Worksheet
    For Each ws In wb.Worksheets
        ' 用UCase实现不区分大小写匹配，不需要的话可直接写ws.Name = sheetName
        If UCase(ws.Name) = UCase(sheetName) Then
            WorksheetExists = True
            Exit Function ' 找到目标工作表后直接退出循环
        End If
    Next ws
    WorksheetExists = False ' 遍历完未找到，返回False
End Function

遍历工作簿的完整逻辑示例 #

把上述函数嵌入到你的遍历流程中，以下是两种常见场景的代码：

场景1：遍历已打开的所有工作簿 #

Sub ProcessOpenWorkbooks()
    Dim wb As Workbook
    Dim targetSheetName As String
    targetSheetName = "app173" ' 替换成你需要检查的工作表名称
    
    For Each wb In Application.Workbooks
        If WorksheetExists(targetSheetName, wb) Then
            ' 工作表存在，执行你的特定操作，示例如下：
            With wb.Worksheets(targetSheetName)
                .Range("A1").Value = "已处理" ' 在A1单元格写入标记
                .Columns("A:C").AutoFit ' 自动适配列宽
                ' 这里添加你需要的其他操作
            End With
        Else
            ' 工作表不存在，跳过当前工作簿（可添加日志输出）
            Debug.Print "工作簿[" & wb.Name & "]中不存在目标工作表，已跳过"
        End If
    Next wb
End Sub

场景2：遍历指定文件夹下的Excel文件 #

如果需要处理未打开的工作簿，用以下代码：

Sub ProcessFolderWorkbooks()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim targetSheetName As String
    
    targetSheetName = "app173"
    folderPath = "C:\你的目标文件夹路径\" ' 替换成实际文件夹路径
    fileName = Dir(folderPath & "*.xlsx") ' 仅处理xlsx格式，可改为*.xls或*.xlsm
    
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & fileName)
        If WorksheetExists(targetSheetName, wb) Then
            ' 执行特定操作
            With wb.Worksheets(targetSheetName)
                .Range("B2").Value = Now() ' 写入当前处理时间
            End With
            wb.Save ' 保存修改
        Else
            Debug.Print "文件[" & fileName & "]中不存在目标工作表，已跳过"
        End If
        wb.Close SaveChanges:=False ' 关闭工作簿（已保存过则无需再次保存）
        fileName = Dir() ' 获取下一个文件
    Loop
End Sub

关键说明 #

• 函数返回Boolean值，True代表工作表存在，False代表不存在
• 遍历未打开的工作簿时，记得处理文件路径和格式匹配问题
• 使用With语句可以简化操作工作表的代码，同时提升执行效率

内容的提问来源于stack exchange，提问作者vbabeginnercs