Excel2010教程之巧妙處理折線圖表中的斷裂問題
發(fā)布時(shí)間：2012-07-09 15:41:59 作者：佚名 
我要評(píng)論
我要評(píng)論定量分析的第一步，是獲取數(shù)據(jù)。
獲取股票歷史行情數(shù)據(jù)最方便的途徑，就是直接讀取股票行情軟件留在你電腦中的日線數(shù)據(jù)文件。
定量分析的第一步，是獲取數(shù)據(jù)。
獲取股票歷史行情數(shù)據(jù)最方便的途徑，就是直接讀取股票行情軟件留在你電腦中的日線數(shù)據(jù)文件。
但如果不是程序員，電腦里一般不會(huì)有VB、VC之類的編程語言。
怎么辦呢？
其實(shí)，大家的電腦中一般都有OFFICE。OFFICE中的Excel自帶了一個(gè)VBA語言的編程環(huán)境。功能也很強(qiáng)大。
我用EXCEL里的VBA編寫了一段代碼，讀取通達(dá)信股票行情軟件的日線文件。已經(jīng)測(cè)試通過。
代碼如下。與愛好定量分析的朋友分享。
Type MyType
a1 As Long '標(biāo)示碼
a2 As Long '日期
a3 As Single '開盤價(jià)
a4 As Single '最高價(jià)
a5 As Single '最低價(jià)
a6 As Single '收盤價(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ù)文件名。
獲取股票歷史行情數(shù)據(jù)最方便的途徑，就是直接讀取股票行情軟件留在你電腦中的日線數(shù)據(jù)文件。
但如果不是程序員，電腦里一般不會(huì)有VB、VC之類的編程語言。
怎么辦呢？
其實(shí)，大家的電腦中一般都有OFFICE。OFFICE中的Excel自帶了一個(gè)VBA語言的編程環(huán)境。功能也很強(qiáng)大。
我用EXCEL里的VBA編寫了一段代碼，讀取通達(dá)信股票行情軟件的日線文件。已經(jīng)測(cè)試通過。
代碼如下。與愛好定量分析的朋友分享。
復(fù)制代碼
代碼如下:Type MyType
a1 As Long '標(biāo)示碼
a2 As Long '日期
a3 As Single '開盤價(jià)
a4 As Single '最高價(jià)
a5 As Single '最低價(jià)
a6 As Single '收盤價(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ù)文件名。
相關(guān)文章
excel中使用VBA提取指定文件夾中指定擴(kuò)展名的所有文件名的技巧
項(xiàng)目結(jié)束后，要把相關(guān)文件的存放位置整理成清單交給同事或領(lǐng)導(dǎo)，提取文件夾名稱和路徑后，能讓接收方精準(zhǔn)找到對(duì)應(yīng)文件，減少溝通成本，確保工作銜接順暢，下面我們就來看看2026-02-26不使用VBA! excel表格提取指定文件夾的所有文件名的技巧
Excel提供了一個(gè)名為FILES的宏表函數(shù)，可以直接在Excel中批量提取指定文件夾下的文件名,這種方法適合有一定Excel基礎(chǔ)的用戶，操作相對(duì)簡單2026-02-26拒絕低效率! Excel正確統(tǒng)計(jì)空單元格技巧
excel表格中數(shù)據(jù)很多，也存在很多空白單元格，想要統(tǒng)計(jì)空白單元格，該怎么操作呢？下面我們就通過公式快速實(shí)現(xiàn)2026-02-26你還在逐個(gè)隱藏和取消隱藏工作表嗎? Excel快速批量取消隱藏工作表技巧
在制作Microsoft Excel工作簿時(shí)，一般情況下很少會(huì)刪除源數(shù)據(jù)所在的Excel工作表，通常的操作辦法就是將暫時(shí)不用的Excel工作表隱藏起來，下面我們就來看看 Excel批量隱藏和2026-02-09excel表格中銷售數(shù)據(jù)擰麻花怎么辦? 教你一招輕松搞定按顏色求和計(jì)數(shù)的
職場(chǎng)工作中經(jīng)常會(huì)遇到帶有設(shè)置單元格顏色的表格數(shù)據(jù)需要求和，或者按字體顏色和表格顏色求和，那么如何來進(jìn)行計(jì)算呢，詳細(xì)請(qǐng)看下文介紹2026-02-09另類圖例玫瑰圖! excel創(chuàng)意玫瑰圖的制作方法
excel表格中的數(shù)據(jù)想要制作成創(chuàng)意圖表，該怎么制作玫瑰圖呢？下面我們就來看看excel玫瑰圖的制作方法2026-02-09單元格還可以按需自定義設(shè)置! Excel單元格格式自定義技巧
excel表格中可以按需自定義設(shè)置，該怎么設(shè)置呢？下面我們就來根據(jù)實(shí)際的例子來看看詳細(xì)設(shè)置方法2026-01-19Excel規(guī)劃求解根據(jù)多個(gè)變量尋求最佳方案
規(guī)劃求解是一個(gè)相對(duì)較復(fù)雜的分析工具，但是在對(duì)數(shù)據(jù)的預(yù)測(cè)分析上，可謂功能強(qiáng)大，下面我們就來舉例看看2026-01-15輕松搞定方程式的計(jì)算! Excel隱藏的強(qiáng)大工具使用攻略
“規(guī)劃求解”是一組命令的組成部分,借助“規(guī)劃求解”，可求得工作表上某個(gè)單元格中公式的最優(yōu)（最大或最?。┲?，并受工作表上其他公式單元格的值的約束或限制，詳細(xì)請(qǐng)看下2026-01-15輕松掌握基礎(chǔ)功能! 給excel初學(xué)者的16個(gè)VBA基本代碼
歡迎來到VBA的世界！這里有一些簡單的代碼示例，幫助你快速理解VBA的基礎(chǔ)概念，通過這些代碼，你可以逐步掌握VBA的精髓，為更復(fù)雜的任務(wù)打下基礎(chǔ)2026-01-13