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 LongPublic Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End FunctionPrivate 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是怎么回事??为何会出现这样问题???
先在这里多谢指教了!
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End FunctionPrivate 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是怎么回事??为何会出现这样问题???
先在这里多谢指教了!
这里有解释vba6.dll是怎么回事,及IDE环境、各种编译方式所调用的VBA方法。