自动更新开奖数据的excel文件[双色球、福彩3D、七乐彩、大乐透、排列三、排列五、...

xq4u

很多人拥有自制excel电子表格，常要更新最基本的开奖信息。如有多期未更新，则费时更多。为大家提供双色球、福彩3D、七乐彩、大乐透、排列三、排列五、七星彩、22选5、快乐8九种彩票的自动更新文件，供下载。您只需点击更新按钮，就能得到最及时全面的开奖信息，省时省力。

三票

能不能改一下VBA只取最后100期数据

xq4u

三票 发表于 2023-6-23 22:19
能不能改一下VBA只取最后100期数据

优化了代码，将更新开奖数据的代码合并成一个子程序，供所有命令按钮调用。

思路是将彩票数据的文本文件下载，读取总行数（即彩票期数），取其后面的100期，参数 np：表示要更新的彩票期数，rc：彩票总期数，如需显示其他期数，修改参数 np 即可，当需要更新全部期数时，令 np = rc。

tianshan336

学习了，谢谢分享！

micch

建议优化一下，连接太多了，会越来越多

perfect131

micch 发表于 2023-8-18 12:38
建议优化一下，连接太多了，会越来越多

连接 ？用的pq? 那这个得重写

xq4u

micch 发表于 2023-8-18 12:38
建议优化一下，连接太多了，会越来越多

谢谢提醒，增加一个删除所有查询、连接的子程序即可，但还是有几个删不掉，不过应该不会累计增加了：

1. Public Sub DelCon()  '删除所有查询、连接
   
2. Dim Conn As WorkbookConnection
   
3. Dim Qr As WorkbookQuery
   
4.    
   
5.     For Each Qr In ThisWorkbook.Queries '删除所有查询
   
6.         Qr.Delete
   
7.     Next Qr
   
8.    
   
9.     For Each Conn In ThisWorkbook.Connections '删除所有连接
   
10.         Debug.Print Conn.Name
    
11.         Conn.Delete
    
12.     Next Conn
    
13.    
    
14. End Sub

复制代码

838225419

     谢谢分享

gdlihaoran

提示压缩文件已损坏

xq4u

gdlihaoran 发表于 2023-9-11 15:42
提示压缩文件已损坏

下载看了，是好的呀，重新下载一下，再不行就安装最新的WinRAR版本，应该就可以打开了。