您的位置:首页 > 编程语言 > VB

动态执行文本vba代码

2020-02-02 05:51 691 查看

动态执行文本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

转载于:https://www.cnblogs.com/jjj250/p/11597976.html

  • 点赞
  • 收藏
  • 分享
  • 文章举报
didui8202 发布了0 篇原创文章 · 获赞 0 · 访问量 688 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: