VBA 根据股票代码查询价格

未实现定时刷新
Sub 抓取股票价格()
On Error Resume Next
Set regx = CreateObject("vbscript.regexp") '
regx.Global = True
regx.Pattern = "\[""(.*)"",""(.*)"",(\d+),(.*),(.*),(\d{8}).*\]" 'arr_stock = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)) '股票代码数组
string_stock = Join(Application.Transpose(arr_stock), ",") '股票代码数组分成字符串https = "http://q.jrjimg.cn/?q=cn|s&i="https = https & string_stock & "&c=code,name,np,pl,time,stp&o=pl,d&n=realHqxny_concept_9000&_=1507340273905"
Set ie = CreateObject("internetexplorer.application")
ie.navigate httpsDo Until ie.readystate = 4DoEvents
LoopWith ie.documentstring_body = .body.innerText '返回的代码Set mh = regx.Execute(string_body) '应用正则For Each m In mhi = i + 1Cells(i + 1, 2) = m.submatches(1) '公司名称Cells(i + 1, 3) = m.submatches(3) '价格Cells(i + 1, 4) = m.submatches(4) '涨跌幅Cells(i + 1, 5) = m.submatches(5) '日期Nextie.Quit
End WithSet ie = Nothing
Set regx = Nothing
End Sub

转载于:https://blog.51cto.com/13834900127/1970619

VBA 根据股票代码查询价格相关推荐

python帮助生活-想把python运用在实际生活中?那么python查询价格方法可以帮助你...
[摘要]通过本次课程可以让python学员了解一下python查询价格方法,对代码编程有个感性的认知.也好让大家能够理性选择,不要盲目跟从,选择适合自己当前阶段的学习内容,循序渐进,以兴趣自我探索为向 ...
python生活中哪些运用_【想把python运用在实际生活中?那么python查询价格方法可以帮助你】- 环球网校...
[摘要]通过本次课程可以让python学员了解一下python查询价格方法,对代码编程有个感性的认知.也好让大家能够理性选择,不要盲目跟从,选择适合自己当前阶段的学习内容,循序渐进,以兴趣自我探索为向 ...
统一信用代码n开头_股票代码查询怎么查,通过板块查找股票
股票代码怎么查询? 股票查询能够在任意行情软件中查找,在输入股票号那栏中输入要查找个股的名字的首字母就可以了,行情软件查找都是输入首字母即可.下列为股票号的归类: 股票代码怎么查询? 股票查询能够在任 ...
新车查询价格流量主小程序开发
新车查询价格流量主小程序开发概述/ 新车询价.大数据接口.广告流量主信息.收录数据导出功能/ 全国地区数据直接导入.后台自定义参数设置.后台收录信息管理,数据导出后台/ 大数据车型接口.流量主广 ...
小福利，用Excel VBA设计一个查询小应用
小福利,用Excel VBA设计一个查询小应用 Option ExplicitSub 查询_Click()Dim rng1, rng2, rng As RangeDim firstaddressDim ...
access vba在新建查询前查看查询名是否存在
access vba编程中新建查询时,如果新建的查询名在数据库中已经存在,程序将出错.因而,在新建查询前应查看查询名是否存在. Dim dbsCurrent As Database Dim qryTe ...
python 报价_python基础教程_查询价格
少儿编程和数学是有这一定联系的,若是将编程弄好了,数学成绩也就会有所提高,今天就为大家来介绍一下一个关于数学的相关编程,现在我们就来看看吧! 题目描述编程实现以下功能:查询水果的单价.有4种水果,苹 ...
python编程价格_Python基础练习实例46（查询价格）
题目描述编程实现以下功能:查询水果的单价.有4种水果,苹果(编号:1001).梨(编号:1002).桔子(编号:1003)和葡萄(编号:1004),单价分别是3.00元/公斤,2.50元/公斤,4. ...
【数据库查询--计算机、电脑系列】--查询价格最高的打印机型号。
分析:涉及到printer这个表注意**>=all 的用法** 在查找最大值时很有用上代码: select distinct model from printer where price & ...

VBA 根据股票代码查询价格

VBA 根据股票代码查询价格相关推荐

最新文章

热门文章