在vb中可以运行,编译成.exe后运行出错??
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
Public 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 "msgbox (1+2)*3/4"
ExecuteLine "dim a as string"
ExecuteLine "a = ""dd"""
ExecuteLine "msgbox a"
End Sub
就是上面的例子,在vb中可以运行,编译成.exe后运行出错??谁能解释原因??
应当如何解决??vba6.dll是怎么回事??为何会出现这样问题???
先在这里多谢指教了!
问题点数:0、回复次数:2Top
1 楼LiangWu25(水手)回复于 2003-11-04 10:01:50 得分 0
是的,这个API只能工作在IDE环境下。我曾看到过,如果你想在应用程序中实现类似的功能,可以用microsoft script Control控件,但这个控件是个什么东东,我也没用过(呵呵,报歉,仅供参考)Top
2 楼prowastrel(1/8露出水面)回复于 2003-11-04 10:35:28 得分 0
http://www.156ok.com/article/article_list.asp?account_id=627
这里有解释vba6.dll是怎么回事,及IDE环境、各种编译方式所调用的VBA方法。Top




