VBA/Excel调用Graphpad/prism

流程为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
上一篇:CorelDRAW VBA - 从文件导入文本内容 Text.ImportFromFile


下一篇:VBA Find命令应用实例