股票行情數據vba代碼

Ⅰ 如何用EXCEL表中的數據製作出股市行情走勢圖

通過錄制「宏」獲得VBA程序代碼，然後編輯完善VBA程序代碼，編好後運行程序即可獲得股票走勢圖。

Ⅱ 怎樣用excel 實時讀取 股票日線數據

定量分析的第一步，是獲取數據。
獲取股票歷史行情數據最方便的途徑，就是直接讀取股票行情軟體留在你電腦中的日線數據文件。
但如果不是程序員，電腦里一般不會有VB、VC之類的編程語言。
其實，大家的電腦中一般都有OFFICE。OFFICE中的EXCEL自帶了一個VBA語言的編程環境。功能也很強大。
我用EXCEL里的VBA編寫了一段代碼，讀取通達信股票行情軟體的日線文件。已經測試通過。
代碼如下。與愛好定量分析的朋友分享。
TypeMyType
a1AsLong'標示碼
a2AsLong'日期
a3AsSingle'開盤價
a4AsSingle'最高價
a5AsSingle'最低價
a6AsSingle'收盤價
a7AsSingle'成交金額
a8AsLong'成交量
EndType
Sub按鈕1_Click()
DimFile2AsInteger
DimbAsMyType
File1=FreeFile
Opensh600000.dayForBinaryAccessReadAs#File1i=1DoWhileNotEOF(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

Ⅲ 查看股票行情的代碼是什麼有什麼用呢

股票代碼一點都不難理解，每串代碼就像一隻股票的「身份證」一樣，用「平安銀行」來舉例說明吧，它的代碼就是000001。

股票代碼就像車牌號，買過股票都知道，股票都有代碼，這個代碼是方便區分而編制的一個唯一號。

就像每個車牌號前面都有「粵」「冀」「寧」等，當股票的屬於不同的板塊時，它前方的數字也是不一樣的，有的是002xxx、有的是900xxx、有的是601xxx，接下來就為大家做出詳細的解釋。

解釋之前，先送給大家一波福利，點擊下方鏈接，免費領取10本炒股書籍，幫助你實現長久的股市盈利：股市入門必讀10本精選書

一、股票代碼怎麼區分？

目前有很多種股票代碼，我大致介紹幾種比較常見的：

1、A股

A股是指人民幣普通股票，是由我國境內公司發行，供境內（不含港澳台）投資者交易的股市。

滬市A股的代碼打頭數字是600或601，深市A股的代碼打頭數字是000。

2、B股

B股是指人民幣特種股票，以人民幣標明面值，供投資者以美元或者港幣交易的股市。

滬市B股的代碼採用的打頭數字通常是900，深市B股一般規定200是代碼打頭數字。

3、創業板

大家說的二板市場說的就是創業板，上市的要求會要不是那麼嚴格，創業板，顧名思義主要是中小型和創業型公司，這類企業沒有很長的成立時間、業績也不是很好，但是成長空間比較大，那些比較機靈的股民購買真的是再合適不過了。

創業板的代碼都是以300作為打頭數字。

不光這些多見的板塊，一些帶字母的股票也不罕見，比如這幾種代碼：XR、XD、*ST等分別都表示什麼意思呢？

1、XR

它代表這類股票目前已被除權，也就是說帶有XR字樣的股票，從今往後沒有了分紅的權利。

2、XD

這類股票是除息，說白了就是派息權利被取消了。

3、*ST

這類股票是指公司連續三年虧損，對於新手來說千萬不要看有退市風險的股票。

Ps：新手炒股的話，我還是建議選擇那些龍頭股，發展前景好、盈利穩定，和那些剛上市的公司相比，風險相對小一些。這里我也總結了各行業的龍頭股，點擊鏈接即可免費領取：吐血整理！各大行業龍頭股票一覽表，建議收藏！

二、股票代碼怎麼查詢？

股票代碼可以在很多軟體/網站中進行查詢。

這里我再免費送大家9大炒股神器，不僅能輕松查詢股票代碼，還能幫助大家收集分析數據、了解行情，是我從使用過的幾十種工具中總結出來的，新手用了能少走很多彎路：炒股的九大神器免費領取（附分享碼）

應答時間：2021-08-16，最新業務變化以文中鏈接內展示的數據為准，請點擊查看

Ⅳ 怎樣用EXCEL 實時讀取 股票日線數據

定量分析的第一步，是獲取數據。
獲取股票歷史行情數據最方便的途徑，就是直接讀取股票行情軟體留在你電腦中的日線數據文件。
但如果不是程序員，電腦里一般不會有VB、VC之類的編程語言。
其實，大家的電腦中一般都有OFFICE。OFFICE中的EXCEL自帶了一個VBA語言的編程環境。功能也很強大。
我用EXCEL里的VBA編寫了一段代碼，讀取通達信股票行情軟體的日線文件。已經測試通過。
代碼如下。與愛好定量分析的朋友分享。
TypeMyType
a1AsLong'標示碼
a2AsLong'日期
a3AsSingle'開盤價
a4AsSingle'最高價
a5AsSingle'最低價
a6AsSingle'收盤價
a7AsSingle'成交金額
a8AsLong'成交量
EndType
Sub按鈕1_Click()
DimFile2AsInteger
DimbAsMyType
File1=FreeFile
Opensh600000.dayForBinaryAccessReadAs#File1i=1DoWhileNotEOF(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

Ⅳ 求VBA代碼運算得到行業指數數據

Ⅵ EXCEL如何用VBA自動獲取每個股票近幾天的漲幅

excel大量獲取數據是比較慢的 你這種得用vb寫dll多線程刷新數據才行 私聊

Ⅶ excel股票自動刷新，VBA代碼如何寫啊

我測試了下發現是滑鼠放上去懸停才能觸發刷新數據的動作。。。

sheet1里寫：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

宏2

End Sub

模塊1里寫：

Sub 宏2()

'

' 宏2 宏

ActiveWorkbook.RefreshAll

If Sheet1.[G1] <> "停止刷新" Then Application.OnTime (Now + TimeSerial(0, 0, 2)), "宏2"

End Sub

親測OK。

TimeSerial(0, 0, 2) 裡面的2就是每2秒刷新一次，可以改成你想要的數值。

這個是我錄制宏，再稍微修改下，幾分鍾完成的。

Ⅷ 用vba求股票中一分鍾內的開、高、低、收

代碼如下,詳見附件

Private Sub CommandButton1_Click()

Dim Max!, Min!, Ro%, Rom%, T1 As Date, Tim As Date

Ro = 1: Rom = [A65536].End(3).Row + 1

Range("d2:h1441").ClearContents

For i = 2 To Rom

T1 = TimeSerial(Hour(Cells(i, 1)), Minute(Cells(i, 1)), 0)

If T1 <> Tim Then

Tim = T1

If Ro > 1 Then

Cells(Ro, 6) = Max

Cells(Ro, 7) = Min

Cells(Ro, 8) = Cells(i - 1, 2)

End If

Ro = Ro + 1

If i < Rom Then Cells(Ro, 4) = Tim

Cells(Ro, 5) = Cells(i, 2)

Max = Cells(i, 2)

Min = Max

Else

If Cells(i, 2) > Max Then Max = Cells(i, 2)

If Cells(i, 2) < Min Then Min = Cells(i, 2)

End If

Next

End Sub