使用应用程序打开两个文件的VBA代码

Question

我在VBA上比较新，我正在开发这个基于Excel的工具，它创建两个.xls文件，其路径保存在两个变量中。下一步是用户必须选择这两个文件，右键单击并选择名为比较的应用程序。

我想知道是否可以使用VBA中的Shell命令自动执行此过程。请指教。

Answer 1

是的，有可能。假设compare将两个文件作为参数，只需执行以下操作：

Public Function OpenCompare(strFileOne As String, strFileTwo As String)
     Dim x As Variant
    x = Shell("Compare.exe " & strFileOne & " " & strFileTwo, vbNormalFocus)
End Function