4

我在 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");
    }

TApplicationMS-Office 互操作类在哪里Application，例如Microsoft.Office.Interop.Excel.Application类型；这里的applicationName参数将是 Excel 的“Excel”。

问题是它Marshal.GetActiveObject似乎只返回创建的第一个实例，而这不一定是托管当前 VBE 环境的实例，这会导致问题。

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

4

1 回答 1

0

为了杀死僵尸，您可以通过以下方式获取VBE 主机的名称：

  • 检查将您带到主机的 CommandBarButton 的标题。该按钮位于标准工具栏上，但也在视图菜单中。

  • 检查引用的名称。通常第一个引用不是 VBA，而是BuiltIn.

  • 检查文档组件的 Properties 集合的 Application.Name 属性。

为了可靠地获得对 VBE 主机的引用，您必须使用文档类型组件的 Properties 集合。例如，一旦您知道主机的名称是“Microsoft Excel”，您只需要找到 Workbook 文档组件（通常命名为 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");
            }

但并不是所有的 vbProjects 都有文档类型的组件，所以对于这样的项目，你将不得不求助于这种GetActiveObject方法。

于 2016-09-10T09:01:13.283 回答