ExcelDna：如何判断普通工作表是否为当前激活状态

针对你的需求，有两种可靠的解决方案，分别解决你之前两种方法存在的问题：

方案一：利用Worksheet的Type属性区分普通工作表与宏表 #

你的第二种COM方法无法区分普通工作表和宏表，是因为宏表也属于Worksheet类型，但可以通过Worksheet.Type属性精准判断。Excel的XlSheetType枚举明确区分了不同工作表类型：

• xlWorksheet（值为1）：普通工作表
• xlExcel4MacroSheet（值为3）：Excel 4.0宏表
• xlExcel4IntlMacroSheet（值为4）：Excel 4.0国际宏表

改进后的代码如下：

Private Function IsNormalWorksheetActive() As Boolean
    Try
        Dim app As Microsoft.Office.Interop.Excel.Application =
            CType(ExcelDna.Integration.ExcelDnaUtil.Application,
                  Microsoft.Office.Interop.Excel.Application)

        If app Is Nothing OrElse app.Workbooks.Count = 0 Then
            Return False
        End If

        Dim sheet As Object = app.ActiveSheet
        If sheet Is Nothing Then Return False

        ' 先判断是否为Worksheet类型，再检查Type属性
        If TypeOf sheet Is Microsoft.Office.Interop.Excel.Worksheet Then
            Dim ws As Microsoft.Office.Interop.Excel.Worksheet = CType(sheet, Microsoft.Office.Interop.Excel.Worksheet)
            Return ws.Type = Microsoft.Office.Interop.Excel.XlSheetType.xlWorksheet
        End If

        Return False
    Catch
        Return False
    End Try
End Function

方案二：修复Excel4宏函数的调用 #

你第一种方法始终返回FALSE，大概率是因为ExcelDna中调用ExecuteExcel4Macro时的上下文问题。可以通过ExcelAsyncUtil.QueueAsMacro确保在Excel主线程执行该宏函数，避免跨线程或上下文错误。

改进后的代码如下：

Private Function IsNormalWorksheetActive() As Boolean
    Dim result As Integer? = Nothing
    ' 利用QueueAsMacro确保在Excel主线程执行宏函数
    ExcelDna.Integration.ExcelAsyncUtil.QueueAsMacro(Sub()
        Dim app = ExcelDna.Integration.ExcelDnaUtil.Application
        If app Is Nothing OrElse app.Workbooks.Count = 0 Then
            result = Nothing
            Return
        End If
        Dim rawResult As Object = app.ExecuteExcel4Macro("GET.DOCUMENT(3)")
        If rawResult IsNot Nothing Then
            result = CInt(rawResult)
        End If
    End Sub)
    
    ' 等待宏执行完成（简单同步处理，若需异步可调整）
    While result Is Nothing
        System.Threading.Thread.Sleep(10)
        System.Windows.Forms.Application.DoEvents()
    End While
    
    Return result = 1
End Function

注意事项 #

• 方案一更推荐，因为它基于官方COM API，稳定性和可读性更强，无需依赖Excel4宏函数的兼容性。
• 方案二中的同步等待逻辑如果在Ribbon回调中使用，需注意避免阻塞UI，若有性能问题可考虑异步回调模式。

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