Question

我在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互操作Application类，例如Microsoft.Office.Interop.Excel.Application类型;这里applicationName参数对于Excel来说就是“Excel”。

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

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

Answer 1

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

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

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

            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方法。

我如何获得* actual *主机应用程序实例？

1 个答案: