实现VBA和CODE V的连接
前言
本次实验主要通过VBA,进行 CODE V和 excel连接,同时输出一系列参数。
一、基本步骤
由于CODEV支持直接打开文件,因此,不需要启动CODEV即可完成各项参数的输出以及优化。具体操作如下:
最后写入代码运行即可。
二、使用步骤
代码如下(示例):
Sub RunCodeV()
'定义接口
Dim Session As CVCommand
'102是CODEV的版本,即10.2
Set Session = CreateObject("CodeV.Command.102")
'设置打开文件的初始位置
Session.SetStartingDirectory ("c:\CVUSER")
Session.StartCodeV
'载入defaults.seq,在命令处输入in defaults.seq
Session.Command ("in defaults.seq")
'载入(dbgauss.lens),在命令处输入res cv_lens:dbgauss,运行 defaults.seq宏自动优化它
result = Session.Command("res cv_lens:dbgauss")
'运行 defaults.seq宏自动优化它
result = Session.Command("aut; go")
'显示结果
MsgBox (result)
'评估有效焦距
result = Session.EvaluateExpression("(efl)")
'显示结果
MsgBox (result)
'关闭CODEV实例
Session.StopCodeV
Set Session = Nothing
End Sub
总结
点击运行,后出现以下两个结果