VB中如何调用外部程序

就用shell函数 足够了

shell "cmdexe",vbhide

如果不加vbhide的ua会闪过一个黑屏 不爽

如果要执行cmd命令 shell "cmd /c net user>c:\1txt",vbhide

执行了net user命令 回显输出到了c:\1txt里

你可以这样写：

x = Shell("C:\Program files\Microsoft office\office14\POWERPNTEXE")

如果你还想用POWERPNT打开指定的文件，可以如下写，注意，要打开的文件名与前面的指令间为空格！

x = Shell("C:\Program files\Microsoft office\office14\POWERPNTEXE d:\jh\第3章指令ppt")

如果你的OFFICE安装路径或版本与我的不一样，可能的路径名有点差别，自己改去吧。。。

以上语句我已经正确运行了。

Dim myClass As New Class1

'声明了一个myClass的Class1的实例

'把Class1换成你的类模块的名称

'把myClass换成你想要的一个变量名

Private Sub Cmdsave_Click()

Dim fn

Dim i '偶数个数

Dim s '偶数和

fn = FreeFile

i = Val(lblcountCaption)

s = Val(lblsumCaption)

'添加代码完成指定功能

Open "d:\outtxt" For Output As #fn

Write #fn, i, s

Close #fn

End Sub

Private Sub Cmdsum_Click()

Dim fn

Dim i '存放偶数个数

Dim s '存放偶数和

Dim t As Integer

fn = FreeFile

i = 0

s = 0

'添加代码完成指定功能

'当然是先打开文件啦

Open AppPath & "\datatxt" For Input As #fn

'我读

Do Until EOF(fn)

Input #fn, fn

If Iseven(CInt(Val(fn))) Then

i = i + 1

s = s + Val(fn)

End If

fn = FreeFile - 1

Loop

lblcountCaption = i

lblsumCaption = s

Close #fn

End Sub

假设你的子程序是：\x0d\function mysub(a,b,c)\x0d\\x0d\end function\x0d\\x0d\调用时可以这样：\x0d\call mysub(m,n,p)\x0d\\x0d\也可以这样：\x0d\mysub m,n,p\x0d\\x0d\注意上面两种调用方法的区别：一个要括号，一个不能加括号。

以上就是关于VB中如何调用外部程序全部的内容，包括:VB中如何调用外部程序、请问VB如何调用一个程序打开另一个程序、vb怎么调用exe中的类模块等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！