vba寫股票板塊行情數據

1. 1、如何將財經類網上股票歷年分紅數據提取到EXCEL表裡，並獲取股票實時價格

回答此類問題的描述會被網路知道判違規。

請在「數據」選項下的「自網站」進行相應的操作，然後設置數據更新頻率，即可。

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

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

3. 求高手幫我編一個同花順k線界面加入該股板塊和概念題材顯示的公式。

公式:DRAWTEXT_FIX(CURRBARSCOUNT=1，0，0，0，BLOCK(0，0)+BLOCK(1，0)+BLOCK(2，0)+BLOCK(3，0))同花順股票軟體是一個提供行情顯示、行情分析和行情交易的股票軟體，它分為免費PC產品，付費PC產品，電腦平板產品，手機產品等適用性強的多個版本。同花順股票軟體注重各大證券機構、廣大股民的需求和使用習慣，同花順股票軟體全新版免注冊。全新版同花順股票軟體新增強大功能：自主研發的搜牛財經及自定義選股，新增通達信模式。2015年8月18日，收到證監會《調查通知書》，因公司涉嫌違反證券期貨法律法規，根據有關規定，證監會決定對公司進行立案調查。操作環境:版本:v2.9.6安卓版
拓展資料
同花順業務分類:
1、證券信息服務軟體
證券信息服務軟體，具體來說，是指向股民提供通過互聯網炒股的軟體、軟體涵蓋大量的信息和數據。同花順軟體全部可以通過公司網站和其他網站下載方式免費獲取，基本行情數據也是免費向廣大投資者提供，並通過提供增值證券服務收取費用。公司注冊用戶數已經超過7，200多萬人，每日使用同花順網上行情免費終端的客戶約300多萬人。
2、手機證券軟體
手機證券軟體，最典型的產品就是手機炒股。手機移動通訊和互聯網經過幾年的高速發展，均已經積累了龐大的客戶群。兩網的相互融合，已經成為未來發展的趨勢。隨著無線網路技術的發展，尤其是3G網路的推出，手機財經信息服務必將是繼網上交易之後的最重要的服務方式之一，也必將成為公司業績增長的主要動力。同花順擁有400萬的手機財經用戶，每天通過移動網路，向手機用戶提供數據、信息、行情和交易通道服務。
3、交易系統軟體
交易系統銷售和維護是公司的傳統業務，主要向券商等機構提供證券交易平台等系統，以及收取相應的維護費收入。

4. 跪求高手幫我寫VBA程序，把所有股票（上證和深證等）當日和前5日收盤價、成交量和流通股列出來

這個功能在一般的股票軟體上自帶，不需要額外編寫程序或公式，我用的是通達信，操作步驟如下：打開軟體，進入板塊行情---點版面上方的「報表分析」---選擇「階段排行」---設置「起始日期」等---點「確定」---然後在板塊行情頁面，在上方任一顯示欄目上點右鍵，換成你想關注的基本欄目，如收盤價、成交量、流通盤、流通市值，即可。

股票公式專家團為你解答，希望能幫到你，祝投資順利。

5. 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秒刷新一次，可以改成你想要的數值。

這個是我錄制宏，再稍微修改下，幾分鍾完成的。

6. 如何用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

以上製作完成，保存後打開該表，可得到實用的股票行情圖，並可得到實時數據用於數據分析

7. 在EXCEL里用VBA編程，對選擇的數據作股票圖

EXCEL折線圖根本就不可能有這么復雜，VBA畫圖取點與表格實際坐標之間對應又不確定和關系復雜，所以EXCEL不適合做這類工作。

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

9. 求VBA代碼運算得到行業指數數據

10. 怎樣用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