導航:首頁 > 數據行情 > vba讀取股票數據

vba讀取股票數據

發布時間:2022-06-25 09:51:40

⑴ 用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(',');
}

⑵ 怎麼利用vba獲取財經網上股票股價的實時數據

1 這種軟體一般都是花錢的,主要是涉及到xml文件的解析。
2 如果想自己研究那就網上搜集一些資料學習。
以下提供一些網路的資料供參考。具體自己的需求還要自己編寫程序。
https://..com/question/1834142973359770260.html
https://www.hu.com/question/49538066/answer/129694646

⑶ 如何用vba從yahoo finance取得美股的歷史價格數據

:1、查詢美股的方法:美股主版的股票可以到yahoo finance,market watch等金融網站查到,也可以到美股券商網站查詢各股股市情況,Firstrade網站上還提供中資美股的各股資訊,美國上市的中國公司都能查到。 2、美股,即美國股市。廣義:代表全球股.

⑷ 用excel vba 抓取網頁中 股票的財務數據 然後做分析 做好了可以加分哈

網抓已經OK。

原網頁源代碼寫的不太規范,幾處語法寫錯的地方解析時要特殊處理,花了點時間。

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

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

⑹ 怎樣用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從WIND里取股票數據

首先 你需要有個萬德的帳號,因為取得股票也是需要excel登錄萬德插件的

⑻ Excel 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

⑽ VBA編程讀入數據

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'假設股票數據在1,2行,用戶輸入股票名稱的單元格為「A4」
Set objRange = Range("A4")
'判斷用戶是否在A4中進行輸入
If Not Intersect(Target, objRange) Is Nothing Then
strInput = objRange.Value
'調用HLookUp對數據進行檢索
With Application.WorksheetFunction
strOutput = .HLookup(strInput, Range("1:2"), 2, 0)
End With
'檢索失敗進行提示
If strOutput = "" Then
MsgBox "無效輸入"
'檢索成功,新建Excel文檔,將用戶輸入數據和查詢結果賦值給指定單元格
Else
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
Set objWorkBook = objExcelApp.Workbooks.Add
Set objSheet = objWorkBook.Sheets.Item(1)
objSheet.Cells(1, 1).Value = strInput
objSheet.Cells(2, 1).Value = strOutput
objWorkBook.SaveAs "D:\test\Result.xls"
objWorkBook.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End If
End If
End Sub
不知道這樣是否是你想要的~

閱讀全文

與vba讀取股票數據相關的資料

熱點內容
股票評價的指標是什麼意思 瀏覽:435
資源etf股票價格 瀏覽:230
商業銀行股票大跌會怎麼樣 瀏覽:196
短線股票k線教學視頻 瀏覽:64
st銀廣夏股票價格 瀏覽:320
股票圖中添加走勢坐標 瀏覽:851
股票怎樣在證券公司配資 瀏覽:350
工行銀行股票10年 瀏覽:709
康普國際股票走勢分析預測 瀏覽:522
同一隻股票一天只能賣一次嗎 瀏覽:175
為什麼有人買中國石油股票 瀏覽:9
股票k線出十字 瀏覽:337
st股票拋了最終價顯示 瀏覽:845
股票賺錢開心圖片 瀏覽:159
水災會影響哪些股票 瀏覽:718
長城科技公司股票 瀏覽:890
股票資金流入和流出一樣多是什麼意思 瀏覽:300
股票摘st能有幾個漲停 瀏覽:709
民生銀行股票號 瀏覽:708
主力強力控盤的股票 瀏覽:864