我在VBE的C#加载项中有这个代码(强调“VBE”：它不是MS-Office加载项)：

public abstract class HostApplicationBase<TApplication> : IHostApplication
    where TApplication : class
{
    protected readonly TApplication Application;
    protected HostApplicationBase(string applicationName)
    {
        Application = (TApplication)Marshal.GetActiveObject(applicationName + ".Application");
    }

其中TApplication是MS-Office互操作应用程序类,例如,Microsoft.Office.Interop.Excel.Application类型;这里的applicationName参数对于Excel来说就是“Excel”.

问题是Marshal.GetActiveObject似乎只返回创建的第一个实例,并且不一定是托管当前VBE环境的实例,而是this causes issues.

如何获得实际的主机应用程序实例？

解决方法:

为了杀死一个僵尸,你可以通过以下方式获得VBE主机的名称：

>检查将您带到主机的CommandBarButton标题.该按钮位于标准工具栏上,但也位于“视图”菜单中.
>检查参考文献的名称.通常,第一个不是VBA的引用是BuiltIn.
>检查文档组件的Properties集合的Application.Name属性.

要可靠地获取对VBE主机的引用,您必须使用文档类型组件的Properties集合.例如,一旦您知道主机的名称是“Microsoft Excel”,您只需要找到工作簿文档组件(通常名为ThisWorkbook),然后您就可以从组件的Properties集合中获取主机.

            var appProperty = vbe.VBProjects
                .Cast<VBProject>()
                .Where(project => project.Protection == vbext_ProjectProtection.vbext_pp_none)
                .SelectMany(project => project.VBComponents.Cast<VBComponent>())
                .Where(component => component.Type == vbext_ComponentType.vbext_ct_Document
                && component.Properties.Count > 1)
                .SelectMany(component => component.Properties.OfType<Property>())
                .FirstOrDefault(property => property.Name == "Application");
            if (appProperty != null)
            {
                Application = (TApplication)appProperty.Object;
            }
            else
            {
                Application = (TApplication)Marshal.GetActiveObject(applicationName + ".Application");
            }

但并非所有vbProject都具有文档类型组件,因此对于此类项目,您将不得不求助于GetActiveObject方法.