Question

如何在excel中使用VBA调用其它外部程序

Answer 1

使用shell语句，例子：

Sub RAR()
    Shell "C:\Program Files\WinRAR\WinRAR.exe", vbNormalFocus
End Sub

Answer 2

shell
外壳程序，你看看可以不

Answer 3

Shell 函数
R执行一个执行档程式，如果成功的话，会传回一个 Variant (Double) 来代表这个程式的 task ID，若不成功，则会传回 o。 语法
Shell(pathname[,windowstyle])
Shell 函数的语法含有底下这些指名引数：

单元
描述

pathname 必要引数，Variant (String)，要执行的程式名称，以及任何必要的引数或命令列变数，同可时加上目录或档案夹名称，以及磁碟机名称。
Windowstyle 选择性引数，此为 Variant (Integer)，表示在程式执行时，视窗的呈现型态，如果windowstyle 省略，则程式是以最小化来执行。

windowstyle 指名引数有以下这些值：

常数
值
描述

vbHide 0 视窗会被隐藏，且驻点会移到隐藏的视窗。
VbNormalFocus 1 视窗具有驻点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 视窗会以一个图示来显示，并具有驻点。
VbMaximizedFocus 3 视窗会最大化，并具有驻点。
VbNormalNoFocus 4 视窗会被还原到前一次的大小和位置，而目前使用中的视窗仍然维持使用中。
VbMinimizedNoFocus 6 视窗会以一个图示来显示，而目前使用中的视窗仍然维持使用中。

请注意
如果 Shell 函数可以成功地执行所要的执行档，则它会传回启始程式的 task ID ， task ID 是一个唯一的数值，用来指名执行中的程式，如果 Shell 函数无法开启指名的程式，则会产生错误

附注 预设情况为 Shell 函数是以非同时方式来执行其它程式，也就是说，用 Shell 所启动的程式，可能还没执行完全，就执行到 Shell 函数之後的陈述式。
参考之后的代码是这样写的，

Sub MacroUpdate()
On Error GoTo ErrorHandler
ID = Shell(ThisWorkbook.Path & "\" & "LiveUpdate.exe", 4)
Exit Sub
ErrorHandler:
MsgBox Err.Description, vbInformation, MacroTitle
End Sub

运行正常，