VBA写螺纹历史数据到Excel表源代码

以下代码可以在金字塔软件执行，该代码来源和整理自网络；

1. ub WriteDataToExcel()
   
2. Dim Grid,objExcel,History,i,StarTimer
   
3. StarTimer = Timer
   
4. '以指定代码和周期激活或者打开一个指定的框架
   
5. Call Application.ActivateFrameWithCode("Technic","RB00","SQ",5)
   
6. Set Grid = Technic.GetGridByName("Main")'获取主图窗格
   
7. Set History = grid.GetHistoryData()  '获取主图窗格上的历史数据
   
8. '创建EXCEL对象
   
9. Set objExcel = CreateObject("Excel.Application")
   
10. With objExcel
    
11.   .Visible = True
    
12.   .Workbooks.Add
    
13.   .Activeworkbook.sheets("sheet1").Range("A1:G1") = _
    
14.    Array("日期","开盘","最高","最低","收盘","成交量","持仓量")
    
15. End With
    
16. '写数据到数组及Excel表中
    
17. Dim DataCount
    
18. DataCount = History.Count
    
19. Dim arr()
    
20. ReDim arr(DataCount,6)
    
21. For i = 0 To DataCount
    
22.   With History
    
23.    arr(i,0) = .Date(i)
    
24.    arr(i,1) = .Open(i)
    
25.    arr(i,2) = .High(i)
    
26.    arr(i,3) = .Low(i)
    
27.    arr(i,4) = .Close(i)
    
28.    arr(i,5) = .Volume(i)
    
29.    arr(i,6) = .OpenInt(i)
    
30.   End With  
    
31. Next
    
32. objExcel.Range("A2:G"&DataCount+1).value = arr
    
33. '释放对象变量内存
    
34. Set Grid = Nothing
    
35. Set History = Nothing
    
36. Set objExcel = Nothing
    
37. MSGBox "程序运行的时间="&Timer - StarTimer&"秒。"
    
38. End Sub

复制代码

牛市的时候，看多的观点总是显得特别睿智；熊市的时候，悲观的观点总会显得特别深邃。

感谢分享,抓紧学习

谢谢分享，好好学习

感谢分享，学习