Excel VBA - 以編程方式將代碼插入工作表中的特定子宏代碼模塊

Question

這是一個主題（據我所知）沒有觸及CPearson's resource site（這對於那些希望在宏中使用宏Excel以編程方式將代碼插入新工作表/工作簿或現有工作表/工作簿）。

我目前有Sheet1包含一系列四到五個獨立的子宏，它們執行的功能目前不會相互影響。我編寫了一個宏，當用戶按下按鈕激活時，會創建一個新的工作表並在該工作表上插入幾行代碼（此任務已完成且功能正常）。

我的目標是在此過程中添加一行，以便一旦執行了上述操作，「code of line xyz＃1」將被添加到此CodeModule中的特定過程中，即：「Sub MacroMain ）」。

我目前能夠使用以下，其中「AddCode」是一個文本字符串（幾乎）達到這樣的結果：

ActiveWorkbook.VBProject.VBComponents(Sheets("Sheet1").CodeName).CodeModule.AddFromString AddCode 

但是這種解決方案的問題是，它只是增加了新線代碼到Sheet1的CodeModule的最上部分，而不是特定的子宏Sub MacroMain。試圖在上面的行中引用SubMacroMain不幸會產生「預期的函數或變量」錯誤。我認爲這是我的用戶格式錯誤。

我想知道是否應該使用上面列出的代碼行來遵循特定的語法，以便將此過程中插入的代碼放入Sheet1的CodeModule中的特定宏中。

謝謝。

Answer 1

您有幾個選項。如果您知道確切的行號，則可以使用 InsertLines在特定行號處添加行。例如：

Sub AddLineToModule(LineNum as Long, StrLineText as String) 
    Dim VBProj As VBIDE.VBProject 
    Dim VBComp As VBIDE.VBComponent 
    Dim CodeMod As VBIDE.CodeModule 
    Const DQUOTE = """" ' one " character 

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

    CodeMod.InsertLines LineNum, StrLineText 

    Set VBProj = Nothing 
    Set VBComp = Nothing 
    Set CodeMod = Nothing 
End Sub 

斜體原液：如果你不知道確切的行號，你可以通過它讀取整個模塊爲一個字符串數組，然後循環和你想要的行之後添加一行。我手頭沒有示例，但如果需要，可以稍後添加。編輯：感謝Mikegrann，一個可能更好的解決方案是使用Module.Find;但是，下面的評論中有一些辯論是否這是一個可取的解決方案（請參閱Mat's Mug的更新）。根據OP的具體問題，這可能是一種可行的方法。 編輯2：每個評論，Module.Find不應該在大多數情況下（如果不是全部）使用。使用VBIDE API或自定義數組搜索功能可靠地查找一行代碼。最後，如果您不知道模塊中的確切行號，但知道相對於特定過程開始的確切行號，則可以使用上述第一個示例和ProcStarLine的組合。

Sub AddLineToProcedure(StrProcName as String, LineNum as Long, StrLineText as String) 
    Dim VBProj As VBIDE.VBProject 
    Dim VBComp As VBIDE.VBComponent 
    Dim CodeMod As VBIDE.CodeModule 
    Const DQUOTE = """" ' one " character 

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

    With CodeMod 
     LineNum = LineNum + .ProcStartLine(ProcName, vbext_pk_Proc) 
     .InsertLines LineNum, StrLineText 
    End With 

    Set VBProj = Nothing 
    Set VBComp = Nothing 
    Set CodeMod = Nothing 
End Sub 


    ProcName = "DeleteThisProc" 
    With CodeMod 
     StartLine = .ProcStartLine(ProcName, vbext_pk_Proc) 
     NumLines = .ProcCountLines(ProcName, vbext_pk_Proc) 
     .DeleteLines StartLine:=StartLine, Count:=NumLines 
    End With