动态执行文本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
- 点赞
- 收藏
- 分享
- 文章举报
相关文章推荐
- 关于js动态插入script 标签后页面JS代码执行失败的解决方法
- Gridview 中动态嵌入和执行 js 代码
- VB动态添加执行代码完整版(三)
- 关于动态执行代码(js的Eval)
- C#动态执行代码(改编)
- 一些自己学习的html代码(锚,动态改变文本和链接,有序无序列表等)
- 动态执行python代码
- 如何用C#动态编译、执行代码
- spring + groovy 实现动态代码注入执行
- 如何用C#动态编译、执行代码
- 动态执行 VB.NET 和 C# 代码
- 在VB中动态执行VBS代码,可操控窗体控件
- .NET中的代码动态编译执行
- 动态编译执行C#代码
- 杂记之使用代码动态的改变文本、按钮的颜色
- C#代码动态编译、动态执行、动态调试
- C#代码在后台动态执行前台脚本的几种方法
- Java学习之动态编译-动态脚本引擎-脚本引擎执行javascript代码
- C#代码动态编译、动态执行、动态调试
- Java reflect--动态执行Method-代码