股票历史数据是指过去一段时间内特定股票的交易数据，包括每日、每周或每月的开盘价、收盘价、最高价、最低价、成交量等。这些数据对于股票市场的研究、分析和决策具有重要的价值。
XmlHttp对象是一套可以在Javascript、VbScript、Jscript等脚本语言中通过http协议传送或从接收XML及其他数据的一套API。XmlHttp最大的用处是可以更新网页的部分内容而不需要刷新整个页面。
现在的绝大多数浏览器都增加了对XmlHttp的支持，IE中使用ActiveXObject方式创建XmlHttp对象，其他浏览器如：Firefox、Opera等通过window.XMLHttpRequest来创建xmlhttp对象。
1、yahoo股票历史数据
yahoo提供国内外免费股票历史数据Web Service API接口。例如：
I、英国富时100股票Antofagasta plc铜矿开采公司，股票代码ANTO.L
https://query1.finance.yahoo.com/v7/finance/download/ANTO.L?period1=1580000000&period2=1700000000
II、中国深证成指指数，指数代码399001.sz
https://query1.finance.yahoo.com/v7/finance/download/399001.sz?period1=1510000000&period2=1700000000
III、中国上证股票中国平安，股票代码601318.ss
https://query1.finance.yahoo.com/v7/finance/download/601318.ss?period1=1510000000&period2=1700000000
地址中，“period1=1510000000&period2=1700000000”代表起始时间。1510000000和1700000000都是10位数，具体含义不清楚。设截止日期period2=1700000000已经足够覆盖当前最新日期，起始日期period1=1510000000可以获得1370天、4年多的数据。如果需要下载更多天数据，适当按位数减小period1、反之增加period1。
在浏览器中打开地址“
https://query1.finance.yahoo.com/v7/finance/download/399001.sz?period1=1510000000&period2=1700000000”，弹出窗口如下：
图中可以看出数据为EXCEL的CSV格式文本文件。打开后数据显示如下：
2、CSV数据抓取
如果一次下载一只股票的历史数据，在浏览器中打开数据服务接口地址下载保存到本地即可，但是要完成一次自动下载多只股票、并同时进行数据处理和计算（如计算10日均线、RSI强弱指数），运用XmlHttp对象是非常好的选择。
I、建立股票池
在EXCEL表格（如，sheet1）中，按格式记录感兴趣的股票代码与名称，如图：
II、建立窗体
（I）窗体设计
WebBrowser1网页控件：显示股票K线图形；
TextBox1文本框：显示在EXCEL表格中鼠标选定的股票代码；
ComboBox1复合框：下拉列表选择图形；
CommandButton1命令按钮：抓取CSV数据，并写入本地EXCEL表格。
（II）编写代码
UserForm_Initialize窗体初始化代码：
Private Sub UserForm_Initialize() ComboBox1.AddItem "分时线" ComboBox1.AddItem "日K线" ComboBox1.AddItem "周K线" ComboBox1.AddItem "月K线" ComboBox1.ListIndex = 1 WebBrowser1.Navigate "http://image.sinajs.cn/newchart/daily/n/sh000001.gif" End Sub
打开窗体后，效果如下：
鼠标点击sheet1中股票代码，如图，
鼠标点击单元格事件代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim r, c '获得鼠标点击单元格所在行 r = Target.Row '获得鼠标点击单元格所在列 c = Target.Column '调用图形设置子过程 setYChart r, c End Sub
图形设置子过程setYChart在模块1，代码如下：
Sub setYChart(r, c) Dim s As Integer Dim ID As String If c = 1 And r > 1 Then ID = Sheet1.Cells(r, 1) UserForm1.TextBox1 = ID If Mid(ID, 8, 2) = "ss" Then ID = "sh" & Mid(ID, 1, 6) Else ID = Mid(ID, 8, 2) & Mid(ID, 1, 6) End If s = UserForm1.ComboBox1.ListIndex With UserForm1.WebBrowser1 If s = 0 Then .Navigate "http://image.sinajs.cn/newchart/min/n/" & ID & ".gif" If s = 1 Then .Navigate "http://image.sinajs.cn/newchart/daily/n/" & ID & ".gif" If s = 2 Then .Navigate "http://image.sinajs.cn/newchart/weekly/n/" & ID & ".gif" If s = 3 Then .Navigate "http://image.sinajs.cn/newchart/monthly/n/" & ID & ".gif" End With End Sub
鼠标点击单元格效果如下图：
ComboBox1复合框下拉列表选项变化事件代码：
Private Sub ComboBox1_Change() Dim r, c '获取所在单元格所在行 r = ActiveCell.Row '获取所在单元格所在列 c = ActiveCell.Column '调用图形设置子过程 setYChart r, c End Sub
在下拉列表中选择月K线，效果如下图：
CommandButton1【事件抓取】命令按钮代码：
Private Sub CommandButton1_Click() Dim httpRequest As Object Dim URL As String Dim ID As Integer, txt As String, str As String, rows As Integer Dim arrs As Variant, arr As Variant Dim oRows As Integer, i As Integer, j As Integer txt = TextBox1.Text '建立XMLHTTP对象 Set httpRequest = CreateObject("MSXML2.XMLHTTP") '按TextBox1文本框股票代码拼写地址 URL = "https://query1.finance.yahoo.com/v7/finance/download/" & txt & "?period1=1510000000&period2=1700000000" '后台打开网址 httpRequest.Open "GET", URL, False '定义下载数据格式 httpRequest.setRequestHeader "Content-Type", "text/html" '向地址服务器发送请求 httpRequest.Send '如果请求成功 If httpRequest.Status = 200 Then '获得下载文本 str = httpRequest.ResponseText Set httpRequest = Nothing '按回车符将文本分割为数组 arrs = Split(str, Chr(10)) '获得数组总行数 oRows = UBound(arrs) '写下载数据表头 Sheet2.Cells.Clear Sheet2.Cells(1, 1) = "Date" Sheet2.Cells(1, 2) = "Open" Sheet2.Cells(1, 3) = "High" Sheet2.Cells(1, 4) = "Low" Sheet2.Cells(1, 5) = "Close" Sheet2.Cells(1, 6) = "Adj Close" Sheet2.Cells(1, 7) = "Volume" '表头设为黑体和红色 Sheets("sheet2").Select Range("A1:G1").Select Selection.Font.Bold = True With Selection.Font .Color = -16777024 .TintAndShade = 0 End With For i = 1 To oRows 'CSV数据为每列用“,”号分割，这里按行“,”将每行文本分割为数组 arr = Split(arrs(i), ",") For j = 1 To 7 Sheet2.Cells(i + 1, j) = arr(j - 1) Next j Next i End If End Sub
运用XmlHttp对象抓取数据效率较高，可以一次性循环抓取、处理多只股票数据。例如，一次抓取500只股票、并同时计算出不同股票MACD、RSI、MA等指标，从而实现大数据选股和AI决策股票买卖。
需要注意的是股票数据服务接口并不是一成不变的。例如，腾讯的日线数据接口“
https://data.gtimg.cn/flashdata/hushen/daily/22/sh000001.js”已经免费开放20多年，但2022年10月24日该地址数据服务终止。返回的格式化数据如图，
腾讯目前日线数据接口为“
https://web.ifzq.gtimg.cn/appstock/app/fqkline/get?_var=r_sh000001¶m=sh000001,day,2000-01-01,2023-11-13,500,qfq”，返回JSON数据如下：
可以看出，网络数据抓取项目的设计一定要有较强兼容性，一旦数据服务地址或网页内容发生变动，项目代码可以做出快速调整，避免耽误所在单位或公司业务。
2019年11月26日，阿里巴巴集团在港交所上市，图/视觉中国
阔别港交所7年，阿里巴巴再度回归，市值一举超过腾讯，登顶港股市值之王。
今日，阿里巴巴集团控股有限公司（AGHL，Alibaba Group Holding Limited）在港交所正式挂牌，股票代码[9988.HK]，一开盘即上涨6.25%，报187港元，截至发稿前，阿里股价已上涨7.27%至189港元。
按照目前的股价计算，阿里巴巴总市值已超4万亿港元，超越腾讯控股，腾讯控股目前市值为3.26万亿港元。在今日的上市仪式上，马云意料之中的并未出席，而是通过视频露面。阿里巴巴董事局主席、CEO张勇和执行副董事长蔡崇信等人到场了上市活动。
张勇在致辞中表示，“今年是阿里巴巴的第20周年，在这20周年生日之际，我们迎来了一个重要的里程碑，就是回家，回香港上市。”
11月13日，阿里巴巴集团向香港联交所官网提交初步招股文件，正式启动香港IPO计划。阿里巴巴此次共发行5亿股普通股新股，其中香港公开发售0.125亿股新股，国际发售股份4.5亿股，发售价定在176港元。阿里此次赴港上市，不仅是今年全球规模最大的IPO，也是香港自2010年以来最大的股票集资。
阿里巴巴25日公布招股结果显示，公开发售部分收到了约21.5598万份有效申请，成为今年被认购最多的新股。由于公开发售部分反应理想，启动回拨机制后，公开发售比例由2.5%增至10%。阿里方面表示，将全数使用超额配股权额，多发行7500万股股份，预计总集资额将超过1012亿港元。
在此轮IPO后，阿里巴巴的股权结构将变成软银持股25.2%，董事、高管群体持股8.8%（马云6%，蔡崇信1.9%），Altaba（原雅虎）降到5%披露线之下。
按照招股书披露的信息，阿里巴巴此次香港IPO募集资金将用于三方面，驱动用户增长及参与度提升、助力企业实现数字化转型升级、持续创新。
此次上市是阿里巴巴第三次IPO，以及第二次在香港挂牌。
2007年11月6日，阿里巴巴旗下B2B业务就曾在香港上市，当年阿里以13.5港元的价格上市后，股价曾一度飙涨至41.8元，达发行价（13.5元）的三倍，赢得“香港新股王”的称号，但是紧接而来的金融危机使股价一路下跌，再加上C2C、B2C业务的日渐成熟，B2B业务的位置开始逐渐靠后，五年后，2012年2月21日，阿里宣布以每股13.5元私有化，并于2012年6月20日，撤销在香港交易所上市。
2013年，阿里巴巴再次赴港谋求整体上市，但由于阿里巴巴于2010年起开始施行的“合伙人制度”采取了同股不同权的模式，使持股比例不到10%的马云和管理团队可以保持对阿里巴巴的控制权，这与港交所奉行的“同股同权”上市规则相违背。
在当时香港监管机构认为，香港与美国制度不同，缺少集体诉讼机制，为保护中小投资者必须坚持“同股同权”。对此，阿里巴巴集团执行副主席蔡崇信在当年曾发文称：“我们没有期望香港监管机构为了阿里巴巴一家公司做出改变。”
回归香港上市失败后，阿里随即转投美国资本市场。2014年9月19日，阿里巴巴在纽交所上市，募集资金共250亿美元，成为当时全球规模最大的IPO，目前阿里在美股的股价为190美元，市值为5091亿美元。
错失阿里之后，港交所在遗憾之余也开始作出改变。2018年4月30日，港交所修订后的主板《上市规则》正式生效，这是港交所近二十多年来作出的最大变革。按照新版的《上市规则》，港交所将对新兴的三类公司打开大门：同股不同权结构公司、未有收入的生物科技类公司、将港交所作为第二上市地的公司。
在港交所实施双重股权上市结构之后，包括美团、小米等在内的一大批新经济公司相继赴港上市，而这一新规也将阿里再次带回港股。
时隔七年，阿里衣锦还乡，而此次上市后，阿里巴巴将成为首个同时在中国香港和美国纽约两地上市的中国互联网公司。按照阿里巴巴此前官方的说法，阿里回归港股旨在多元化融资渠道和提高流动性。
目前阿里新零售、云计算，海外市场业务等都处于投入和扩张阶段，尤其是云计算、数字媒体及娱乐、创新业务都仍处于亏损状态，且可能需要持续一段时间，即便阿里巴巴账上现金类资产尚有309.09亿美元，但多备些粮草总是有备无患。此外，外界还普遍认为，阿里此次赴港上市，还有在中美贸易紧张的情况下分散风险的需要。（本文首发钛媒体，作者/谢康玉）
（视频：阿里巴巴香港敲锣上市，张勇演讲全记录）
各位来宾、各位媒体的合作伙伴们，大家好，欢迎大家来参加阿里巴巴的上市仪式，站在这里，我非常激动，我想今年是阿里巴巴的第20周年，在这20周年生日之际，我们迎来了一个重要的里程碑，就是回家，回香港上市。
在这个重要的时刻，我想首先还是要感谢我们的客户，感谢所有阿里巴巴的客户过去20年对我们的支持和陪伴，和我们一起去探索未来，不断的创新，甚至不断的试错。今天刚才大家也看到了，我们特地请了十位来自全球四大洲，八个国家的客户代表，和我们一起来参加我们的上市仪式，最重要的是能够为阿里巴巴来敲响上市的锣声。
在五年以前，当我们在纽约上市的时候，我们那时也一样，由我们八位，当时主要来自电商，来自于中国国内的八位客户敲响了上市的钟声。今天我们这新一代的十位来自全球的客户，也代表了阿里的未来，代表了阿里的全球化，我们会坚定的和他们一起走下去、闯下去。
第二，我特别想感谢香港，感谢港交所，因为过去几年香港的创新，香港资本市场的改革，使我们在五年以前错过的遗憾，今天能够得以实现，能够实现我们五年前曾经说过的：“如果条件允许，香港，我们一定会回来。”
当然我们还要感谢我们所处的这个时代，因为互联网的发展，因为数字经济的发展，曾给到阿里巴巴这样的机会，去实现我们在创业之初所提出的使命“让天下没有难做的生意”，我们的答案就是用数字技术来帮助我们的客户、帮助我们的合作伙伴，共同的走向数字经济时代。
今天在这个时代的大潮面前，我特别想说阿里巴巴生来是一家相信社会的美好、相信社会的明天这样一家公司，我们会和大家一起共同的去努力，去实现我们的使命，去牢记我们的初心，共同去探索数字经济时代美好的未来。我们已经准备好了，香港，我们来了！
更多精彩内容，关注钛媒体微信号（ID：taimeiti），或者下载钛媒体App
引用地址:https://www.gupiaohao.com/202407/51964.html
tags: