Ⅰ 怎麼利用vba獲取財經網上股票股價的實時數據
你願意出錢嗎,願意出錢的話我可以幫你寫
Ⅱ 如何獲取實時的股票數據
要跟供應商協商得到他的介面才能得到實時股票行情數據;
股票實時行情,可以通過兩個方法來進行查看:
第一種,在網路搜索頁面直接輸入股票代碼,如:000717,網路輸入後,即可在搜索結果中看到,其中分時,就是該股票在當天的實時走向。
第二種,通過炒股軟體,如東財,同花順等,在開啟後,直接輸入,股票代碼,如600854,點擊回車。進入的第一個頁面就是該股票在當天的實時行情。
同時在股票軟體的分時成交界面,可以查看到每一分鍾的成交價和手數。股票行情趨勢判斷必要時也需要結合分時成交界面的數據來進行判斷。
查看其它股票的行情也是一樣的道理,直接鍵入該股票的代碼就可以查看到該股票當天或某個時間段內的行情。當然,精準的行情走勢、趨勢,是需要結合多種指標來共同進行分析的。
Ⅲ 如何用Excel製作股票實時行情圖
製作實時股票行情圖,應包含如下內容:1.股票數據表,2.股價圖,3.實時從網上下載數據的功能
第一步:製作數據表,數據-導入外部數-新建WEB查詢 寫入該數據來源地址
第二步:製作股價圖,先用公式按股價圖要求的順序引用到當前表,再插入圖表-選股價圖(第4種)調整圖表
第三步:編寫程序以實現實時刷新功能,可將以下程序按其要求的位置復制過去
'在模塊中編寫如下程序段用於刷新行情表,"00:00:10"表示刷新時間間隔,可根據需要進行調整
Dim 結束標記
Sub 刷新行情()
Sheets("日線數據").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
Sheets("分筆數據").Range("A1").QueryTable.Refresh
BackgroundQuery:=False
If 結束標記
<> 1 Then Application.OnTime Now +
TimeValue("00:00:10"), "刷新行情"
End Sub
Sub 開始刷新()
結束標記 = 0
刷新行情
End Sub
Sub 結束刷新()
結束標記 = 1
End Sub
'在thisworkbook中編寫如下代碼用於打開該表時就啟動行情刷新
Private Sub Workbook_Open()
刷新行情
End Sub
以上製作完成,保存後打開該表,可得到實用的股票行情圖,並可得到實時數據用於數據分析
Ⅳ Excel VBA代碼如何實現股票數據匯總
上截圖,說明你想要達到的效果,這樣才能弄。問題不描述清楚沒人能幫上你。
Ⅳ 用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(',');
}
Ⅵ 在EXCEL里用VBA編程,對選擇的數據作股票圖
EXCEL折線圖根本就不可能有這么復雜,VBA畫圖取點與表格實際坐標之間對應又不確定和關系復雜,所以EXCEL不適合做這類工作。
Ⅶ 如何獲取股票實時行情數據
股票實時行情,可以通過兩個方法來進行查看:
第一種,在網路搜索頁面直接輸入股票代碼,如:000717,網路輸入後,即可在搜索結果中看到,其中分時,就是該股票在當天的實時走向。
查看其它股票的行情也是一樣的道理,直接鍵入該股票的代碼就可以查看到該股票當天或某個時間段內的行情。當然,精準的行情走勢、趨勢,是需要結合多種指標來共同進行分析的。
Ⅷ EXCEL如何用VBA自動獲取每個股票近幾天的漲幅
一般網頁上的數據都可以通過VBA進行抓取,應用得好,可以實現對很很多資料的動態監測。
漲幅就是指目前這只股票的上漲幅度。
漲幅的計算公式:漲幅=(現價-上一個交易日收盤價)/上一個交易日收盤價*100%
例如:某隻股票價格上一個交易日收盤價100,次日現價為110.01,就是股價漲幅為(110.01-100 )/100*100%=10.01%.一般對於股票來說 就是漲停了!如果漲幅為0則表示今天沒漲沒跌,價格和前一個交易日持平。如果漲幅為負則稱為跌幅。
比如:一支股票的漲幅是:10%、-5%等 。
Ⅸ 如何通過excel獲取股票列表
1這里以獲取中國石油(601857)的行情為例,打開提供股市行情的網站,在頁面的「個股查詢」區域輸入該股票代碼,選擇「實時行情」,單擊「行情」按鈕之後就可以查詢中國石油的行情數據,接下來復制地址欄中網址。
2運行Excel,新建一個空白工作簿,選擇「數據」選項卡中「獲取外部數據」選項組中「導入外部數據一自網站」命令。
3彈出「新建Web查詢』對話框,在地址欄中輸入剛剛復制的地址,單擊「轉到」按鈕,此時在下面的文本框中打開網站,單擊「導入」按鈕。
4彈出「導入數據」對話框,選擇要插入的工作表,單擊「確定」按鈕即可。此時在工作表中導入了網站的數據。