标题：[分享]VBA写螺纹历史数据到Excel表源代码

1楼

lizhi 发表于：2019/3/26 22:00:02

Sub WriteDataToExcel()
Dim Grid,objExcel,History,i,StarTimer
StarTimer = Timer
'以指定代码和周期激活或者打开一个指定的框架
Call Application.ActivateFrameWithCode("Technic","RB00","SQ",5)
Set Grid = Technic.GetGridByName("Main")'获取主图窗格
Set History = grid.GetHistoryData()  '获取主图窗格上的历史数据
'创建EXCEL对象
Set objExcel = CreateObject("Excel.Application")
With objExcel
  .Visible = True
  .Workbooks.Add
  .Activeworkbook.sheets("sheet1").Range("A1:G1") = _
   Array("日期","开盘","最高","最低","收盘","成交量","持仓量")
End With
'写数据到数组及Excel表中
Dim DataCount
DataCount = History.Count
Dim arr()
ReDim arr(DataCount,6)
For i = 0 To DataCount
  With History
   arr(i,0) = .Date(i)
   arr(i,1) = .Open(i)
   arr(i,2) = .High(i)
   arr(i,3) = .Low(i)
   arr(i,4) = .Close(i)
   arr(i,5) = .Volume(i)
   arr(i,6) = .OpenInt(i)
  End With
Next
objExcel.Range("A2:G"&DataCount+1).value = arr
'释放对象变量内存
Set Grid = Nothing
Set History = Nothing
Set objExcel = Nothing
MsgBox "程序运行的时间="&Timer - StarTimer&"秒。"
End Sub

2楼

ak47ok 发表于：2020/4/12 9:17:19

每次回帖、谢谢！辛苦了。

共2 条记录, 每页显示 10 条, 页签: [1]