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

首頁(yè) > 辦公 > Excel > 正文

Excel2010:巧妙處理折線圖表中的斷裂問(wèn)題

2019-10-25 20:14:06
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

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

其實(shí),大家的電腦中一般都有OFFICE。OFFICE中的Excel自帶了一個(gè)VBA語(yǔ)言的編程環(huán)境。功能也很強(qiáng)大。
我用EXCEL里的VBA編寫(xiě)了一段代碼,讀取通達(dá)信股票行情軟件的日線文件。已經(jīng)測(cè)試通過(guò)。
代碼如下。與愛(ài)好定量分析的朋友分享。

  Type MyType
    a1 As Long  '標(biāo)示碼
    a2 As Long  '日期
    a3 As Single  '開(kāi)盤(pán)價(jià)
    a4 As Single  '最高價(jià)
    a5 As Single  '最低價(jià)
    a6 As Single  '收盤(pán)價(jià)
    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

別忘了把其中紅字標(biāo)示的文件名換成你想要讀取的數(shù)據(jù)文件名。


發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 那坡县| 武汉市| 洱源县| 齐齐哈尔市| 廉江市| 嵊泗县| 太白县| 尚义县| 双牌县| 合肥市| 宣城市| 洛隆县| 洪江市| 乌海市| 徐水县| 深水埗区| 广州市| 高碑店市| 涿州市| 竹溪县| 嘉禾县| 安阳县| 浦城县| 泊头市| 兴国县| 中超| 门源| 通榆县| 凌源市| 石台县| 方山县| 海阳市| 仪陇县| 米脂县| 阳西县| 中阳县| 吉木萨尔县| 和平区| 伊吾县| 舒城县| 深圳市|