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

首先，请更改

常量 QUOTE = '

对此:

常量 QUOTE = "'"

基本上，您的报价(或 Rem)将是一个字符串，需要用引号引起来。

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

参见Chip Pearson: Programming in the VBA Editor