如何检测Excel是否打开对话框以避免VB.NET操作失败

问题场景 #

现有运行中的Excel实例，包含活动工作簿与工作表。通过VB.NET代码获取活动工作表的UsedRange时，无对话框打开可正常执行；但打开查找替换、单元格格式设置等对话框时，代码访问UsedRange会直接报错。需要实现：检测Excel是否存在打开的对话框，若存在则提示用户关闭并退出函数。

解决方案 #

核心思路是通过捕获COM异常判断Excel是否被模态对话框阻塞，或尝试访问Excel窗口属性触发异常来识别对话框状态。以下是修改后的完整代码：

首先添加检测对话框的工具函数：

Private Function IsExcelDialogOpen(excelApp As Excel.Application) As Boolean
    Try
        ' 尝试访问ActiveWindow，若有模态对话框打开会抛出COM异常
        Dim unusedWindow = excelApp.ActiveWindow
        Return False
    Catch ex As System.Runtime.InteropServices.COMException
        ' 错误代码-214677794对应Excel被对话框阻塞的情况
        If ex.ErrorCode = -214677794 Then
            Return True
        Else
            ' 其他异常重新抛出，避免掩盖真实问题
            Throw
        End If
    End Try
End Function

然后修改ImportBlocks过程，加入对话框检测逻辑：

Public Sub ImportBlocks()
    Dim eu As New ExcelUtil()
    Dim ws As Excel.Worksheet = Nothing
    Dim xr As Excel.Range
    Dim rowsCount As Integer = 0
    Dim columnsCount As Integer = 0
    Dim excelApp As Excel.Application = Nothing

    ' 获取活动工作表
    ws = eu.GetActiveExcelWorksheet()

    ' 未找到活动工作表时提示退出
    If ws Is Nothing Then
        MsgBox("未找到活动的Excel工作表。", vbExclamation Or vbOKOnly Or vbApplicationModal, "导入警告")
        Exit Sub
    End If

    ' 获取Excel应用实例
    excelApp = ws.Application

    ' 检测是否有对话框打开
    If IsExcelDialogOpen(excelApp) Then
        MsgBox("请先关闭Excel中打开的对话框，再执行导入操作。", vbExclamation Or vbOKOnly Or vbApplicationModal, "导入警告")
        Exit Sub
    End If

    ' 正常访问UsedRange并处理数据
    xr = ws.UsedRange
    rowsCount = xr.Rows.Count
    columnsCount = xr.Columns.Count

    ' 后续业务逻辑...
End Sub

也可选择在GetActiveExcelWorksheet函数中提前检测对话框，直接返回空并提示：

Public Function GetActiveExcelWorksheet() As Excel.Worksheet
    Dim excel As Excel.Application
    Dim activeWorksheet As Excel.Worksheet = Nothing

    Dim ExcelInstances As Process() = Process.GetProcessesByName("EXCEL")
    If ExcelInstances.Count() = 0 Then
        Exit Function
    End If

    excel = TryCast(Marshal.GetActiveObject("Excel.Application"), Excel.Application)
    If excel Is Nothing Then Exit Function

    ' 提前检测对话框
    Try
        Dim unusedWindow = excel.ActiveWindow
    Catch ex As System.Runtime.InteropServices.COMException
        If ex.ErrorCode = -214677794 Then
            MsgBox("请先关闭Excel中打开的对话框，再执行操作。", vbExclamation Or vbOKOnly Or vbApplicationModal, "操作警告")
            Return Nothing
        End If
    End Try

    Dim activeWorkook As Excel.Workbook = excel.ActiveWorkbook
    Dim activeSheet As Object = excel.ActiveSheet
    activeWorksheet = TryCast(activeSheet, Excel.Worksheet)

    Return activeWorksheet
End Function

关键说明 #

• 当Excel有模态对话框（如查找替换、格式设置）打开时，会阻塞对ActiveWindow等属性的访问，抛出错误代码为-214677794（十六进制0x800AC472）的COM异常，这是判断对话框状态的可靠依据。
• 捕获异常后仅处理对话框相关错误，其他异常重新抛出，避免掩盖代码中的其他问题。
• 检测到对话框后及时提示用户并退出，避免后续访问UsedRange等属性时触发报错。

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