① 怎樣用Excel看股票如何看股票
推薦個非常好用的工具——騰訊文檔,我現在看股票實時信息就是用的這個,它們的在線表格有個「股票動態函數」,非常好用!簡單、無需學習、數據實時自動更新;看看我日常看的股票表:
② 如何用Excel看股票
Excel可以利用VBA編寫程序,較好地實現看股票的功能。這里介紹一種簡易的方法。
軟體版本:Office2007
方法如下:
1.點擊「數據」選項卡中的「自網站」:
③ 怎樣用excel看股票行情 excelhome
1.首先,新建一個工作表,選中任意一個空單元格。選擇【數據】-【自網站】。
④ 如何製作一個實時統計股票的excel,求高手指點
打開excel軟體,第一行輸入名稱,然後進行合並居中。
第二行輸入下圖圖例中各項數值的名稱。
至此准備工作已基本完成。
⑤ 如何將股票價格實時更新鏈接到EXCEL表裡
樓主試試騰訊文檔在線表格吧,我現在看股票實時信息就是用的這個。它們的在線表格有個「股票動態函數」,非常好用!簡單、無需學習、數據實時自動更新;看看我日常看的股票表:
⑥ 怎樣用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表格看股票行情
1、首先,新建一個工作表,選中任意一個空單元格。選擇【數據】-【自網站】。
⑧ 怎樣用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上自動顯示股票實時數據的方法
當然有,直接跟網頁上的數據同步就行了,excel可以從網站抓數據的。
⑩ 如何用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
以上製作完成,保存後打開該表,可得到實用的股票行情圖,並可得到實時數據用於數據分析