Question

如何提取一个excel文件中使用的所有宏命令名称？高手请解答。

请编写VBA代码把一个excel文件中的宏名称提取出来。
就是VBA编程sub 名称（），这个名称的提取出来

Answer 1

下面代码是提取sheet1中所有的宏名称：
Sub main()
Set CodeMod = ThisWorkbook.VBProject.VBComponents("sheet1").CodeModule
LineNum = CodeMod.CountOfDeclarationLines + 1
ProcName = CodeMod.ProcOfLine(LineNum, 1)
Range("A1") = ProcName
i = 1
Do Until LineNum >= CodeMod.CountOfLines
LineNum = LineNum + CodeMod.ProcCountLines(ProcName, 0)
ProcName = CodeMod.ProcOfLine(LineNum, 1)
i = i + 1
Range("A" & i) = ProcName
Loop
End Sub

追问

请问如何具体操作？我把代码粘贴进编辑器里后执行后出现了错误。
取出来的名称是放在哪里？

追答

这里是提取sheet1中的所有宏，你可以放到sheet2中
然后宏名会出现在sheet2的A列中
如果是提取模块中的宏名，需要更改几个参数

追问

运行错误？

是提取模块中的宏名。

追答

模块中你就把下面的sheet1改成你的模块名啊

Set CodeMod = ThisWorkbook.VBProject.VBComponents("sheet1").CodeModule

截图给你演示：

1. 模块1中有几个宏

   

2. sheet2中添加代码：

   

3. 代码执行结果：

   

   
   

Answer 2

如果宏名称不是很多的话，就还是手动复制出来吧，很快的
用代码可能提取可能不行的。

追问

看来是只能这样了。