通过VBA在excel中实现股票当日走势数据查询表（完整代码截图在文章最后，完整的excel原件可以在我的资源中下载）

最新推荐文章于 2024-02-23 11:27:27 发布
最新推荐文章于 2024-02-23 11:27:27 发布
阅读量4.3k 收藏 17
点赞数 5
文章标签： vba excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weitingfu/article/details/120458746
版权

 需求：

1、通过excel看盘；

2、输入不同的股票代码都可以自动爬取实时行情数据。

实现方案；

1、通过VBA从网上实时爬取行情数据；

2、通过VBA实现定时5s刷新一次数据；

3、通过VBA自动创建图表

具体步骤：

1、打开VBE编辑器 

2、输入VBA代码

（1）清除原始数据程序

（2）延时程序

 （3）从网上爬取行情数据程序

（4）生成图表程序

 

 

 (5)停止刷新程序

在自动刷新程序中调用 

 

（6）冻结单元格程序

 

 3、完整VBA代码

 

 

weitingfu
关注
  • 5
    点赞
  • 踩
  • 17
    收藏
    觉得还不错? 一键收藏
  • 3
    评论
编辑 用Excel制作股票交易表格/日志，带macro宏程序（vba）更新V1.5
weixin_44306945的博客
12-20 2246
交易股票最好要记录每一笔交易，交易记录能帮助我们回忆和分析交易中的成功失败，以获得交易技能的提升，甚至可以使我们头脑更加清晰，不至于做出错误判断和冲动交易。 于是本着每一笔交易都详细记录的投资者，自己制作了一款excel版本的股票交易日志。
excel 获取股票价格_股票价格的Excel点图
culiao2169的博客
08-13 1656
excel 获取股票价格 股票价格的Excel点图 (Excel Dot Plot Chart for Stock Prices) Today we'll create an in-cell chart that shows the latest price for a stock, compared to its low and high prices. There is a sample fi...
Excel+VBA+获取股票的历史数据+股票+基金+投资+理财+源代码+可直接使用
01-30
如标题
用Excel实时看股票数据--vba（无需安装任何软件）
热门推荐
wayright的专栏
08-03 2万+
（7）补充：网友回复无法区分sz和sh，这里把GetData函数修改了一下，让第一列可以输入纯数字或者带字母的输入，比如sz000001。（3）选择ThisWorkbook选项，添加Workbook的Open函数，这样在excel打开的时候就会自动执行GetData。（5）点击选项，可以设置快捷命令，例如Ctrl+R，用快捷键刷新看实时数据。提取其中的名称（民生银行），收盘价格，昨日价格，涨跌百分比即可。（6）Excel保存为可以运行宏的文件，如stock.xlsm。
通过VBA在excel中实现多只股票基金实时交易数据查询（完整的excel原件可以在我的资源中下载）
weitingfu的博客
10-26 1万+
需求： 1、通过excel看盘； 2、输入不同的股票代码都可以自动爬取实时行情数据； 3、同时查看多只股票、基金实时交易信息。 实现方案； 1、通过VBA从网上实时爬取行情数据； 2、通过VBA实现定时2s刷新一次数据； 3、制作“开始刷新”和“停止刷新”按钮。 具体步骤： 1、打开VBE编辑器 2、输入VBA代码 （1） 主程序 （2）延时程序 （3）从网上爬取行实时情数据程序 （4）停止刷新 3、制作按钮 （1）插入形状（...
从腾讯证券自动抓取股票数据.zip_VBA__VBA_
08-09
从腾讯证券接口自动抓取股票数据，区分上证、深证等
墙上的VBA：使用Excel和VBA对多年股票数据进行财务分析
02-19
华尔街的VBA 该脚本将在每次运行中循环浏览一年的库存数据，并返回当年每只库存的总量。 从给定年初的开盘价到该年年底的收盘价的年度变化。 从给定年年初的开盘价到该年末的收盘价的百分比变化。 库存的总库存量。 还具有条件格式，将突出显示绿色的正向变化和红色的负向变化。 还返回具有“最大百分比增长”，“最大百分比减少”和“最大总量”的库存。
通过VBA在excel中实现股票当日走势数据查询表.docx
10-08
通过 VBA 在 Excel 中实现股票当日走势数据查询表，能够实现实时爬取股票行情数据、自动刷新数据、生成图表等功能。该功能可以帮助投资者实时了解股票走势，做出更加明智的投资决策。 知识点 1：使用 VBA 实现股票...
ExcelVBA中的语法结构完整版资料.ppt
11-14
对象是指在Excel VBA中可以操作的实体，例如工作簿、工作表、单元格、图表等。属性是指对象的固有特征，例如工作簿的大小、工作表的个数、列的高度和宽度、单元格的颜色、数值等。方法是指对对象执行的某种动作，...
Excel-VBA宏编程实例源代码-在数据清单中进行拖曳操作.zip
03-18
Excel-VBA宏编程实例源代码-在数据清单中进行拖曳操作.zip
day2txt_EXCEL/VBA读通达信日线_通达信_
10-01
通达信日线文件一般是 D:\通达信目录\Vipdoc\sz\lday\szXXXXXX.day附件中是一个带宏的xls文件(EXCEL)和测试数据。文件可以之间将day文件读入excel，便于后续分析。
操作极其简单的股票实时行情EXCEL版
01-08
操作极其简单的股票实时行情EXCEL版操作极其简单的股票实时行情EXCEL版
EXCEL 获取股票价格
07-05
可以实时获取股票数据，VBA编写的，非常实用。
Excel-VBA宏编程实例源代码-在表中进行计算之前执行代码.zip
03-18
Excel-VBA宏编程实例源代码-在表中进行计算之前执行代码.zip
使用vb将查询结果导出为excel文件
RainyBoo的专栏
01-08 2140
将查询信息导出为excel文件输出输入：param1 string database名字            param2 string sql语句Public Sub SaveAsExcel(database As String, strSql As String)Dim rs As New ADODB.RecordsetDim objExcel As New Excel.Applic
获取期货所有产品基本信息，存放到execel表中
最新发布
k1419197516的博客
02-23 235
【代码】获取期货所有产品基本信息，存放到execel表中。
Excel VBA数据导出
Canterer-子帅的博客
08-14 3742
游戏中很多配置文件都采用Excel保存数据。但实际使用时，可能需要对Excel数据再处理成我们需要的格式。基于此需求，学习了Excel的VBA来导出数据到文件中。 开启VBA Excel中的开发工具默认都没有打开，此处需要百度一下如何打开对应版本的Excel。（注：高版本的开发工具需要专业版或商业版才能使用，最好不要使用过高版本，最低office excel 2007版） 宏设置 Excel
用Excel实现自动获取期货、期权、股票行情及下载历史数据
m0_64899365的博客
09-18 7595
用ExcelVBA获取期货及股票数据等
导出数据到Excel方法总结
yangmingxing980的专栏
05-09 688
导出数据到Excel方法总结 一，问题的提出 近来在网上经常有人问怎样把数据导出到Excel中?针对这个问题网上也有很多资料。大都比较的琐碎。本人当前从事的项目中，刚好涉及到这些内容。就顺便做了一些归纳整理。共享给大家。避免大家再花费很多时间研究这个老生长谈的问题。 二，解决方法 1.       用NPOI导出数据到Excel。 简介：NPOI是一个开源的dotnet类库，官方网站：h
vba代码 实现在excel总表中将非总表的其他所有工作表数据都汇总到总表中
06-07
你可以使用 VBA 代码来实现将非总表的其他所有工作表数据都汇总到总表中。以下是示例代码： ``` Sub ConsolidateData() Dim ws As Worksheet Dim lastRow As Long Dim totalRows As Long Dim i As Long ' Set the totalRows variable to be the total number of rows in the destination worksheet totalRows = ThisWorkbook.Worksheets("总表").Range("A" & Rows.Count).End(xlUp).Row ' Loop through all worksheets in the workbook except the destination worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "总表" Then ' Find the last row of data on the current worksheet lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row ' Copy the data from the current worksheet to the destination worksheet ws.Range("A2:E" & lastRow).Copy _ Destination:=ThisWorkbook.Worksheets("总表").Range("A" & totalRows + 1) ' Update the totalRows variable to include the new data from the current worksheet totalRows = ThisWorkbook.Worksheets("总表").Range("A" & Rows.Count).End(xlUp).Row End If Next ws End Sub ``` 这个代码会循环遍历工作簿中的所有工作表，跳过名为“总表”的工作表。然后，它会找到每个工作表中的最后一行数据，将该工作表的数据复制到“总表”工作表的下一行。最后，它会更新“总表”工作表的总行数，以便下一个工作表的数据可以添加到正确的位置。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 3
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值