當前位置:首頁 » 代碼百科 » VB快速獲取股票代碼列表
擴展閱讀
盛源生物的股票代碼 2025-06-22 22:25:00
中國鐵鈦股票代碼 2025-06-22 20:39:43
msci剔除中國股票 2025-06-22 19:23:05

VB快速獲取股票代碼列表

發布時間: 2021-07-29 20:43:16

① 用VB 讀取通達信實時股票數據(現價,漲幅)

關鍵是介面

我估計現在沒有免費的介面了!!!

所以你想自己編程獲取實時數據,幾乎不可能了!!!

總之,沒有有效的網路實時數據支持,這是開源股軟的最致命的地方!!!

② 用VB如何直接獲取股票實時數據

可以通過調用ChinaStockWebService的服務來實現獲取股票的實時數據,代碼如下:

publicstring[]getStockInfo(stringstockcode)
{

//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某隻股票的代碼
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}

③ 如何找到A股的所有股票的代碼比如網址或URL等

要找到完整的所有股票代碼、以及其它交易品種、以及公開信息,最完整莫過於在交易所的網站上,並且是隨著上市公司的增加、交易品種的增加,會不斷的更新。
比如:
上海證券交易所
http://www.sse.com.cn/
上市公司代碼列表
http://www.sse.com.cn/assortment/stock/list/name/
信息披露
http://www.sse.com.cn/disclosure/

深圳證券交易所
http://www.szse.cn/
股票交易品種
http://www.szse.cn/main/marketdata/jypz/colist/
信息披露
http://www.szse.cn/main/disclosure/

④ 求VB代碼自動計算好,每個excel文件內漲幅,漲幅是等於(收盤-開盤)/開盤

一、數據准備階段
1
先打開同花順股票軟體電腦版,點擊進入任意一隻你打算分析的股票。

2
點擊左上角的「分析」選擇「歷史成交」。

3
這時我們就可以看到這只股票從發行到今天的所有歷史基本交易數據。

4
在任意一行數據上點擊滑鼠右鍵,點擊「導出數據」,選擇「導出所有數據」。

5
如圖,
1)點擊瀏覽,選擇好文件保存的位置。
2)修改文件名為股票名稱和股票代碼,方便日後查看,以免出現分析完不知道數據屬於哪只股票的情況。
3)連續點擊下一步,直到完成。

END
二、數據處理階段
1
用excel電子表格打開剛才導出保存的表格。我這里使用的是WPS,用Excel軟體界面略有不同,但是方法一樣,所以這里不贅述。

先把表格右邊的滾動條拖到最底下,我們看到這表格代碼有3483行。扣除頂部的一行標題,說明這只股票已經上市交易了3482個交易日。3482這個數據等下我們要使用。

2
在表格L1處輸入「漲幅超過5%」。具體操作如圖所示。

3
在L2處輸入代碼「=IF((E2-B2)/B2>=0.05,1,"")」代碼的意思是:
=如果((收盤價-開盤價)/開盤價>或=5%,那麼輸入1,否則不輸入)
「(收盤價-開盤價)/開盤價」 的意思就是「首日漲幅」。

其實也可以寫成 =IF(F2>=5%,1,"") 但是表格中有時候會顯示一些錯誤的代碼,這個時候計算結果還是會大於5%,造成統計不精確。而且有的股票軟體導出的表格具體的漲幅的位置和同花順的不一定一樣,所以解釋給大家看。

使用同花順的用戶直接復制我的代碼就可以了。

常見錯誤:1)括弧,引號,逗號沒有用英文半形。
2)計算公式錯誤比如把(E2-B2)/B2寫成E2-B2/B2。
3)等號沒寫。

寫這個公式的目的就是在漲幅超過5%的交易日後面都計數1,這樣等下我們可以直接用求和公式算出漲幅超過5%的交易日總數,方便計算這只股票歷史大漲的概率。

4
這時我們看到,第一個交易日,後面已經顯示1了。絕大多數股票首日漲幅都是超過5%的。所以第一個數據可以驗證我們公式和表格設置是否有錯。

如果沒有顯示1,而是顯示公式的話,請修改一下excel設置。

5
然後點擊L3, 輸入公式:「=IF((E3-E2)/E2>=0.05,1,"")」

代碼的意思是:
=如果((收盤價-昨天的收盤價)/昨天的收盤價>或=5%,那麼輸入1,否則不輸入)
「(收盤價-昨天的收盤價)/昨天的收盤價」 的意思就是「漲幅」。

6
然後單擊L3,然後滑鼠移動到L3框框右下角的小方塊上,使滑鼠變成一個十字。然後按住滑鼠左鍵,向下拖動到最後一行。

如果行數很多,覺得拖動很累,也可以 單擊L3,然後 :
1)"Shift+Ctrl+方向下按鈕"
2) 「Ctrl + D」
可以快速填充公式。

7
隨機檢查一下數據,發現沒有錯,然後進入下一步。

8
選擇整列,可以像剛才一樣手動拖動,也可以"Shift+Ctrl+方向下按鈕" (推薦)

然後如圖依次點擊,「公式」,「自動求和」

於是我們就看到右下方出現一個數字,這個數字就是這只股票歷史上漲超過5%的次數了。

9
接下來,我們只要把這個數字,除以總交易日的數目3482,就可以知道這只股票歷史上大漲超過5%的概率是:4.77%

10
依同樣方法,我們來隨機計算另一隻股票上漲超5%的概率

得到結果:5.86%

11
再用同樣方法,我們來計算一下深圳指數上漲超過3%的概率,因為大盤指數波動沒有那麼大,所以我們設置為3%。

所以之前的公式變成:「=IF((E3-E2)/E2>=0.03,1,"")」

得到的概率是:7.59%
END
三、數據分析階段
1
我們橫向比較數據,根據歷史數據發現第二隻股票上漲>5%大概率更大,所以這只股票更好。超過大盤上漲概率的股票可以跑贏大盤。
2
為了精確,我們可以把2015年以前的數據全選刪除,再比較一下哪個概率大。
3
數據相比大盤指數上漲偏離過高,超過20%的股票,一般最好不要選,因為說明一年內漲幅已經非常大。建議選擇略高於大盤漲幅概率股票。
4
漲幅超過5%的天數比例大的股票,說明股票漲幅多,但是不能確定跌幅,所以以後的課程還會介紹分析漲幅和跌幅的比例,分析股票的波動性。

⑤ vb如何通過網路獲得combobox列表

用ADO控制項連接資料庫舉例:
在工程里找到 Microsoft ADO Control 6.0 ,拖到窗體上,默認名稱是Adodc1,把他VISIBLE屬性改成False不讓他顯示。然後在窗體載入事件里寫代碼,代碼是:
Private Sub Form_load()
Adodc1.ConnectionString="Driver={SQL Server};Server=伺服器IP;UID=資料庫用戶名;Pwd=資料庫密碼;DataBase=資料庫名稱"
'-----------------------------連接網路SQL資料庫
Adodc1.RecordSource="Select Distinct 欄位名 From 表名"
'-----------------------------查詢數據表記錄集合,要排除重復項
Adodc1.Refresh

'-----------------------------激活數據集合
While Not Adodc1.RecordSet.EOF
'-----------------------------給數據源做異常處理
組合框名稱.AddItem Adodc1.RecordSet.Fields("欄位名稱")
'-----------------------------給下拉列表欄位
Adodc1.RecordSet.MoveNext
'-----------------------------讓列表順序讀取
Wend
'-----------------------------結束 While
End Sub
這樣就算是給組合框網路資料庫列表了

⑥ 如何通過excel獲取股票列表

1這里以獲取中國石油(601857)的行情為例,打開提供股市行情的網站,在頁面的「個股查詢」區域輸入該股票代碼,選擇「實時行情」,單擊「行情」按鈕之後就可以查詢中國石油的行情數據,接下來復制地址欄中網址。

2運行Excel,新建一個空白工作簿,選擇「數據」選項卡中「獲取外部數據」選項組中「導入外部數據一自網站」命令。

3彈出「新建Web查詢』對話框,在地址欄中輸入剛剛復制的地址,單擊「轉到」按鈕,此時在下面的文本框中打開網站,單擊「導入」按鈕。

4彈出「導入數據」對話框,選擇要插入的工作表,單擊「確定」按鈕即可。此時在工作表中導入了網站的數據。

⑦ VB如何讀取股票大盤數據,20秒更新一次,並動態的顯示到文本框中,請高手幫忙

這個要連接資料庫的。。

⑧ 哪位哥們用VB開發過股票軟體

採用vb中的瀏覽器控制項。然後自己弄個空間弄個網站,然後弄個空白頁,插入股票的代碼,然後在用瀏覽器控制項鏈接到上面就可以了。

⑨ 如何用VB做股票數據接收系的源代碼

報價方,在開盤時共同商定價位,再實時的價位是因市場交易,自動變化的

⑩ 求vb高手 做一個軟體實現股票自動買賣 我會通過另一個軟體計算買賣時間和價格,用vb實現買賣過程

這個說復雜也容易,說容易也復雜。
容易就在於演算法大家都知道,只要能實現查詢,然後根據設計需要進行交易就是了。
復雜就在於凡屬於金融領域的,不管是殺毒軟體還是防火牆,都是重點監控種類。尤其是證券公司和銀行,對於客戶沒有使用它們的終端而發生資金變動的話,那豈不是銀行或證券公司的漏洞了?
要獲得銀行的訪問許可權,你看現在的銀行主頁,一輸入密碼就需要載入什麼控制項,那就是保護措施啊。然後證券公司的訪問許可權。當然,如果你的錢全部轉到了證券公司,那隻要證券公司的許可權就可以了。

所以現在能夠實現自動買賣的軟體,都是證券公司自己寫的程序。你現在應該知道其原因了。證券公司可不會隨便讓你查詢它的檔案的。