FAQ > 金融建模 > 建模问题 > 其他

Q:天软和VBA交互参数串如何赋值    

  • 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做调用。