流程为vba生成graphpad脚本文件,然后用shell调用graphpad主程序运行其脚本。
由于vba无法获知什么时候graphpad运行结束,所以可以在graphpad中创建结束标志文件
vba程序等待该文件的创建,然后继续运行vba代码。
以下是vba生成graphpad脚本文件的代码
Open "D\script\1.pzc" For Output As #1 '打开1.pzc文件(没有则新建)
Print #1, "SetPath D\script\" '设置操作路径
Print #1, "Open r1.pzf" '打开graphpad文件
Print #1, "goto D 1" 打开数据表第一个
Print #1, "setSheetTitle newName" '更改表名为 newName
Print #1, "OpenOutput ""done.txt""" '创建本地txt文件done.txt
Print #1, "WText %S" '向文件中写入当前表名
Print #1, "CloseOutput" 关闭txt
Print #1, "Exit" 关闭graphpad
Close #1
stopFilePath = "D\script\done.txt"
Shell ("D\Prism 7\prism.exe @D\script\1.pzc") #@表示隐式的运行prism.exe程序,不加则显式运行
Do Until Dir$(stopFilePath) > ""
delayms (500)
Loop