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

使用shell语句，例子：

Sub RAR()

    Shell "C:\Program Files\WinRAR\WinRAR.exe", vbNormalFocus

End Sub

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

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

Set

xlsApp

=

Nothing

/*----------有参调用模式-------------*/

xls文件中代码如下：

Sub

test2(str

As

String)

MsgBox

(str)

End

Sub

VB代码如下：

Dim

xlsApp

As

Excel.Application

Dim

xlsBook

As

Excel.Workbook

Dim

xlsSheet

As

Excel.Worksheet

Set

xlsApp

=

New

Excel.Application

Set

xlsBook

=

xlsApp.Workbooks.Open(App.Path

+

"\test.xls")

Set

xlsSheet

=

xlsBook.Worksheets(1)

xlsApp.Visible

=

False

Call

xlsApp.Run("test2",

"Hello!World!")

---