主题：vb如何批量获取k线数据

Sub Test()

      Dim d1 '创建一个变量

      '创建Array外部对象，将对象实例置变量d1中

      Set d1 = CreateObject("Stock.Array")

      d1.AddBack(1)

      d1.AddBack(2)

      '创建外部对象，启用Python引擎

      Set d = CreateObject("Stock.Python")

      '载入Python模块，模块名为MyPython

      ret = d.ImportModule("MyPython ")

      If ret <> 1 Then

              '载入失败，打印错误原因

              Msg = d.GetErrorInfo()

              Application.MsgOut Msg

              Set Msg = Nothing  '使用完毕需要 Set Nothing销毁以免出现内存泄漏

              Exit Sub

      End I

      '调用Python模块函数，函数名pytestmodule，参数为Array外部对象d1

       Data = d.CallObject("pytestmodule",d1)