A:VBA调用TS时,用户可以通过VBA读取单元格的数据作为TS函数的参数传入。如下一段VBA调用TS的代码:
'(1)初始化对象 -- 公用
Dim Obj As Object
Set Obj = CreateObject("TSExpert.CoExec")
'(2)把 Excel 中Sheet和 参数对应起来 -- 用户可以按照自己模型的实际情况,进行修改
Dim Args(0 To 3) As Variant
Args(0) = Worksheets("Sheet1").Range("B1")
Args(1) = Worksheets("Sheet1").Range("D1")
Args(2) = Worksheets("Sheet1").Range("F1")
Args(3) = Worksheets("Sheet1").Range("H1")
'(3)调用天软金融分析.net模型 -- 用户可以按照自己模型的实际情况,进行修改
Data = Obj.RemoteCallFunc("Stocks_zf", Args)
'(4)清除旧数据 -- 公用
Call ClearOldData("Sheet1", "A5:T3000")
'(5)显示新数据 -- 公用
Call ShowData("Sheet1", 7, 1, Data)
从上面这段代码可以看到,先定义一个数组Args,数组从单元格中读取数据,如Args(0) = Worksheets("Sheet1").Range("B1"),再将数组Args的值作为参数传给TS中的函数Stocks_zf做调用。