国产探花免费观看_亚洲丰满少妇自慰呻吟_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

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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 西青区| 饶平县| 乡城县| 嘉义市| 宁乡县| 临夏县| 武乡县| 保亭| 彰化市| 日土县| 彰化市| 灵寿县| 织金县| 乡宁县| 民权县| 高尔夫| 南开区| 拜城县| 南皮县| 客服| 阳朔县| 眉山市| 赫章县| 余姚市| 赣州市| 永川市| 蒙城县| 鄂温| 资源县| 惠东县| 孝义市| 德州市| 高雄县| 邢台县| 彭州市| 吉首市| 平和县| 宜城市| 永福县| 木里| 朝阳县|