Tecplot10与Excel2003的无缝结合应用

kaiser

最近有大量Excel数据要处理,当然结合Tecplot的强大绘图功能就如虎添翼了。小小修改了能找到的较老的tecplot excel宏（含在runtecplot.xls）。原来的宏不支持Tecplot 10,下面介绍一下如何使用。
首先要建立系统变量TEC100HOME=X:\program files\TEC100,注意这里的安装路径不能写到TEC100\bin否则会找不到文件，如果经常调用ADDON极易犯该类错误。
然后打开runtecplot.xls,注意把宏的安全级设为中！
在工具菜单下面会看到Tecplot，先不要着急点，否则会死人的！呵呵
打开工具-〉宏->visual basic编辑器
找到
';Find Tecplot
   If Environ("TEC90HOME") <> "" Then
     strEnv = Environ("TEC90HOME")
   ElseIf Environ("TEC80HOME") <> "" Then
     strEnv = Environ("TEC80HOME")
   ElseIf Environ("TEC75HOME") <> "" Then
     strEnv = Environ("TEC75HOME")
   ElseIf Environ("TEC70HOME") <> "" Then
     strEnv = Environ("TEC70HOME")
   Else
     MsgBox ("Tecplot not found.  Please check system variables for correct path.")
   End If
然后添加代码，变成：
   ';Find Tecplot
   If Environ("TEC90HOME") <> "" Then
     strEnv = Environ("TEC90HOME")
   ElseIf Environ("TEC80HOME") <> "" Then
     strEnv = Environ("TEC80HOME")
   ElseIf Environ("TEC75HOME") <> "" Then
     strEnv = Environ("TEC75HOME")
   ElseIf Environ("TEC70HOME") <> "" Then
     strEnv = Environ("TEC70HOME")
   ElseIf Environ("TEC100HOME") <> "" Then
     strEnv = Environ("TEC100HOME")
   Else
     MsgBox ("Tecplot not found.  Please check system variables for correct path.")
   End If
好了，大功告成！
希望对大家有用！
当然那位有较新的runtecplot.xls还请共享，就不用这么麻烦了！

caixinming

TECPLOT软件网页上有个CASE介绍两者结合应用的，大家可以去看看，，
顺便谢谢版大