国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

EXCEL讀取通達信股票日線數據

2024-08-23 19:47:45
字體:
來源:轉載
供稿:網友

定量分析的第一步,是獲取數據。
獲取股票歷史行情數據最方便的途徑,就是直接讀取股票行情軟件留在你電腦中的日線數據文件。
但如果不是程序員,電腦里一般不會有VB、VC之類的編程語言。
怎么辦呢?

其實,大家的電腦中一般都有OFFICE。OFFICE中的Excel自帶了一個VBA語言的編程環境。功能也很強大。
我用EXCEL里的VBA編寫了一段代碼,讀取通達信股票行情軟件的日線文件。已經測試通過。
代碼如下。與愛好定量分析的朋友分享。

  Type MyType
    a1 As Long  '標示碼
    a2 As Long  '日期
    a3 As Single  '開盤價
    a4 As Single  '最高價
    a5 As Single  '最低價
    a6 As Single  '收盤價
    a7 As Single  '成交金額
    a8 As Long    '成交量
End Type

Sub 按鈕1_Click()
 
Dim File2     As Integer
  Dim b  As MyType
 
  File1 = FreeFile
  Open "sh600000.day" For Binary access Read As #File1
  i = 1
  
  Do While Not EOF(File1)
  Get #File1, , b
  Cells(i, 1) = b.a1
  Cells(i, 2) = b.a2
  Cells(i, 3) = b.a3
  Cells(i, 4) = b.a4
  Cells(i, 5) = b.a5
  Cells(i, 6) = b.a6
  Cells(i, 7) = b.a7
  Cells(i, 8) = b.a8
 
  i = i + 1
  Loop
  
  Close #File1

End Sub

別忘了把其中紅字標示的文件名換成你想要讀取的數據文件名。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 隆尧县| 蒙自县| 门头沟区| 云林县| 余姚市| 白水县| 正宁县| 嘉兴市| 阳山县| 西安市| 巴里| 湟源县| 肥东县| 齐齐哈尔市| 邻水| 嘉黎县| 芜湖市| 松潘县| 武安市| 九江市| 时尚| 绍兴市| 丰城市| 黄平县| 门头沟区| 全南县| 长宁区| 阿荣旗| 林西县| 房产| 剑川县| 桐乡市| 乌什县| 陆川县| 南昌市| 松桃| 新竹县| 霍林郭勒市| 巨鹿县| 东乡| 涪陵区|