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

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

Sub RAR()

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

End Sub

FSO（Filesy System Object） *** 作文件，要重定向的话，需要以命令行形式执行脚本并在命令行里指定要重定向到的文件。

命令行方式如下：cscript 脚本名称 >>"D:\Program Files\diffcount\myresult.txt"

脚本里直接写入文件的方式（FSO）：

只有用Exec执行命令，孝蔽才能获取输出流并写入文件。

Const ForWriting = 亮慎饥2

resultfile = "D:\Program Files\diffcount\myresult.txt"

Set fso = CreateObject("Scripting.FileSystemObject")

Set myfile = fso.OpenTextFile(resultfile, ForWriting, True)

Set WshShell = WScript.CreateObject("WScript.Shell")

Set oExec = 敬返WshShell.Exec(shell_cmd)

Set oStdOut = oExec.StdOut

Do Until oStdOut.AtEndOfStream

myfile.WriteLine oStdOut.ReadLine

Loop

myfile.Close

我编写word vba程序,处理量word文件,些word文件损坏,或SQL连接询问否更新,或询问否进梁禅行编码转换,或唤薯文件本身高版本询问否载橡链尘兼容包等问题,文件少数遇程序能断运编写程序希望直接跳异类文件（我文件标注手逐处理）何用VBA响应消息框（自向其发送 esc键或相于点击命令）恳请高手指教

本想用语句发现知道等于整数VBA何表达

程序能类似面简短要定义（全部）知道没性定义几单元格...怕Private Sub Worksheet_Change(ByVal Target As range)面其语句影响

If range("AM4").Value <>integer Then

MsgBox "Sorry, but the input should be a integer"

Sheets(2).range("AM4") = ""

---