动态执行文本vba代码
2024-09-02 19:32:12
动态执行文本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
最新文章
- 使用D3制作图表(1)--画布绘制
- 2016年11月2日--Window.document对象
- Force.com微信开发系列(七)OAuth2.0网页授权
- lucas定理,组合数学问题
- 使用LINQ 對List分頁/區
- HDOJ --- 2084数塔
- hdu 2101
- JS给元素循环添加事件的问题
- Android Studio Module疑问
- zoj 3823 Excavator Contest(结构体)
- Object-Widgets-Quick 构造树
- hover如何在移动浏览器上触发
- zentao安装升级
- [python爬虫] Selenium常见元素定位方法和操作的学习介绍
- mac shell 获取ip,自动启动文件http服务
- 使用Sqlserver事务发布实现数据同步(zhuanqian)
- spring proxy-target-class
- 使用vim打造自己的python编辑器
- mysql 数据插入优化方法(concurrent_insert=2)
- WPF点滴(2) 创建单实例应用程序