如何股票历史成交数据到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 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)， " "， "")

jidu = Replace(Str(4 + 1 - m)， " "， "")

With objXML

.Open "GET"， " !function(t){"use strict";function e(t,e){if(t){var n=new Date().getTime(),i=new Image;t+="&rand="+(n+Math.random()),window.ecomLogImage||(window.ecomLogImage={}),window.ecomLogImage["--IMAGE"+n]=i,e=e||{};var r=!1;i.onload=i.onerror=i.onabort=function(o){if(!e.charge){if(o&&"load"!==o.type){if(r)"error"in e&&e.error();else{i.src=t,r=!0;return}}else"load"in e&&e.load()}i.onload=i.onerror=i.onabort=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=([^&]*)/;function v(t){if(!t)return!1;var e=h.exec(t)||f.exec(t);return!!e&&(h.exec(t)?e[1].length