VSTO获取工作簿的所有VBA宏

Question

在VBA中，我们可以使用例如Wb.VBProject.VBComponents来获取工作簿的所有VBA宏Wb。

有谁知道VSTO是否提供任何对象或函数来访问？

编辑1：继吉姆的回答，我有以下错误：

Answer 1

您需要参考您的项目添加到Microsoft.Vbe.Interop。您可以使用

Imports Microsoft.Vbe.Interop 

。 。

Dim components As VBComponents = Application.ActiveWorkbook.VBProject.VBComponents 

或

Dim components As VBComponents = Globals.ThisAddIn.Application.ActiveWorkbook.VBProject.VBComponents 

然后

For Each comp As VBComponent In components 

Next 

编辑：

我在C＃创建以下方法来获取宏的列表，并将它们添加到List<string>

private static void GetMacros() 
{ 
    int startLine = 0; 
    vbext_ProcKind ProcKind; 
    List<string> macros = new List<string>(); 

    VBComponents components = Globals.ThisAddIn.Application.ActiveWorkbook.VBProject.VBComponents; 
    try 
    { 
     foreach (VBComponent comp in components) 
     { 
      startLine = comp.CodeModule.CountOfDeclarationLines + 1; 
      while (startLine <= comp.CodeModule.CountOfLines) 
      { 
       string macroName = comp.CodeModule.get_ProcOfLine(startLine, out ProcKind); 
       macros.Add(macroName); 
       startLine += comp.CodeModule.get_ProcCountLines(macroName, ProcKind); 
      } 
     } 
    } 
    catch (Exception) 
    { 
     throw; 
    } 
}