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