说一下，shell是运行cmd命令的，也就是运行里面能执行的命令，不是vb命令

要运行vb命令，实际上是运行vbs命令，而不是vb命令，因为vb是有界面系统的。

这可以用引用一个可以操作vbs的对象实现

这里说一个简单点的，调用api，代码如下：

Private Declare Function EbExecuteLine Libvba6.dll (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

‘先声明api

Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean

ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0

End Function

’写一个操作函数，调用：ExecuteLine(命令文本)；返回为false则表示执行错误

Private Sub Command1_Click()

‘这里可以按你的程序改

Dim dm() As String

Dim i As Long

dm = Split(Text1, vbCrLf)

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

1、先将命令读取到字符串中，

2、使用shell 运行字符串。

可以 调用 shell 函数

转载请注明：亿家范文网 » vb编程中，怎样运行txt文档中的vb代码命令？