研究了一下用代码获取VBA中的全部宏名称的方法

jaxxcyh

准备工作1：信任对VBA工程对象模型的访问
准备工作2：引用VBIDE库(Microsoft Visual Basic for Applications Extensibility 5.3)

代码如下：

1. Sub ListProceduresInModule()
   
2.     Dim vbProj As VBIDE.VBProject      '定义工程对象
   
3.     Dim vbComp As VBIDE.VBComponent    '定义工程组件对象
   
4.     Dim myCodeModule As Object         '定义代码模块对象，其CountOfLines属性可以获取代码总行数，
   
5.                                        'lines函数可获取某一行或几行的代码文本
   
6.     Dim lineCodeTxt$, lenOfLineCode%   '行代码文本、长度
   
7.     Dim microName$                     '宏名称
   
8.    
   
9.     Set vbProj = ThisWorkbook.VBProject ' 获取当前工作簿的VB项目
   
10. 
    
11.     For Each vbComp In vbProj.VBComponents         '遍历所有组件
    
12.         If vbComp.Type = vbext_ct_StdModule Then   '检查组件是否是标准模块
    
13.             Set myCodeModule = vbComp.codeModule   '获取代码模块
    
14. 
    
15.             For i = 1 To myCodeModule.CountOfLines              '扫描所有代码行
    
16.                 lineCodeTxt = myCodeModule.Lines(i, 1)          '获取一行代码文本
    
17.                 lenOfLineCode = Len(lineCodeTxt)                '获取一行代码长度
    
18.                 If Left(lineCodeTxt, 3) = "Sub" Then            '检查是不是Sub开头
    
19.                     microName = Mid(lineCodeTxt, 5, InStr(1, lineCodeTxt, "(") - 5)  '获取宏名称
    
20.                     Debug.Print microName
    
21.                 End If
    
22.             Next i
    
23.         End If
    
24.     Next vbComp
    
25. End Sub

复制代码

jaxxcyh

ykcbf1100 发表于 2024-8-28 19:35
怎么使用呢？

修改了一下程序，可以实现以下功能：
1.列出所有宏或函数的名称 - listMicro
2.删除指定宏 - delMicro("宏名称")
3.判断指定宏是否存在 - isExistMicro("宏名称")

ykcbf1100

怎么使用呢？

ykcbf1100

jaxxcyh 发表于 2024-8-28 20:34
修改了一下程序，可以实现以下功能：
1.列出所有宏或函数的名称 - listMicro
2.删除指定宏 - delMicor( ...

挺不错的。
顶一个！

micch

检查是不是sub开头不够准确，新手可能这样写，标准的代码，可不一定是sub开头的。

标准的写法，是会写  public 或者private 进行指定，甚至有时候还会用 static。

另外，函数function也会是独立的一个过程

jaxxcyh

micch 发表于 2024-8-28 21:42
检查是不是sub开头不够准确，新手可能这样写，标准的代码，可不一定是sub开头的。

标准的写法，是会写   ...

有道理，这么说的话得检查好几种开头的情况了。有没有什么省事点的办法？

wcj6376tcp

jaxxcyh 发表于 2024-8-28 23:15
有道理，这么说的话得检查好几种开头的情况了。有没有什么省事点的办法？

是不是可以把可能用到的  public sub 或者private sub 等等写入数组？

大灰狼1976

可根据包含sub，且后面包含()来判断，因为end sub和exit sub后面没有括号，function大同小异

大灰狼1976

但是还有一种情况，变量名中包含sub也会误判，所以要加个条件，sub前后不能有空格以外的其他字符。

jaxxcyh

大灰狼1976 发表于 2024-8-29 09:55
但是还有一种情况，变量名中包含sub也会误判，所以要加个条件，sub前后不能有空格以外的其他字符。

能否用正则表达式来匹配出定义宏或函数的代码句子？
Ai提供了一个正则模式：
Regex.Pattern = "^\s*(Public|Private|Friend)?\s*(Sub|Function)\s+\w+\s*$$[^$$]*$$(\s+As\s+[^\s]+)?"
真的像看天书一样。然后它又说这也不是万能的，参数列表里如何出现更复杂的修饰词，这模式也对付不了。