如何提取VBA代码的程序标题及注释

琉璃舟

如何将VBA代码中sub行所在的程序标题，和该行注释批量提取出来？

尤其是注释，那一行所在的或者前后的注释。例如下图'后边的内容

feilanga

不知所云。是要清空注释还是提取注释，没有代码对照，提取的注释又有何意义

tanglf188

Sub ReadModule()
    Dim modulename As String
    Dim brr As Variant, i As Double
    On Error GoTo err '防止无代码时出错
    modulename = ActiveSheet.Name  '设置模块名称
    With Application.VBE.VBProjects(1).VBComponents(modulename).CodeModule
        brr = Split(.Lines(1, .CountOfLines), vbCrLf) '将代码行拆分成字符串数组
    End With
    For i = 0 To UBound(brr) '循环每行代码
        '判断代码开头是否为Sub，执行自己所需代码
    Next
    MsgBox "代码总行数：" & UBound(brr) + 1
    End
err:
    MsgBox "无代码！"
End Sub

ykcbf1100

没看明白，路过

琉璃舟

feilanga 发表于 2024-5-20 08:40
不知所云。是要清空注释还是提取注释，没有代码对照，提取的注释又有何意义

提取注释，相当于编写的时候，已经给程序名做了一个中文名称解释备注，这样当程序过多找不到的时候，我就能抽到Excel清单里，然后好查找，因为模块也太多了……直接找不到

tanglf188

在多个模块查找需要遍历模块的
    For Each Modul In Application.VBE.ActiveVBProject.VBComponents
        Debug.Print "名称：" & Modul.Name
    Next Modul

opiona

先用代码获取所有的代码
第二张图是得到的代码文本

然后拆解这个文本, 每行用   '   或者 REM  再拆解, 你就获得了全部的注释部分了

琉璃舟

opiona 发表于 2024-5-20 20:04
先用代码获取所有的代码
第二张图是得到的代码文本

感谢您的回复，最后用Program的 ProcStartLine找到了程序所在行，然后用拆分字符的方法找到了注释。解决了问题。
但还有一点问题在于，ProcStartLine找到的不一定是程序名所在行，经常向下偏一两行，也有不偏的，可能跟我前边有空行有关？后来加了前后几行寻找的循环语句，解决了问题，但是您知道偏离一两行的原因么?

琉璃舟

tanglf188 发表于 2024-5-20 08:54
Sub ReadModule()
    Dim modulename As String
    Dim brr As Variant, i As Double

这个方法确实也可以解决，谢谢。