vbscript - VBscript 打开应用程序并另存为不同的文件类型

Question

我收到了一些 JMP 数据表文件（SAS 相关）。我需要遍历包含这些文件的文件夹，打开文件（通过文件的本机 JMP 应用程序），并将文件另存为 SAS 数据集数据类型。这些 JMP 文件无法在 SAS 中打开，因此必须在 JMP 软件中打开它们，然后在 SAVEAS 中打开它们。可能有超过一百个这样的 JMP 文件，所以我想自动化这个过程。这是我到目前为止的代码：

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("Jmp.exe C:\SourceFolder\test.jmp")
'
wscript.sleep 8000
objShell.SendKeys "%{F}{A}"  '<-- FAILURE #1
wscript.sleep 8000
objShell.SendKeys "C:\DestinationFolder\test.sas7bdat{ENTER}"  '<FAILURE #2
wscript.sleep 8000
objShell.SendKeys "%{F}{X}"
'
Set objShell = Nothing

应用程序打开，但 SENDKEYS 功能不会打开 SAVEAS 弹出窗口。它只进入文件菜单（此菜单确实下拉，但“A”不会触发）。

此外，我需要更改 SAVEAS 对话框中的“另存为类型”文件类型选项，因为文件类型默认为“.jmp”。这需要更改为“.sas7bdat”。简单地用新的扩展名保存文件是行不通的。

注意：我使用的 JMP 应用程序是 30 天试用应用程序。不确定这是否重要 - 但是，我已经测试过手动打开/保存文件，它确实有效。