VBA有没有途径可以实现把字符串, 当代码运行?

microyip · 发表于 2019-6-11 17:26

可以用Application.Run来执行字符串过程名，但好像没印象有直接执行命令的，我也期待一下高手们的指点

cgx5871 · 发表于 2019-6-11 22:16

lsdongjh 发表于 2019-6-11 17:24
建议楼主先搞清楚几个概念，VBA并不是真正意义上的编程，它只是微软公司为了扩展Windows的应用程序，尤其是 ...

先赚一个亿的目标, 对我还是太大了, 我只想摆摆水果摊过日子呀, 都知道今年收成不好.

microyip · 发表于 2019-6-12 07:44

针对你的问题，去查了一下资料，似乎只能把你想执行的语句模拟或者实际在一个模块里写入过程后执行

lss001 · 发表于 2019-6-12 15:41

本帖最后由 lss001 于 2019-6-13 11:27 编辑

见以下↓楼！！！

cgx5871 · 发表于 2019-6-12 20:19

lss001 发表于 2019-6-12 15:41
Sub xxx()
mystr="Selection.Select"
Call RunStr(mystr)

With sc = CreateObject("ScriptControl")
这个提示出错, 是不是需要后期绑定什么的?
请教一下,要怎么写呢?

----
百度了一下, 已经勾选了Microsoft script control 1.0
还是不行. 是需要什么词句绑定吗?

lss001 · 发表于 2019-6-12 20:29

本帖最后由 lss001 于 2019-6-13 12:07 编辑

可参考楼下更正！

vbexcelhome · 发表于 2019-6-12 20:42

VB执行汇编语言就是这个思路，把汇编语句转换成字符串（16进制机器码），然后写入内存执行。

cgx5871 · 发表于 2019-6-12 21:29

zopey 发表于 2019-6-9 18:13
引用 VBProject.VBComponents

这个好像只运行一段代码, 不能传递参数.

cgx5871 · 发表于 2019-6-12 21:29

https://tablacus.github.io/scriptcontrol_en.html

lss001 · 发表于 2019-6-13 11:26

本帖最后由 lss001 于 2019-6-13 11:28 编辑

Sub xxx()
mystr = "Selection.Select"
Call RunStr(mystr)
End Sub

Sub RunStr(mystr)
With CreateObject("ScriptControl")
      .Language = "JScript"
      .AddObject "Selection", Cells(1, 1)
      .Eval (mystr & ";")
End With
End Sub

		自动登录	找回密码
密码			免费注册

[求助] VBA有没有途径可以实现把字符串, 当代码运行?

评分

评分

最新热点 /1