查看 Excel 是否处于 .NET 中的单元格编辑模式的解决方法

我有一个用 VB.NET 编写的应用程序，它通过互操作与 Excel 进行交互。 我最终遇到了单元格编辑模式的已知问题（请参阅 and 堆栈溢出 https://stackoverflow.com/questions/221984/how-to-tell-if-excel-application-is-in-cell-edit-mode一些背景）。

我一直在尝试将建议的代码转换为 VB.NET，但不断收到以下错误：

Reference required to assembly 'office, Version=11.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c' containing the type 'Microsoft.Office.Core.CommandBars'. Add one to your project. (BC30652) - E:\ ... .vb:3471

原始C#代码（来自之前提到的文章）如下

private bool IsEditMode()
{
   object m = Type.Missing;
   const int MENU_ITEM_TYPE = 1;
   const int NEW_MENU = 18;

   // Get the "New" menu item.
   CommandBarControl oNewMenu = Application.CommandBars["Worksheet Menu Bar"].FindControl(MENU_ITEM_TYPE, NEW_MENU, m, m, true );

  if ( oNewMenu != null )
  {
     // Check if "New" menu item is enabled or not.
     if ( !oNewMenu.Enabled )
     {
        return true;
     }
  }
  return false;
}

我转换后的VB.NET代码如下

Private Function isEditMode() As Boolean
    isEditMode = False
    Dim m As Object = Type.Missing
    Const  MENU_ITEM_TYPE As Integer = 1
    Const  NEW_MENU As Integer = 18

    Dim oNewMenu As Office.CommandBarControl
    ' oExcel is the Excel Application object 
    ' the error is related to the below line
    oNewMenu = oExcel.CommandBars("Worksheet Menu Bar").FindControl(MENU_ITEM_TYPE, NEW_MENU, m, m, True)
    If oNewMenu IsNot Nothing Then
        If Not oNewMenu.Enabled Then
            isEditMode = True
        End If
    End If
End Function

我已添加对 Microsoft Office 对象库的 (COM) 引用

Imports Office = Microsoft.Office.Core
Imports Microsoft.Office.Interop

我有点卡住了。我已经尝试过间接引用 CommandBar 对象，并重新添加引用，但无法找出问题所在。有任何想法吗？

作为快速而肮脏的修复，我使用以下代码作为替代

Private Function isEditMode() As Boolean
    isEditMode = False
    Try
        oExcel.GoTo("###")
    Catch Ex As Exception
       ' Either returns "Reference is not valid." 
       ' or "Exception from HRESULT: 0x800A03EC"
       If ex.Message.StartsWith("Exception") then isEditMode  = True
    End Try     
End Function

当 Excel 处于单元格编辑模式时，.GoTo 函数（和相应的菜单项）不可用。 如果代码运行时用户正在单元格中工作，则为 .GoTo 函数指定一个虚拟目标不会执行任何操作，也不会产生任何影响。

额外的一点是不需要引用 Microsoft Office 对象 (Microsoft.Office.Core) 库。