如何用VB调用一个外部EXE程序？

使用Shell函数函数。

Shell函数是VB中的内部函数，它负责执春行行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。

Shell的语法：Shell(PathName[，WindowStyle])。

PathName 为必需参数。类型为String，它指出了要执行的程序名，以扒野哗及任何需要的参数或命令行变量，也可以包括路径名。

WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。

示例，打开当前程序所脊链在目录下的TEMP.EXE文件：

Dim a As Integer

a = Shell(App.Path &"\TEMP.EXE")

调用外部程序使用Shell语句，下面的实例是调用CMD命令打开DOS窗口并执行Dir命令，将浏览结果存入文件，然后用open语句打轿蠢开文件，读入vba，实例中使用的是绝对路径，如果是相对路径用“&”表示盘符，您要调用计算器，并获闭知陪取计算器的计算结果，仅调用外部程序猛粗是不行的，我尝试使用API函数钩子，结果是自己重新写一个计算器都没那么费神

Sub shellcall()

Shell "cmd /c dir c:\>c:\1aaa.txt"

Open "c:\11ss.txt" For Input As #1

Dim s As String

While Not EOF(1)

Line Input #1, s

Debug.Print s

Wend

Close #1

End Sub

---