动态执行文本vba代码

Public Sub StringExecute(s As String)

    Dim vbComp As Object

 

   

    Set vbComp = ThisWorkbook.VBProject.VBComponents.Add(1)

    vbComp.Name = "aaa"

    vbComp.CodeModule.AddFromString "Sub foo" & vbCrLf & s & vbCrLf & "End Sub"

   

 

   

    Application.Run vbComp.Name & ".foo"

    ThisWorkbook.VBProject.VBComponents.Remove vbComp

End Sub

 

Sub Testing()

    StringExecute "MsgBox" & """" & "Job Done!" & """"

End Sub