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

使用旁竖汪shell语句，例子：

Sub RAR()

    Shell "C:\Program 运仔Files\WinRAR\WinRAR.exe", 纤明vbNormalFocus

End Sub

如果只是单个文件 ，要求打开的时候才运行，把代码写到Workbook的Open事件里，打开即自动运行

如果是陵棚要对几百个文件进行相同的Sub过程 *** 作，最简单的方法是 写个VBA Sub 过程 直接依次打开几百个文件 并执行相同动尺迅则作， 那几百个文件里的代码昌运也不需要了， 只需要一个VBA 模块，就是一个Sub 过程 依次对所有文件进行 *** 作。

调用外部程序使用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

---