首先：Imports System.Runtime.InteropServices
然后：
Private Declare Function EbExecuteLine Lib "VBA6.DLL" (ByVal p
StringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
' <DllImport("VBA6.DLL", EntryPoint:="EbExecuteLine", SetlastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> Public Shared Function EbExecuteLine(ByVal p
StringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
'<DllImport("D:\vba6.dll", CharSet:=CharSet.Ansi, SetlastError:=True)> Public Shared Function EbExecuteLine(ByVal p
StringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
'End Function
'<DllImport("vba6.dll", CharSet:=CharSet.Ansi, SetlastError:=True)>
'Public Shared Function EbExecuteLine(ByVal p
StringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
'End Function
'定义StrPtr函数，实现获取字符串地址功能
Private Function StrPtr(ByVal e As Object) As Int32
Dim GC As System.Runtime.InteropServices.GCHandle = System.Runtime.InteropServices.GCHandle.Alloc(e, System.Runtime.InteropServices.GCHandleType.Pinned)
Dim GC2 As Int32 = GC.AddrOfPinnedObject.ToInt32
GC.Free()
Return GC2
End Function
Function ExecuteLine(ByVal sCode As
String, Optional ByVal fCheckOnly As Boolean = True) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0, 0, 0)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dm() As
String
Dim i As Long
dm = Split(TextBox.Text, ";")
For i = 0 To UBound(dm)
If Len(dm(i)) <> 0 Then
Dim Result As Boolean
Result = ExecuteLine(dm(i))
If Result = False Then Debug.Print(i + 1 & vbTab & "行执行错误")
Else
Debug.Print(i + 1 & vbTab & "行代码错误")
End If
Next
End Sub
扫一扫
276
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
