您的位置：程序门 -> vb -> vba

怎样把字符串转换成命令

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

怎样把字符串转换成命令

发表于：2007-08-02 11:54:48 楼主

比如我有一函数：function aa（cmd as string) as boolean

cmd是一函数名字或一对象名，再函数中我要把cmd当成函数命令或对象来使用怎么办？注：不能直接传入对象或函数，只能按字符串传入

发表于：2007-08-02 13:17:501楼得分:0

再解释一下：
设有一函数：function aa（cmd as string) as boolean
传入 "dim aa as boolean ",在函数中我怎么样把这个字符串作为命令语句来执行？？
注：只能传入字符串，不能传入其它东西

发表于：2007-08-02 13:49:222楼得分:0

可以用script control（引用里的）

发表于：2007-08-02 13:57:073楼得分:0

传入 "dim aa as boolean ",在函数中我怎么样把这个字符串作为命令语句来执行？？

//

这句恐怕是不行

虽然能解析,但是你使用不了这个变量.....好象是这样吧...

发表于：2007-08-02 14:35:144楼得分:0

传入 "dim aa as boolean ",在函数中我怎么样把这个字符串作为命令语句来执行？？

据我所知，你的愿望要落空了

发表于：2007-08-02 16:29:485楼得分:0

我想在界面上的文本框里面写一些vba的命令，然后接收这个文本框中的字符串，把这个字符串解析成命令语句执行。
这个想法看来行不通了，除非当成做编译器来做，哈哈

发表于：2007-08-04 14:48:536楼得分:0

如果只做有限的功能,可以自己写一个脚本解释引擎

不过,这里面的逻辑设计,真是............

发表于：2007-08-06 14:27:067楼得分:0

private declare function ebＥＸＥＣuteline lib "vba6.dll " （byval pstringtoＥＸＥＣ as long, byval unknownn1 as long, byval unknownn2 as long, byval fcheckonly as long) as long ' api

private function ＥＸＥＣuteline（scode as string, optional fcheckonly as boolean) as boolean
ＥＸＥＣuteline = ebＥＸＥＣuteline（strptr（scode), 0&, 0&, abs（fcheckonly)) = 0
end function

function aa（byval cmd as string, byval expression as string) as boolean
ＥＸＥＣuteline cmd
ＥＸＥＣuteline "aa= " & expression
ＥＸＥＣuteline "clipboard.settext aa " '发送到剪切板
aa = cbool（clipboard.gettext) '从剪切板获取
clipboard.clear '清空剪切板
end function

private sub command1_click（)
msgbox aa（ "dim aa as boolean ", "3> 5 ")
end sub

发表于：2007-09-10 09:42:478楼得分:0

谢谢northwolves（狼行天下）给出的代码，很有参考价值

下一篇：用vb对word文件中的表格内容设置字体?
上一篇：请帮帮我吧！ vba 实现较复杂的查找替换

其他资讯