如何判断Excel.Sheets集合中对象的XlSheetType？求更优方案

你的实现是可用的，但有更简洁可靠的优化方案，核心是用**对象类型检查（TypeOf）**替代字符串类型名判断，结合XlSheetType枚举直接映射，避免字符串匹配的潜在风险（比如本地化环境下TypeName返回的文本可能变化）。

优化后的代码实现 #

Public Sub GetSheetTypeTest()
    Dim wb As Excel.Workbook
    Dim sht As Object
    Set wb = Excel.ActiveWorkbook
    For Each sht In wb.Sheets
        Debug.Print sht.Name, GetSheetType(sht)
    Next
End Sub

Public Function GetSheetType(ByRef sheet As Object) As Excel.XlSheetType
    If TypeOf sheet Is Excel.Worksheet Then
        GetSheetType = XlSheetType.xlWorksheet
    ElseIf TypeOf sheet Is Excel.Chart Then
        GetSheetType = XlSheetType.xlChart
    ElseIf TypeOf sheet Is Excel.DialogSheet Then
        GetSheetType = XlSheetType.xlDialogSheet
    End If
End Function

优化点说明 #

• TypeOf检查更稳定：直接针对对象接口类型判断，不受系统语言、本地化设置影响，比TypeName的字符串匹配更可靠。
• 逻辑更清晰：无需依赖sheet.Type属性（Chart对象的Type返回的是图表类型而非工作表类型），直接返回对应XlSheetType枚举值，避免混淆。
• 代码更简洁：去掉中间变量typName，减少冗余，可读性更强。

如果需要覆盖更多Sheet类型（比如xlMacroSheet），只需添加对应的TypeOf判断分支即可。

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