如何以编程方式将代码添加到工作表？

Question

我有一些我添加到工作表中的代码

Right Click on the Sheet1 -> View Code -> Paste my code to the Module

如何以编程方式执行此操作？

Worksheets("Sheet1").Select
'Then what ? ? ? 

Answer 1

我会质疑你的最终目的，因为拥有一个代码副本而不是每张表中的副本可能更有效，但是.......

Sub AddCode()
    Dim ws As Worksheet: Set ws = Worksheets("sheet2")
    Dim wb As Workbook:  Set wb = ActiveWorkbook
    Dim code As String:  code = "Sub Duh()" & vbCrLf & " debug.print(""I'm Here!"")" & vbCrLf & "End Sub"

    Dim lineCount As Integer

    With wb.VBProject.VBComponents(ws.Name).CodeModule
        lineCount = .CountOfLines
        If lineCount > 0 Then
            .DeleteLines 1, lineCount
        End If
        .AddFromString code
    End With
End Sub