導航:首頁 > 數據行情 > excel下載股票數據下載

excel下載股票數據下載

發布時間:2022-08-27 17:34:50

1. 東方財富網數據如何下載excel

1、首先在一個新建的Excel表格中,選擇進入到數據頁面中。

2. 從哪裡可以下載或導出到EXCEL表格中的股市數據,包括個股數據

一般看盤軟體都有該功能的,但方法略有不同。通達信為:系統---數據導出(選取EXCEL文件),點擊瀏覽(以確定存放位置,如選擇桌面),然後點導出即可。注意:導出的數據為現在K線畫面下所顯示的K線的數據,若想導出個股或大盤所有日線數據,要使用↓/↑把圖中的K線全部或部分現實開可以。

3. 如何使用大智慧下載個股票的歷史價格,最好是EXCEL形式的

你好!
選中個股,在日K線窗口,右鍵菜單「輸出EXCEL數據文件」即可
如有疑問,請追問。

4. 如何下載股票歷史成交數據到Excel或txt

以華中智能股票軟體為例:(以Think pad X13 銳龍版筆記本電腦,Windows 10 操作為例)首先切換到要下載數據的股票K線形態,按「F1」進入「日線某某股票歷史成交」,點擊滑鼠右鍵->數據導出->導出所有數據->在「請選擇導出的類型」中選擇excel或txt
補充資料:
如何獲取所有股票歷史數據:
如果要對股市進行分析,首先就要獲取所有股票的歷史數據,只有通過股票的歷史數據,我們才能分析出股市的規律。
(以Think pad X13 銳龍版筆記本電腦,Windows 10 操作為例)
一、工具/原料
1、EXCEL2007或者以上版本,不能使用WPS
2、電腦1g內存1核處理器及以上配置
3、擁有較強邏輯分析能力以及少量智慧及以上的大腦一顆
方法/步驟:
第一步,獲取股票代碼,復制其中一部分到第一個工作表A4到A127,然後通過程序把每一個代碼寫入到不同的工作表A2位置,並對該工作表以該股票代碼命名。程序如下:
Sub 工作表命名()
For i = 4 To 127
Sheets(i).Range("a2") = "'" & Sheets(1).Range("a" & i)
Next i
For i = 4 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("a2").Value
Next
End Sub
第二步,獲取股票歷史數據。代碼如下:
Private Function GetSource(sURL As String) As String
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET", sURL, False
oXHTTP.Send
GetSource = oXHTTP.responsetext
Set oXHTTP = Nothing
End Function
Sub 歷史數據()
Dim objXML As Object
Dim txtContent As String
Dim i As Integer
Dim strCode As String
Dim gp As String
Dim kaishihang
Dim arr, arr1, arr2, arr3, arr4, arr5, arr6, arr7, arr8, arr9, arr10, arr11
On Error Resume Next
EndRow = Range("a65536").End(xlUp).Row
startRow = 4
If startRow <= EndRow Then
Range(Cells(startRow, 1), Cells(EndRow, 11)).Value = ""
Else
Exit Sub
End If
Set objXML = CreateObject("Microsoft.XMLHTTP")
gp = [A2]
For h = 1 To 4
For m = 1 To 4
kaishihang = [A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h), " ", "")
ji = Replace(Str(4 + 1 - m), " ", "")
With objXML
.Open "GET", "http://quotes.money.163.com/trade/lsjyj_" + gp + ".html?year=" + nian + "&season=" + ji + "", False
.Send
If objXML.Status = 200 Then
txtContent = .responsetext
arr = Split(txtContent, "'>")
For i = 1 To UBound(arr)
arr1 = Split(arr(i), " Cells(i + kaishihang, 1) = Right(Left(arr1(0), 10), 10)
arr2 = Split(arr1(1), Chr(60))
Cells(i + kaishihang, 2) = Mid(arr2(0), InStr(arr2(0), ">") + 1)
arr3 = Split(arr1(2), Chr(60))
Cells(i + kaishihang, 3) = Mid(arr3(0), InStr(arr3(0), ">") + 1)
arr4 = Split(arr1(3), Chr(60))
Cells(i + kaishihang, 4) = Mid(arr4(0), InStr(arr4(0), ">") + 1)
arr5 = Split(arr1(4), Chr(60))
Cells(i + kaishihang, 5) = Mid(arr5(0), InStr(arr5(0), ">") + 1)
arr6 = Split(arr1(5), Chr(60))
Cells(i + kaishihang, 6) = Mid(arr6(0), InStr(arr6(0), ">") + 1)
arr7 = Split(arr1(6), Chr(60))
Cells(i + kaishihang, 7) = Mid(arr7(0), InStr(arr7(0), ">") + 1)
arr8 = Split(arr1(7), Chr(60))
Cells(i + kaishihang, 8) = Mid(arr8(0), InStr(arr8(0), ">") + 1)
arr9 = Split(arr1(8), Chr(60))
Cells(i + kaishihang, 9) = Mid(arr9(0), InStr(arr9(0), ">") + 1)
arr10 = Split(arr1(9), Chr(60))
Cells(i + kaishihang, 10) = Mid(arr10(0), InStr(arr10(0), ">") + 1)
arr11 = Split(arr1(10), Chr(60))
Cells(i + kaishihang, 11) = Mid(arr11(0), InStr(arr11(0), ">") + 1)
Next i
End If
End With
Next m
Next h
Set objXML = Nothing
End Sub
第三步,獲取上證歷史數據,並獲取所有股票的歷史數據。程序如下:
Sub 所有股票歷史數據獲取()
Application.ScreenUpdating = False
Dim s As String, gp As String, nian As String, ji As String, s1 As String
Dim arr, arr1, arr2, arr3, arr4, arr5, arr6, arr7, arr8, arr9
Dim i, h As Long
Dim kaishihang
Dim LastRow As Long, r As Long
On Error Resume Next
EndRow = Sheet2.Range("a65536").End(xlUp).Row
startRow = 4
If startRow <= EndRow Then
Sheet2.Range(Sheet2.Cells(startRow, 1), Sheet2.Cells(EndRow, 9)).Value = ""
Else
Exit Sub
End If
For h = 1 To 5
For m = 1 To 4
kaishihang = Sheet2.[A65535].End(xlUp).Row
nian = Replace(Str(Year(Now) + 1 - h), " ", "")
ji = Replace(Str(4 + 1 - m), " ", "")
s1 = "http://quotes.money.163.com/trade/lsjysj_shu_000001.html?year=" + nian + "&season=" + ji + ""
s = GetSource(s1)
arr = Split(s, "'>")
For i = 1 To UBound(arr)
arr1 = Split(arr(i), " Sheet2.Cells(i + kaishihang, 1) = Right(Left(arr1(0), 4), 4) & "-" & Right(Left(arr1(0), 6), 2) & "-" & Right(Left(arr1(0), 10), 2)
arr2 = Split(arr1(1), Chr(60))
Sheet2.Cells(i + kaishihang, 2) = Mid(arr2(0), InStr(arr2(0), ">") + 1)
arr3 = Split(arr1(2), Chr(60))
Sheet2.Cells(i + kaishihang, 3) = Mid(arr3(0), InStr(arr3(0), ">") + 1)
arr4 = Split(arr1(3), Chr(60))
Sheet2.Cells(i + kaishihang, 4) = Mid(arr4(0), InStr(arr4(0), ">") + 1)
arr5 = Split(arr1(4), Chr(60))
Sheet2.Cells(i + kaishihang, 5) = Mid(arr5(0), InStr(arr5(0), ">") + 1)
arr6 = Split(arr1(5), Chr(60))
Sheet2.Cells(i + kaishihang, 6) = Mid(arr6(0), InStr(arr6(0), ">") + 1)
arr7 = Split(arr1(6), Chr(60))
Sheet2.Cells(i + kaishihang, 7) = Mid(arr7(0), InStr(arr7(0), ">") + 1)
arr8 = Split(arr1(7), Chr(60))
Sheet2.Cells(i + kaishihang, 8) = Mid(arr8(0), InStr(arr8(0), ">") + 1)
arr9 = Split(arr1(8), Chr(60))
Sheet2.Cells(i + kaishihang, 9) = Mid(arr9(0), InStr(arr9(0), ">") + 1)
Next i
Next m
Next h
Application.ScreenUpdating = True
n = Worksheets.Count
For i = 4 To n
Worksheets(i).Activate
歷史數據
Next
End Sub
第四步,保存工作簿,並對該工作簿命名為1,然後復制該工作簿27份,把所有股票代碼寫入每一個工作簿第一個工作表的A3到A127列。然後根據第一步對工作簿內的工作表命名,並在每一個工作表A2單元格內寫入股票代碼。
第五步,把這些工作簿存放到炒股文件夾下的資料庫文件下。然後在炒股文件夾下新建一個工作簿,命名為「一鍵更新表格」,寫入如下代碼:
Sub 所有股票歷史數據更新()
Dim wb As Workbook
For i = 1 To 27
Set wb = Workbooks.Open(ThisWorkbook.Path & "資料庫" & i & "".xlsb"")
Application.Run ""'"" & wb.Path & """" & i & "".xlsb'!所有股票歷史數據獲取""
wb.Save
wb.Close
Next i
End sub
當啟動這一段代碼以後,程序會自動一個一個的打開對應的工作簿然後獲取裡面所有股票的歷史數據,存放在對應的工作表當中。
第六步,對相應的程序添加按鈕,這樣,我們在啟動對應程序時,只需要點一下對應的按鈕就可以實現了。這樣,我們通過多個工作簿就實現了獲取所有股票歷史數據的方法。而後面,我們只需要通過獲取對應股票每一天的歷史數據,我們就能夠在任意一天很快速的能夠擁有所有股票的歷史數據了。
注意事項
1、在後續需要對這些數據進行分析,裡面會加入很多計算,所以啟動所有歷史數據更新時,我們應該要關閉自動更新。
2、因為歷史數據很大,所以這里只獲取四年的數據,想要獲取更多數據,可以更改程序裡面 「For h = 1 To 5」的那個5即可。
3、歷史數據的獲取需要較長的時間,要提前做好准備。
4、如果你想要弄清楚用EXCEL建立炒股系統的整套方法,請看後續內容。"

5. 如何下載所有股票當天收盤數據到Excel或txt

如果網頁自己沒有命令可以實現,
那麼就需要寫代碼編程來獲取數據,
當然也可以人工處理

6. 如何下載或者導出股票行情軟體的技術指標數值如KDJ,MACD等

以通達信為例,將需要的指標顯示在K線圖上,不管是主圖還是副圖,點擊34,導出數據,文件格式為EXCEL、TXT都可以。
大部分股民朋友都了解炒股就是炒預期,炒股看中的上市公司的業績,但炒股除了要綜合考慮公司的基本面外,同時也要對技術面進行了解。只要說到技術面,多數人都對MACD指標很熟,對KDJ的用法卻很生疏,針對想要做短期的朋友來講,KDJ的重要性不用說也知道。今天在這里,咱們就對KDJ指標到底是什麼來進行分析,以及我們該如何利用這個技術指標來提升自己做短線操作的容錯率。開始之前,不妨先領一波福利--機構精選的牛股榜單新鮮出爐,走過路過可別錯過:【絕密】機構推薦的牛股名單泄露,限時速領!!!
一、KDJ是什麼?
KDJ指標又被稱作隨機指標,是由三條曲線即K線、D線和J線組成的,通過圖片得出的結論是,K、D、J它們三個的顏色都是不一樣的,其中K線為快速確認線,所謂的D線指的就是慢速主幹線,而J線表示的則是方向明暗線。K值和D值在0~100之間浮動,而J指在小於0或大於100波動的范圍波動,能夠在更大范圍內波動。KDJ的用處體現字判斷中短期行情走勢上。

總而言之,KDJ指標的作用不過是判斷行情,想要准確地搞清楚個股走勢,大盤走勢、所處的板塊及時事政策等多方面因素也是判斷的標准。實在沒有充足的時間去研究某隻個股的朋友,不妨點擊下面這個鏈接,輸入自己想要了解的股票代碼,進行深度分析【免費】測一測你的股票當前估值位置?
三、KDJ指標的優劣勢
KDJ指標的優點是能靈敏的判斷股價變化,可以參考它來進行短線操作。但由於該指標反應速度太快,發出買入或者賣出信號有時會過早,導致投資者在操作上容易出錯。那如何才能找到完美買賣時機?純人力技術分析還有用嗎?試試點擊下方鏈接,AI智能判斷買賣時機,進場再也不猶豫:【AI輔助決策】買賣時機捕捉神器

應答時間:2021-09-25,最新業務變化以文中鏈接內展示的數據為准,請點擊查看

7. 我想吧每天的股票數據下載到EXCEL裡面

你瘋了吧,放得下嗎,你怎麼分類和處理。不是可以緩存歷史數據的嗎

8. 主力資金流向 如何下載成excel

操作如下:
以華中智能股票軟體為例:
1、(以Think pad X13 銳龍版筆記本電腦,Windows 10 操作為例)首先切換到要下載數據的股票K線形態
2、按「F1」進入「日線某某股票歷史成交」
3、點擊滑鼠右鍵->數據導出->導出所有數據->在「請選擇導出的類型」中選擇excel或txt
主力資金凈流入(Main net inflow of funds)在國際上是一個成熟的技術指標。在我國,主力資金是能夠影響股市、甚至控制股市中短期走勢的資金。因此,弄清其凈流入量的多少對我們選股十分重要。
這種計算方法的意義在於:指數(價格)處於上升狀態時產生的每筆大於100萬的成交額是推動指數(價格)上漲的中堅力量,這部分成交額被定義為主力資金流入,反之定義為主力資金流出;當天兩者的差額即是當天兩種力量相抵之後剩下的推動指數上升的凈力量,這就是該板塊或個股當天的主力資金凈流入。換句話說,主力資金流向預測的是推動指數漲跌的力量強弱,這反映了人們對該板塊或個股看空或看多的程度到底有多大。

9. 哪位大神知道股票交易數據excelban在那裡下載,就像如圖謝謝了,

所有股票或者部分股票的列表,用同花順軟體就可以導出,比如選擇顯示上海A股所有股票(快捷鍵61回車,可按代碼或其他自由排序),右鍵「數據導出」「導出所有數據」;同理也可導出深圳A股列表(快捷鍵63回車),或者其他板塊。導出前需要先把同花順數據補齊。通達信沒試過,應該是一樣的道理。

閱讀全文

與excel下載股票數據下載相關的資料

熱點內容
股票每股公積金和凈資產的差別 瀏覽:723
股票能量指標怎麼調出來 瀏覽:425
股票用現金買嗎 瀏覽:597
好股票網生命線指標 瀏覽:116
手機上怎麼看股票業績 瀏覽:192
中國最大樹脂廠股票號 瀏覽:153
推薦微信的股票軟體 瀏覽:644
露振科技股票行情 瀏覽:745
小窗口的股票軟體 瀏覽:896
重新開一個股票賬戶 瀏覽:124
國家隊持倉股票信息 瀏覽:108
股票回購方式中不需要支付大量現金的是 瀏覽:630
恆康醫葯股票走勢 瀏覽:1005
中國國債股票 瀏覽:443
股票很久沒漲停 瀏覽:109
股票看盤軟體教學視頻直播 瀏覽:116
中國銀聯股票有嗎 瀏覽:50
etf和普通股票一樣買賣嗎 瀏覽:25
搜於特股票今天走勢 瀏覽:895
煤炭價格上漲對煤股票的影響 瀏覽:905