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

Question

我有一个用 VB.NET 编写的应用程序，它通过互操作与 Excel 进行交互。我最终遇到了 Cell-edit mode 的已知问题（有关一些背景信息，请参阅MSDN和stackoverflow）。

我一直在尝试将建议的代码转换为 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 对象，并重新添加引用但无法弄清楚问题所在。有任何想法吗？

score 3 · Accepted Answer

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

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) 库的引用。

score 1 · Accepted Answer

Function ExcelIsBusy()
ExcelIsBusy = Not Application.Ready
Dim m
m = Empty
Const MENU_ITEM_TYPE = 1
Const NEW_MENU = 18

Dim oNewMenu
Set oNewMenu = Application.CommandBars("Worksheet Menu Bar").FindControl(MENU_ITEM_TYPE, NEW_MENU, m, m, True)
If Not (oNewMenu Is Nothing) Then
    If Not oNewMenu.Enabled Then
        ExcelIsBusy = True
        'throw new Exception("Excel is in Edit Mode")
    End If
End If

End Function

score 1 · Accepted Answer

我们以前使用过该Application.CommandBars["Worksheet Menu Bar"]方法，但遇到了一个缺陷。在编辑模式下退出 Excel 时，编辑模式取消，但该函数仍返回 true，因为菜单项已作为关机的一部分被禁用。

我们改用以下解决方案：

public static bool ApplicationIsInEditMode(Application application)
{
    try
    {
        application.ReferenceStyle = application.ReferenceStyle;
    }
    catch (COMException e)
    {
        return true;
    }
    return false;
}

score 1 · Accepted Answer

一个较旧的帖子，但不是一个老问题。上面的检测和退出解决方案很好，但我找到了另一个让 Excel 退出编辑模式的解决方案，它不需要使用 API 来查找窗口或使用 Sendkeys 来单击单元格，我的解决方案使用事件。Excel 甚至可以处于编辑模式并最小化，这个解决方案仍然有效。如果您正在阅读本文，您可能不需要确切的代码，但如果您需要，请告诉我。首先使用类似于之前解决方案的 try catch 检测 Excel 编辑模式，如果 Excel 处于编辑模式，则设置全局标志 True。然后告诉 Excel 关闭。即使在编辑模式下，此操作也可用。在 Excel OnClosing 事件中检查是否设置了 Global 标志，如果设置了 On Closing 事件“e.Cancel”为 True，这将停止 Excel 关闭。

score 0 · Accepted Answer

以下代码将检测 excel 是否处于编辑模式并退出：

private void exitEditMode()
{

    if (!isExcelInteractive())
    {
        // get the current range
        Excel.Range r = Globals.ThisAddIn.Application.ActiveCell;
        // bring Excel to the foreground, with focus
        // and issue keys to exit the cell
        xlBringToFront();
        Globals.ThisAddIn.Application.ActiveWindow.Activate();
        SendKeys.Flush();
        SendKeys.SendWait("{ENTER}");
        // now make sure the original cell is
        // selected…
        r.Select();
    }
}

private bool isExcelInteractive()
{
    try
    {
        // this line does nothing if Excel is not
        // in edit mode. However, trying to set
        // this property while Excel is in edit
        // cell mdoe will cause an exception
        Globals.ThisAddIn.Application.Interactive = Globals.ThisAddIn.Application.Interactive;
        return true; // no exception, ecel is 
        // interactive
    }
    catch
    {
        return false; // in edit mode
    }
}

private void xlBringToFront()
{
    SetForegroundWindow(Globals.ThisAddIn.Application.Hwnd);
}

[DllImport("User32.dll")]
public static extern Int32 SetForegroundWindow(int hWnd);

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

5 回答 5

Related

Reference