如何象SQL语句中的Exec那样在VB中执行一段代码?

最新推荐文章于 2021-12-07 10:41:15 发布

最新推荐文章于 2021-12-07 10:41:15 发布 · 129 阅读

文章标签：

博客介绍了利用API引用vb6a.dll实现字符串命令执行和表达式运算，但该dll只能用于IDE环境，编译后程序出错无法生成可执行文件。查资料未能完美解决此问题，最后提出ScriptControl控件调用更方便，给出的代码编译前后都能正确运行。

利用API 引用vb6a.dll (Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long)可以实现字符串命令的执行和字符串表达式的运算(http://blog.youkuaiyun.com/northwolves/archive/2004/04/05/19592.aspx),但由于VB6a.dll只能应用于IDE 环境,程序一经编译,必然出错,无法生成可执行文件.
如:

Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Private Sub Command1_Click()
ExecuteLine "dim pi as double"
ExecuteLine "pi= 4*atn(1)"
ExecuteLine "msgbox ""Pi=""& pi"
End Sub

如何解决这个问题,查了许多资料,包括在许多论坛上的讨论,也没能完美解决.个人认为还是ScriptControl控件调用方便些:

Option Explicit
Sub Main()
Dim scr As Object, mysub As String
Set scr = CreateObject("MSScriptControl.ScriptControl")
   mysub = "sub msg()" & vbCrLf
   mysub = mysub & "MsgBox ""今天是"" & WeekdayName(Weekday(Date)) & ""！"", vbOKCancel + vbInformation, ""提示"""
   mysub = mysub & vbCrLf & "end sub "
   scr.Language = "vbscript"
   scr.AddCode mysub
   scr.ExecuteStatement "msg"
   Set scr = Nothing
End Sub

上述代码在编译前后都能正确运行.