将数据从 Excel 导出到Prism

虽然Prism 可以打开 Excel 文件，但速度很慢。取而代之的是编写 Visual Basic 宏，将所选值导出为文本文件。下面的宏从 Excel 中运行，将工作表 1（12 行 6 列）的左上角导出为逗号分隔值 (CSV) 文件，Prism 可以导入该文件。

Open  "C:\data\july97\dr2.csv" For Output As #1

For I = 1 To 12

For J= 1 to 6

  Print #1, Worksheets(1).Cells(I,J).Value; ",";

Next

Write #1,

Next

Close #1

然后用代码启动Prism ，运行Prism 脚本，或许还可以将Prism 中的结果导入到 Excel 中。

从 Excel 创建 PZC（Prism 脚本）文件

在创建从 Excel 运行Prism 的系统时，您需要同时编辑 Excel VBA 语句和Prism PZC 脚本。简化工作的一种方法是编写 Visual Basic 代码，从 Excel 中导出 PZC 文件。这样，您只需编辑一个文件。本示例中，您可以使用以下 VBA 代码：

Open  "C:\Prism4\auto.pzc" For Output As #1

Print #1, “Shortlog”

Print #1, “SetPath C:\gp\prism25\”

Print #1, “Open generate.pzm”

Print #1, “openOutput fit.txt”

Print #1, “   ForEach 500”

Print #1, “    GoTo R 1”

Print #1, “    Regenerate”

Print #1, “    GoTo R 2”

Print #1, “    WCell 5,1”

Print #1, “ Next”

Close #1

Shell ("C:\program files\prism5\prism.exe  @C:\prism5\auto.pzc")

第一行启动一个名为 auto.pzc 的新文件，并将其指定为 1 号文件。接下来的 10 行，导出Prism 你写入该文件的脚本命令。下一行关闭脚本文件，该文件由上面显示的最后一行启动。下一行将导入Prism 导出的结果。

将所有命令放入一个文件在概念上没有帮助。您仍然必须将 Excel 中的 VBA 代码与Prism 的脚本命令区分开来。优点是您可以在一个文件中完成所有编辑，而不是两个文件。缺点是编写脚本比较困难，因为您必须将每一行都放在引号中，并在前面加上 "打印 #1，"。

 

将Prism 图形导入 Excel

除了导入Prism 分析结果外，您可能还想将Prism 图形导入 Excel。导出图形不成问题，因为Prism 脚本可以将图形或布局导出为 WMF 图片。问题在于将其导入 Excel，因为无法编写 Visual Basic 命令来导入图片。您可以间接导入。在 Excel 中手动创建一个图片对象（显示控制工具栏，单击图片按钮，然后拖动创建对象）。然后编写 Basic 代码来更改该图片对象的内容。本示例即是如此、

Sheet2.DRGraph.Picture = LoadPicture(Path$ + "dr2.wmf")