请问怎么在VB里面动态执行字符串命令？

Question

RT

Answer 1

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 integer"
    ExecuteLine "a = 10"
    ExecuteLine "Print a"
    ExecuteLine "form2.show"
End Sub