我正在使用 C# (.NET 4.0) 为 Excel 2007 开发应用程序级插件。以前有人问过类似的问题>>
https://stackoverflow.com/questions/11374023/resizing-namedrange-throws-a-controlnotfoundexception
但是对他们的回应(如果有的话)对我不起作用。所以我想详细描述我正在尝试做的事情,以及当我尝试这样做时会发生什么。
非常简单地说,我的问题是,在代码中的其他地方实例化和初始化它们之后,我无法获取 NamedRange 控件对象来修改它们。
请继续阅读以获得更完整的描述。
当 AddIn 启动时,它会创建一个 NamedRange 控件并将其附加到特定工作表上的某些单元格 >>
Worksheet worksheet = Globals.Factory.GetVstoObject(
Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet);
Excel.Range cell = worksheet.Range["A1"];
_configParams.HeaderNamedRange = worksheet.Controls.AddNamedRange(cell, "HeaderCells");
_configParams.HeaderNamedRange.RefersTo = "=" + worksheet.Name + "!$A$1:$A$5";
AddIn 启动后,我希望允许用户重新指定此 NamedRange 控件可以指向的单元格。为此,我让用户选择一系列单元格,然后在合适的事件处理程序方法中获取所选单元格的位置(作为字符串)。
然后,我打算以编程方式重新指定上述 NamedRange 控件指向的单元格。我尝试了以下方法,但它们都不起作用。
[方法一]
Worksheet controlWorksheet = Globals.Factory.GetVstoObject(Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet);
((NamedRange)(controlWorksheet.Controls["HeaderCells"])).RefersTo = newHeaderCellsLocation;
在运行上述代码时,它会引发 ControlNotFoundException,并且我收到以下消息:
Microsoft.VisualStudio.Tools.Applications.Runtime.ControlNotFoundException was unhandled by user code
Message=This document might not function as expected because the following control is missing: PortfolioHeaderCells. Data that relies on this control will not be automatically displayed or updated, and other custom functionality will not be available. Contact your administrator or the author of this document for further assistance.
Source=Microsoft.Office.Tools.Excel.Implementation
StackTrace:
at Microsoft.Office.Tools.Excel.NamedRangeImpl.GetObjects()
at Microsoft.Office.Tools.Excel.NamedRangeImpl.EnsureProxy()
at Microsoft.Office.Tools.Excel.NamedRangeImpl.get_Proxy()
at Microsoft.Office.Tools.Excel.NamedRangeImpl.AttachSupport()
at Microsoft.Office.Tools.Excel.NamedRangeImpl.ResetControl()
at Microsoft.Office.Tools.Excel.NamedRangeImpl.set_RefersTo(String value)
at ExcelListenerAddIn.Configuration.ListenerConfigManager.ActivateListenerConfiguration(ListenerConfigParams newConfiguration, Boolean cameFromConfigFile) in C:\Users\jag201\Documents\Visual Studio 2010\Projects\PoC\ExcelListenerAddIn\Configuration\ListenerConfigManager.cs:line 97
at ExcelListenerAddIn.TaskPanes.ListenerConfigurator._activateNewConfigButton_Click(Object sender, EventArgs e) in C:\Users\jag201\Documents\Visual Studio 2010\Projects\PoC\ExcelListenerAddIn\TaskPanes\ListenerConfigurator.cs:line 131
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
InnerException: System.Runtime.InteropServices.COMException
Message=Exception from HRESULT: 0x800A03EC
Source=Microsoft.VisualStudio.Tools.Office.Runtime
ErrorCode=-2146827284
StackTrace:
at Microsoft.VisualStudio.Tools.Office.Runtime.Interop.IHostItemProvider.GetHostObject(String primaryType, String primaryCookie, IntPtr& hostObject)
at Microsoft.VisualStudio.Tools.Office.Runtime.DomainCreator.ExecuteCustomization.Microsoft.Office.Tools.IHostItemProvider.GetHostObject(Type primaryType, String primaryCookie)
at Microsoft.Office.Tools.Excel.NamedRangeImpl.GetObjects()
InnerException:
[方法二]
然后我看到通过 C# 设置 Excel 命名范围?因此尝试使用那里的答案中描述的方法:
Worksheet controlWorksheet = Globals.Factory.GetVstoObject(Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet);
controlWorksheet.Names.Item("HeaderCells", Type.Missing, Type.Missing).RefersTo = newHeaderCellsLocation;
在运行上述代码时,我收到以下异常和消息:
System.Runtime.InteropServices.COMException was unhandled by user code
Message=Exception from HRESULT: 0x800A03EC
Source=""
ErrorCode=-2146827284
StackTrace:
at System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
at Microsoft.Office.Interop.Excel.Names.Item(Object Index, Object IndexLocal, Object RefersTo)
at ExcelListenerAddIn.Configuration.ListenerConfigManager.ActivateListenerConfiguration(ListenerConfigParams newConfiguration, Boolean cameFromConfigFile) in C:\Users\jag201\Documents\Visual Studio 2010\Projects\PoC\ExcelListenerAddIn\Configuration\ListenerConfigManager.cs:line 97
at ExcelListenerAddIn.TaskPanes.ListenerConfigurator._activateNewConfigButton_Click(Object sender, EventArgs e) in C:\Users\jag201\Documents\Visual Studio 2010\Projects\PoC\ExcelListenerAddIn\TaskPanes\ListenerConfigurator.cs:line 131
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
InnerException:
因此,在这两种方法中,来自 HRESULT 的异常是相同的:0x800A03EC。此外,在我尝试获取 NamedRange 控件并重新指定它指向的单元格的行中引发了异常。
我已经单步执行了我的代码,并且当我尝试修改 NamedRange 对象时,确实存在 NamedRange 控件。
controlWorksheet.Controls["HeaderCells"]
然后我使用以下代码检查了对象的类型>>
Worksheet controlWorksheet = Globals.Factory.GetVstoObject(Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet);
System.Windows.Forms.MessageBox.Show((controlWorksheet.Controls["HeaderCells"]).ToString());
这会产生一个包含“Microsoft.Office.Tools.Excel.NamedRangeImpl”的 MessageBox。如果我没记错的话,Excel 对象模型没有公开此类型,所以我想知道问题是否是由于我将 NamedRangeImpl 对象转换为 NamedRange 控件对象造成的。
非常感谢您的帮助。如果我可以提供任何进一步的信息,请告诉我。提前致谢!