當前位置:股票大全官網 - 股票投資 - 如何將股票的歷史交易數據保存到Excel或txt?

如何將股票的歷史交易數據保存到Excel或txt?

以華中智能炒股軟件為例:(以Think pad X13銳龍筆記本電腦和Windows 10操作為例)首先切換到該股票的k線形態下載數據,按“F1”進入“日線上某只股票的歷史交易”,點擊鼠標右鍵->;數據導出-& gt;導出所有數據-& gt;在“請選擇導出類型”中選擇excel或txt。

補充信息:

如何獲取股票的所有歷史數據;

要想分析股市,首先要獲取所有股票的歷史數據。只有通過股票的歷史數據,才能分析股市的規律。

(以Think pad X13銳龍筆記本電腦和Windows 10操作為例)

壹.工具/原材料

1,EXCEL2007或以上版本,不能使用WPS。

2、電腦1g內存1核心處理器及以上配置。

3.邏輯分析能力強,有點智慧以上的大腦。

方法/步驟:

第壹步,獲取股票代碼,復制壹部分到第壹張工作表A4到A127,然後通過程序把每個代碼寫到不同的工作表A2位置,用股票代碼命名工作表。該過程如下:

子工作表命名()

對於i = 4到127

床單(壹)。range(" a2 ")= " ' " & amp;張(1)。範圍(" a " & amp我)

接下來我

對於i = 4到張。數數

床單(壹)。Name = Sheets(i)。範圍(“a2”)。價值

然後

末端接頭

第二步,獲取股票的歷史數據。代碼如下:

私有函數GetSource(sURL As String)As String

Dim oXHTTP作為對象

Set oXHTTP = CreateObject("MSXML2。XMLHTTP”)

oXHTTP。open“GET”,sURL,False

oXHTTP。發送

GetSource = oXHTTP.responsetext

設置oXHTTP = Nothing

結束功能

子歷史數據()

Dim objXML作為對象

將txtContent標註為字符串

將I標註為整數

Dim strCode作為字符串

尺寸總成作為字符串

Dim凱仕行

Dim arr,arr1,arr2,arr3,arr4,arr5,arr6,arr7,arr8,arr9,arr10,arr11

出錯時繼續下壹步

EndRow = Range("a65536 ")。結束(xlUp)。排

startRow = 4

If startRow Range(單元格(startRow,1),單元格(EndRow,11))。值= " "

其他

出口接頭

如果…就會結束

set obj XML = CreateObject(" Microsoft。XMLHTTP”)

gp = [A2]

對於h = 1到4

對於m = 1到4

kaishihang = [A65535]。結束(xlUp)。排

nian = Replace(Str(Year(Now)+1-h)," ","")

杜畿= Replace(Str(4 + 1 - m)," ","")

使用objXML

。Open "GET "," ame: "stock"}],isauth: "0 ",authtitle:" ",isuseradmin: "0 ",useradminlevel:" ",useradmintitle:" ",useradmintype:" ",isfamous: "0 ",ismaster:。goodRate:"47"},isAnonymous:"0 ",isCurrentUser:"0 ",mapUrl:" ",refer:" ",replyAskNum:"1 ",threadId:"3833623469 ",hasComment:"1 ",qid:"388993703 ",raid:"43229295 ",recommended:" 0 " };f . context(' answers ')[' 958405867 '][' c _ timestamp ']= ' 1330863451 ';f .上下文(' answers')['958405867']。encode uid = ' 87334069236 f 25705 e 794209 ';f .上下文(' answers')['958405867']。ext_pack = {"anony_bad_value":"4 "," anony_good_value":"2 "," authentic _ reject ":" 1 "," authentic _ time ":" 1436595632 "," authentic _ uid ":" 617178426 "," dynamic _ optime ":" 165879812 "," dynamic_scoref .上下文(' answers')['958405867']。bit _ pack = { " is _ recommend ":" 1 "," wap_flag":"0 "," is_pic_contained":"0 "," media_flag":"0 "," help_flag":"0 "," anonymous":"0 "," is_really_anonymous":"0 "," level_new":"1 "," comment_flag":"1 "," in_mis":"0 "," auto_recommend":"1 "," content_rich_flag "徐元吉大獎賽

2012-03-04-ta獲得超過1973個贊。我知道有壹個小小的成就。回答量:1049采納率:0%求助者:497萬。我也去回答問題和訪問個人頁面關註發展。以同花順股票軟件為例:首先切換到股票的k線形態下載數據,按“F6544”數據導出-& gt;導出所有數據-& gt;在“請選擇導出類型”中選擇excel或txt,只能選擇這兩種格式;選擇後,點擊下壹步,選擇妳想要的項目(如最高價,最低價,開盤價等。)中的"導入和導出對話框模板",並點擊下壹步完成。默認保存路徑在桌面上。問壹下能不能批量下載所有股票的歷史數據。壹個壹個下載太費時費力。謝謝大家!沒有批量下載,只有壹個壹個下載。這個回答被網友采納,贊,踩。妳對這個答案有何評論?評論放f . context(' answers ')[' 958821204 ']= { uid:" 0 ",imid: "0 ",isaanonymous: "1 ",iscurrentuser:" 0 ",mapurl:" ",reff。replyAskNum:"1 ",threadId:"3835284817 ",hasComment:"0 ",qid:"388993703 ",raid:"43193036 ",recommended canced:" 0 " };f . context(' answers ')[' 958821204 '][' c _ timestamp ']= ' 1330916221 ';f .上下文('答案')['958821204']。encode uid =“0”;f .上下文('答案')['958821204']。ext _ pack = { " dynamic _ optime ":" 1658779812 "," dynamic _ score _ detail ":{ \ " qua _ score \ ":2054," time_score\":null," ide_score\":null," pre _ score \ ":1002100 } " };f .上下文('答案')['958821204']。bit_pack = {"is_recommend":"0 "," wap_flag":"0 "," is_pic_contained":"0 "," media_flag":"0 "," help_flag":"0 "," anonymous":"1 "," is_really_anonymous":"0 "," level_new":"1 "," comment_flag":"0 "," in_mis":"0 "," auto_recommend":"0 "," content_rich_flag":"0 "," prior _ flag ":" 60匿名用戶

2012-03-05以華中智能炒股軟件為例:首先切換到該股票的k線形態下載數據,按“F1”進入“該日股票的歷史交易”,點擊鼠標右鍵-& gt;數據導出-& gt;導出所有數據-& gt;在“請選擇導出類型”中選擇excel或txt,詢問是否可以批量下載所有股票的歷史數據。壹個壹個下載太費時費力了,謝謝!我贊過,踩過。妳對這個答案的評價是什麽?註釋put f . context(' answers ')[' 961436030 ']= { uid:" 580533802 ",imid:" public . 1.28 bad 583 . MLC 6 sycayvipxpvvepiytq ",id:"961436030 ",用戶名:" Trader309 ",userNameEnc:"Trader309 ",用戶:{sex:"1 ",iconType:"6 ",等級f . context(' answers ')[' 961436030 '][' c _ timestamp ']= ' 1331118361 ';f .上下文(' answers')['961436030']。encode uid = ' 2a3e 4069236 f 25705 e 799 a 22 ';f .上下文(' answers')['961436030']。ext_pack = {"anony_bad_value":"2 "," dynamic _ optime ":" 1658779812 "," dynamic _ score _ detail ":" { \ " qua _ score \ ":1867," time_score\":null," ide_score\":null," pre _ score \ ":10026548 } " rect ime ":" 165448f .上下文(' answers')['961436030']。bit_pack = {"is_recommend":"0 "," wap_flag":"0 "," is_pic_contained":"0 "," help_flag":"0 "," anonymous":"0 "," is_really_anonymous":"0 "," level_new":"1 "," comment_flag":"1 "," in_mis":"0 "," auto_recommend":"0 "," content_rich_flag":"0 "," prior_flag":"0Trader309

推薦上2021-01-30。知道答案量:7采用率:0%求助者:1.1萬。我也去回答問題和訪問個人頁面關註推出所有百度搜索:壟斷數據中心。他們提供這個,價格也不貴。辦大事需要壹點錢,歷史就是壹分鐘。妳對這個答案有何評論?評論put f . context(' answers ')[' 2927321071 ']= { uid:" 607150799 ",imid:" public . 1.6e 728 c 48 . l8i 9 _ tr3m。pass photo:“1”,ID:“2927321071”,用戶名:“找到那個餡餅”,username enc:“% E6 % 89% be % E5 % 88% B0 % E9 % 82% A3 % E4。圖標類型:“6”,等級指數:“9”,granswernum:“251”,care field:[{ cid:“74”,cname:“計算機/網絡”},{ cid:“154”,cname:“家庭裝修。isUserAdmin:"0 ",userAdminLevel:" ",userAdminTitle:" ",userAdminType:" ",isFamous:"0 ",isMaster:"0 ",goodRate:"58 ",mavinUtype:"0 ",mavinIsNew:"1 ",MavinName:"找到那個餡餅",mavinTitle:"認識妳的伴侶的互聯網專家",Mav Inanswernum: "849 ",Mav Inadoptnum: "251 ",Mav Inlever: "1 ",Mav Inlever:",Mav InMajor:。MavinHelpNum:"170+0.7百萬",MavinPraise:" 2757 ",MavinLeveldesc:" ",mafinfields:[" Internet "],mavinAvatar:" 82p 8 { vertical-align:top } . jzjg 54 b { background-image:URL(82p 8:after,. y4 mca6a:after {-WebKit-font-smoothing:抗鋸齒;顏色:# 999;顯示:內嵌-塊;字體系列:ecomicons字體大小:16px;字體樣式:正常;字體變體:正常;字體粗細:400;行高:1;text-transform:none } . wcn 82 p 8:after { content:" " } . kbsse7b:after { content:" " } . hmz 7 uhn:after { content:" " }。_ 5 eaqmrb:after { content:" " } . hdq 8k 3m:after { content:" " } . h 1cy 1 U2:after { content:" " } . y4 mca6a:after { content:" 06 " }。mgukwmc { background-image:URL(//nv00 . cdn . BCE Bos . com/NV 01/static/ECOM/iphone _ icons/consult-4b 14 dbfbfb . SVG);背景-尺寸:16px 16px;身高:16px;margin-top:-2px;寬度:16px}。mgukwmc,. uv 6 nn 3t { display:inline-block;vertical-align:middle } . uv 6 nn 3t { background-image:URL(電腦版廣告誇克瀏覽器-通用文件處理器pdf/Excel/word/ picture)等格式隨意轉換,圖片、文檔、表格自動拉直無雜質,還原排版相當淩亂!立即下載並使用www.quark.cn廣告!函數(t){“使用嚴格”;函數e(t,e){ if(t){ var n =新日期()。getTime(),I =新圖像;t+="&rand="+(n+Math.random()),window . ecomlogimage | |(window . ecomlogimage = { }),window . ecomlogimage["-IMAGE "+n]= I,e = e | | { };var r=!1;I . onload = I . on error = I . on abort = function(o){ if(!e . charge){ if(o & &“load”!= = o . type){ e & & e . error()中的if(r)“error”;else{i.src=t,r=!0;return } } else " load " in e & & e . load()} I . on load = I . on error = I . ona bort = null,window . ecomlogimage["-IMAGE "+n]= null,i=null},i.src=t}}var n,i=function(){var t,e,n,i=0,r=0,o=0,s=0,a=0,c=0,u=0,l=0,h=/link\?url\=([^\&]+)/,f=/\?url\=([^\.]+)\./,d="data-cklink ",p=/[?&]tn=([^&]*)/;函數v(t){if(!t)返回!1;var e = h . exec(t)| | f . exec(t);回歸!!e&&(h.exec(t)?e[1]。長度