⑴ 怎樣用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
⑵ 求 EXCEL 自動獲取全部股票近幾天的收盤價的 VBA程序
我只會從安裝的本地文件下載的數據中獲得數據轉化成Excel的表格。
⑶ 用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自動獲取每個股票近幾天的漲幅
一般網頁上的數據都可以通過VBA進行抓取，應用得好，可以實現對很很多資料的動態監測。
漲幅就是指目前這只股票的上漲幅度。
漲幅的計算公式：漲幅=(現價-上一個交易日收盤價）/上一個交易日收盤價*100%
例如：某隻股票價格上一個交易日收盤價100，次日現價為110.01，就是股價漲幅為（110.01-100 ）/100*100%=10.01%.一般對於股票來說 就是漲停了!如果漲幅為0則表示今天沒漲沒跌，價格和前一個交易日持平。如果漲幅為負則稱為跌幅。
比如:一支股票的漲幅是：10%、-5%等 。
⑸ 請教在EXCEL表格中能否讀取指定某個股票的某一天的收盤價
程序以前沒寫過，理論上是可以實現的，因為新浪騰訊的股票數據也是通過程序獲得的。網路之後可以找到如下方案。
1 用VBA編寫程序
2 讀取新浪或騰訊財經數據的數據包。（也可以像新浪一樣讀取深證或上海證交所提供的數據）
下面的鏈接是其中的一些例子。
http://blog.sina.com.cn/s/blog_7ed3ed3d010146tl.html
⑹ 在EXCEL里用VBA編程，對選擇的數據作股票圖
EXCEL折線圖根本就不可能有這么復雜，VBA畫圖取點與表格實際坐標之間對應又不確定和關系復雜，所以EXCEL不適合做這類工作。
⑺ 用excel vba 抓取網頁中 股票的財務數據 然後做分析 做好了可以加分哈
網抓已經OK。
原網頁源代碼寫的不太規范，幾處語法寫錯的地方解析時要特殊處理，花了點時間。
⑻ 怎麼利用vba獲取財經網上股票股價的實時數據
你願意出錢嗎，願意出錢的話我可以幫你寫
⑼ 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秒刷新一次，可以改成你想要的數值。
這個是我錄制宏，再稍微修改下，幾分鍾完成的。