这里有没有CST VBA高手啊

补充  ：哪里有CST VBA的编程资料啊，急需

一会有人会告诉你向官方求助，
然后官方会告诉你请看help。

help 看半年了，没找到有用的资料。

Help是最权威的官方资料！看了半年Help都不会编VBA?你有没有看Help中Visual Basic (VBA) Language?

楼上表激动，CST help 写的太差了。 有用的全没写出来。

开始写代码了， 目前还比较顺利。

恭喜了LZ
cst的vba的确不好用，help中关于vba的部分也没把keywords给全…
找起来是比较痛苦滴

确实很烂 ， search也搜不出来。

我有个好办法 就是先手动做一变 去history list里查自动生成的   改一改 就是了
但是 我也有一个问题 如何用micro start transient solver? 谁写过 跟我说说 我前边都写好了 就是 不知道 怎么 start

小编，您好！我现在也在学VBA，能帮我看下这个程序吗?为什么提示未找到文件啊。我已经把cst文件和excel放在一起了啊。谢谢啊！
Option Explicit
Sub mwsconnect()
' Next open a connection to CST DESIGN ENVIRONMENTDim studio As Object
Set studio = CreateObject("CSTStudio.Application")
' Now open the model file which is located in the same folder as the Excel sheet
' This will also return a connection to CST MICROWAVE STUDIO
Dim path As String
Dim fname As String
path = ActiveWorkbook.path
Dim mws As Object
Set mws = studio.OpenFile(path & "\lojiedigis1MHz_sinExcition.cst")
mws.DeleteResults
With mws.TimeSignal
     .Reset
     .Name "default"
     .SignalType "Sine step"
     .ProblemType "High Frequency"
     .Ttotal "2"
     .Phase "0.0"
     .Frequency "1"
     .RiseFactor "0.0001"
     .Create
End With
mws.Rebuild
' Make a connection to the solver and start the simulation
mws.solver.Start
mws.Save
' Finally close the connection to CST MICROWAVE STUDIO
studio.Quit
Set studio = Nothing
End Sub