vba - 从另一个 VBA 代码注释 vba 代码

Question

我想从另一个代码 VBA 中评论包含 Msg Box 的行。我正在尝试使用 Library VBA EXTENSIBILITY，但我没有找到解决方案。

欢迎任何帮助。

这是我的代码:

Sub CommentCode()
        Dim VBProj As VBIDE.VBProject
        Dim VBComp As VBIDE.VBComponent
        Dim CodeMod As VBIDE.CodeModule
        Dim LineNum As Long
        Const QUOTE = ' 

        Set VBProj = ActiveWorkbook.VBProject
        Set VBComp = VBProj.VBComponents("ThisWorkbook")
        Set CodeMod = VBComp.CodeModule

        With CodeMod
            LineNum = .CreateEventProc("Open", "Workbook")
            LineNum = LineNum + 1
            .InsertLines LineNum,  QUOTE 
        End With
    End Sub

Answer 1

首先，请改变
Const QUOTE = '
对此:
Const QUOTE = "'"
基本上你的报价(或 Rem )将是一个字符串，需要用引号引起来。

至于 VB 可扩展性 ，您可能需要在找到该行后删除该行，并在开头插入带有注释的新行。

见 Chip Pearson: Programming in the VBA Editor