如何获取当日股票数据（excel炒股经验四)

马晓翔MMC 2024-09-27 06:08:41

最佳回答

1第一步，个股代码存放在工作表a2单元格，获取当日个股数据代码：function downloadhtm(url) on error resume next downloadhtm = true dim retrieval set retrieval = createobject("microsoft.xmlhttp") with retrieval .open "get", url, false, "", "" .send if .readystate <> 4 then downloadhtm = false exit function end if downloadhtm = strconv(.responsebody, vbunicode) end with set retrieval = nothingend functionsub 当日个股()dim th**code as stringdim datas() as string, url as stringdim i, j, k as integerdim s as stringon error resume nextapplication.screenupdating = falseif ([a4] = "" and [a5] = "") or [a4] <> date then th**code = getfullcode(cells(2, 1)) url = "http://qt.gtimg.cn/q=" & th**code '取得url后再获取数据，再分割 s = downloadhtm(url) '分割代码 datas = split(s, "~") if datas(5) > 0 then range("a4:k4").select selection.insert shift:=xldown cells(4, 1) = date cells(2, 2) = datas(1) cells(4, 5) = datas(3) '当前 cells(4, 6) = datas(31) '涨跌额(元) cells(4, 7) = datas(32) '涨跌幅(%) cells(4, 2) = datas(5) '开盘 cells(4, 3) = datas(33) '最高 cells(4, 4) = datas(34) '最低 cells(4, 10) = datas(43) '振幅(%) cells(4, 8) = datas(36) '成交量(万手) cells(4, 9) = datas(37) '成交额(亿) cells(4, 11) = datas(38) '换手率 end if end if end sub2第二步，获取大盘当日数据，以及所有股票当日数据。股票代码如下：sub 一键更新当日数据()dim th**code as stringdim datas() as string, url as stringdim i, j, k as integerdim s as stringon error resume nextapplication.screenupdating = falseif (sheet2.[a4] = "" and sheet2.[a5] = "") or sheet2.[a4] <> date then url = "http://hq.sinajs.cn/l**t=sh000001" '取得url后再获取数据，再分割 s = downloadhtm(url) '分割代码 datas = split(s, ",") if datas(30) <> sheet2.cells(4, 1) then sheet2.activateactivesheet.range(cells(4, 1), cells(4, 9)).select selection.insert shift:=xldown sheet2.cells(4, 1) = datas(30) sheet2.cells(4, 5) = datas(3) '当前 sheet2.cells(4, 6) = datas(3) - sheet2.cells(5, 5) '涨跌额(元) sheet2.cells(4, 7) = sheet2.cells(4, 6) * 100 / sheet2.cells(5, 5) '涨跌幅(%) sheet2.cells(4, 2) = datas(1) '开盘 sheet2.cells(4, 3) = datas(4) '最高 sheet2.cells(4, 4) = datas(5) '最低 sheet2.cells(4, 8) = datas(8) '成交量(万手) sheet2.cells(4, 9) = datas(9) '成交额(亿) end if end ifn = worksheets.countfor i = 4 to n worksheets(i).activate 当日个股nextsheets("汇总").activateapplication.screenupdating = trueend sub2本页面未经授权抓取自百度经验3第三步，在数据库下所有工作簿当中，写入这段程序。或者复制该工作簿27份，写入不同股票代码。4第四步，在炒股目录下新建工作簿“一键更新表格”，里面输入以下代码：sub 当日数据() dim wb as workbookapplication.calculation = xlcalculationmanual for i = 1 to 27 set wb = workbooks.open(th**workbook.path & "\数据库\" & i & ".xl**") application.run "'" & wb.path & "\" & i & ".xl**'!一键更新当日数据"wb.s**ewb.close next iapplication.screenupdating = true end sub这样，我们就实现了通过这段程序更新所有股票当日数据。5第五步，对应程序添加按钮，这样，我们在实现某一段程序功能的时候，就能够通过点击一个按钮即可实现对应的功能了。6第六步，如果只是更新当日所有股票数据到一个工作表，这个速度是很快的，大概只要3秒左右。但是考虑要对这些数据做分析，所以更新的数据要一段一段的写入到对应的工作表当中，并且，程序还要不断的执行打开-写入-保存-关闭等操作。所以整个过程大概要十几分钟。当然，通过这样的方式，我们就可以对所有的股票作单独分析，也可以做整体分析。end 20210311

汇率兑换计算器

兑换金额：

持有货币：

兑换货币：

兑换结果：

类似问答

如何用 python 获取实时的股票数据？
- 2024-09-27 06:41:43
- 提问者: 未知
from urllib.parse import urlencode import pandas as pd import requests def gen_secid(rawcode:str)->str:''' 生成东方财富专用的secid parameters-rawcode:6 位股票...
如何接入东方财富网获取股票行情数据
- 2024-09-27 15:24:05
- 提问者: 未知
找东方财富网站技术部。祝顺利，望采纳
如何获得股票的每日交易分笔数据
- 2024-09-27 02:36:08
- 提问者: 未知
在有level2数据开放的软件即收费软件里按f1键显示分时的逐笔每一单笔数据；在免费的非level2数据的软件里按f1键显示的是根据时光先后的分时成交数据它可能出现单笔的数据也...
如何下载股票历史成交数据到excel或txt
- 2024-09-27 10:46:02
- 提问者: 未知
以同花顺股票软件为例：首先切换到要下载数据的股票k线形态，按“f1”进入“日线某某股票历史成交”击鼠标右键->数据导出->导出所有数据->在“请选择导出的类型”中选择excel或txt,,只有这二种格式可以选择；选取好后点击下一步，在“导入导话框模板”中选要的项目（如最高价、最低价，开盘价等，默认是全选），点下一步，完成。默认保存路径在桌面上。
如何利用一些 finance 数据库 api 批量获取股票信息？
- 2024-09-27 14:24:15
- 提问者: 未知
使用yahoo api获取股票信息。一、2016年5月6日更新。根据最近频繁出现的数据超市，可以无限制获取相关数据，而不再需要使用爬虫等方式获取，这样不仅节省了极大资源，也有利于遍历数据。具体的方法不再赘述，列出来相关网站清单，开发者可自行到这些网站查询调用方法。1.聚合数据 ...
股票数据免费获取
- 2024-09-27 13:00:42
- 提问者: 未知
1进入如图所示的网（聚）站（宽），或者查看参考资料。拿手机号随便注册一下。股票数据数据就可免费获取了。 2常见数据都在由securityunitdata基本属性的获取数据简介：api原文：securityunitdataopen 时间段开始时价格close 时间段结束时价格low 最低价high 最高价volume 成交的股票数量money 成交的金额factor 前复权因子high_limit...
j**a 如何实现获取实时股票数据
- 2024-09-27 19:16:10
- 提问者: 未知
一般有三种方式：网页爬虫5261。采用爬虫去4102爬取目标网页的股票数据，去github或技术论坛（如csdn、51cto）上找1653一下别人写的爬虫集成到项目中。请求第三方api。会有专门的公司（例如百度api市场）提供股票数据，你只需要去购买他们的服务，使用他们提供的sdk，仿照demo开发实现即可。...
如何利用程序(如python) 从新浪财经或者雅虎财经获取到所有a股数据(历史日线数据，实时股票数据)？
- 2024-09-27 00:30:14
- 提问者: 未知
1:使用python.matplotlib 中的 finance module示例代码如下：from.
如何将股票日频数据整理成股票月频数据
- 2024-09-27 01:00:26
- 提问者: 未知
1提取日频数据中，日期序列（a列）的年份（year函数）和月份（month函数），存储到新的序列中（e；列）。2整理月频数据的月份列表3利用match函数，识别某月份在原始日频数据中的开始行号（匹配月频日期序列中的当前月份）和结束行号（匹配月频日期序列中的下一个月份）4利用indirect函数，引用step3中生成的行号，并和一个指定列字母组成一个新的单元格（indirect("d&qu...
如何将股票日线数据的转换到excel中
- 2024-09-27 17:45:10
- 提问者: 未知
在看盘软件中,菜单系统中,数据输出,然后选择excel格式. 出售股票历史日线数据源,我可以转换成你需要的格式给你使用.让你的程序能读的出.以txt文件给你[问题点数:20.一天股票日线数据有日期 ...

如何获取当日股票数据（excel炒股经验四)

房贷计算器-九子财经 | 备案号： 桂ICP备19010581号-1 商务联系 企鹅：2790-680461

房贷计算器-九子财经 | 备案号：桂ICP备19010581号-1 商务联系企鹅：2790-680461