<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      Excel2010:巧妙處理折線圖表中的斷裂問題

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

      定量分析的第一步,是獲取數據。
      獲取股票歷史行情數據最方便的途徑,就是直接讀取股票行情軟件留在你電腦中的日線數據文件。
      但如果不是程序員,電腦里一般不會有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

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


      Excel 2010 提供了供人們在工作簿上協同工作的簡便方法,提高了人們的工作質量。




      日韩精品一区二区三区高清