使用VBA完全控制另一个程序

我目前正在致力于简化工作流程。它涉及使用串行连接传输数据的 Chatillon DFIS 测力计。数据以文本形式发送到 Chattillon 程序，并且只能保存为 .dat 文件。我正在尝试设置一个 Excel 工作簿，它可以自动打开程序并使用不同的命令将信息直接放入 Excel 中。命令将涉及更改单位、将传感器调零和传输。

我环顾四周，发现 Shell 功能可以让您访问打开文件，并且应该帮助您控制它，但我还没有找到通过 Excel 调用和操作程序的方法。

查蒂永计划，基本上是用鼠标点击的按钮

Excel和VBA可以控制外部应用程序如果他们有 COM 接口- 也就是说，如果您可以将应用程序声明为对象，创建该对象的实例，并查看其方法和属性。

如果您可以为您的程序找到一个 COM 包装器，那么就这样做。

如果您不能...您将不会喜欢使用 I/O 流和 Windows Shell 对象来完成此操作，因为命令行 DOS 界面作为用户界面并不是特别友好，并且它们比当您尝试在 VBA 中将糕点工厂用作 API 时。

首先，您需要 Windows 脚本宿主对象模型公开的“WshShell”对象。您可以通过后期绑定来声明和实例化它，如下所示：

Dim objWshell As Object
Set objWshell = CreateObject("WScript.Shell")

But the correct method (which will give you Intellisense drop-downs of the properties and methods) is to use the 'Tools:References...' dialog to create a reference to the parent library, which is usually found at C:\Windows\System32\wshom.ocx

然后您可以将 Shell 对象声明为：

Dim objWshell As IWshRuntimeLibrary.WshShell
Set objWshell = New IWshRuntimeLibrary.WshShell

在 VBA 中运行命令行可执行文件并读取 I/O 流

:

这是一个打开命令窗口并运行命令行可执行文件的示例，为其提供命令行开关“-s”和封装在双引号中的参数。

请注意，我正在运行的可执行文件不是“regsvr32.exe” - 我的 shell 对象正在执行 cmd.exe，这是 I/O 流的源和接收器。

当然，您可以直接运行您的应用程序。它可能会起作用。但是，当您调用 .StdOut.ReadLine 或 .StdOut.ReadAll 时，输出流锁定或“挂起”您的调用函数及其 VBA 线程是很常见的 - 您已被警告。

With objWshell.Exec("CMD /K")

  

       .StdIn.WriteBlankLines 3

    .StdIn.WriteLine "C:"

    .StdIn.WriteLine "CD C:\"

 

    .StdIn.WriteLine "regsvr32.exe -s " & Chr(34) & "%LIBDIR%\FXPricer.dll" & Chr(34)

    .StdIn.WriteBlankLines 1

 

    Do Until .StdOut.AtEndOfStream

        Debug.Print .StdOut.ReadLine

    Loop


     Do Until .StdErr.AtEndOfStream

        Debug.Print .StdOut.ReadLine

    Loop


    .Terminate


End With

Share and Enjoy. And, as always, watch out for line breaks inserted by your browser (or by StackOverflow's textbox interface) in the source code samples.