Question

请问如何在VBA语句中插入执行一个外部程序

请问如何在VBA语句中插入执行一个指定路径的外部批处理程序，如“D:\批处理\1.BAT",等这个程序执行完后再执行下面的VBA语句？

Answer 1

Dim R As Long '定义用执行的变量
R = Shell("D:\批处理\1.BAT) '执行

追问

执行完后再执行下面的VBA语句，用这个：

Dim WSH As Object, wExec As Object, result
Set WSH = CreateObject("WScript.Shell")
ChDir ThisWorkbook.Path
Set wExec = WSH.exec("D:\批处理\1.BAT")
result = wExec.StdOut.ReadAll