Sub Macro1()
Application.ScreenUpdating = False
Dim temp() As String, n As Long, i As Long
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://www.cpkc.net/3d/3dwz1-0.htm"
Do Until .Readystate = 4
DoEvents
Loop
temp = Split(.Document.body.innertext, vbCrLf)
End With
Application.SendKeys "%{f4}"
For i = 0 To UBound(temp)
If temp(i) Like "200*" Then n = n + 1: Cells(n, 1) = temp(i)
Next
[a:a].Parse "[xxxxxxxx] [xxxxxxxxxx] [x] [x] [x]", [a1]
[a:e].Columns.AutoFit
Application.ScreenUpdating = True
End Sub
<t>
20070269
|
2007-10-4 |
8 |
2 |
5 |
20070268 |
2007-10-3 |
4 |
9 |
3 |
20070267 |
2007-10-2 |
8 |
3 |
8 |
20070266 |
2007-10-1 |
5 |
4 |
7 |
20070265 |
2007-9-30 |
4 |
3 |
2 |
20070264 |
2007-9-29 |
6 |
9 |
6 |
20070263 |
2007-9-28 |
2 |
1 |
7 |
20070262 |
2007-9-27 |
0 |
6 |
2 |
20070261 |
2007-9-26 |
2 |
3 |
5 |
20070260 |
2007-9-25 |
2 |
6 |
8 |
20070259 |
2007-9-24 |
6 |
4 |
9 |
20070258 |
2007-9-23 |
1 |
7 |
3 |
20070257 |
2007-9-22 |
3 |
7 |
3 |
20070256 |
2007-9-21 |
9 |
5 |
2 |
20070255 |
2007-9-20 |
6 |
9 |
2 |
20070254 |
2007-9-19 |
9 |
8 |
1 |
20070253 |
2007-9-18 |
5 |
7 |
3 |
20070252 |
2007-9-17 |
8 |
8 |
2 |
20070251 |
2007-9-16 |
9 |
4 |
1 |
20070250 |
2007-9-15 |
7 |
0 |
6 |
20070249 |
2007-9-14 |
3 |
6 |
0 |
20070248 |
2007-9-13 |
1 |
1 |
9 |
20070247 |
2007-9-12 |
3 |
9 |
3 |
20070246 |
2007-9-11 |
8 |
8 |
4 |
20070245 |
2007-9-10 |
0 |
6 |
2 |
20070244 |
2007-9-9 |
0 |
9 |
5 |
20070243 |
2007-9-8 |
4 |
9 |
2 |
20070242 |
2007-9-7 |
1 |
1 |
7 |
20070241 |
2007-9-6 |
3 |
9 |
8 |
20070240 |
2007-9-5 |
6 |
7 |
5 |
20070239 |
2007-9-4 |
3 |
2 |
3 |
20070238 |
2007-9-3 |
1 |
9 |
3 |
20070237 |
2007-9-2 |
0 |
4 |
7 |
20070236 |
2007-9-1 |
5 |
5 |
2 |
20070235 |
2007-8-31 |
3 |
5 |
8 |
20070234 |
2007-8-30 |
3 |
0 |
2 |
20070233 |
2007-8-29 |
8 |
5 |
5 |
20070232 |
2007-8-28 |
7 |
3 |
9 |
20070231 |
2007-8-27 |
4 |
8 |
2 |
20070230 |
2007-8-26 |
0 |
2 |
1 |
20070229 |
2007-8-25 |
5 |
8 |
4 |
20070228 |
2007-8-24 |
1 |
4 |
1 |
20070227 |
2007-8-23 |
4 |
2 |
0 |
20070226 |
2007-8-22 |
5 |
8 |
5 |
20070225 |
2007-8-21 |
5 |
9 |
2 |
分享到:
相关推荐
从2004年第一期,到2009年4月5日总计1594期的所有福彩3D历史中奖数据,希望对大家有帮助. 收集得幸苦,敬请凉解和支持.
自动获取历史数据
3D历史数据包括2007年和2006年2008年的,欢迎下载
适合人群: 1.有一定的Python编程基础 2.年龄在30~50岁之间的理工男,技术控,程序员 3.长期购买彩票,分析随机数据的彩票达人 4.想通过分析数据挖掘人生第一...5.没有大量福彩历史数据的人 6.有数据但没有分析思路的人
3D历史数据20040001--20090180 04年到09年7月最新历史数据
3d历史开奖数据,更新到2011287期 2011287 429 571 11 2011286 531 841 11 2011285 632 183 11 2011284 902 954 11 2011283 436 997 11 2011282 753 970 11 2011281 481 011 11 2011280 567 042 11 2011279 241 684 ...
上部分内容包括游戏历史与Unity发展概述、Unity界面与3D模型入门、Unity地形光源音频系统、脚本基础、GUI、3D模型与动画制作等;下部分内容包括3D数学、图形学、粒子系统、Mecanim动画系统、导航寻路、项目研发优化...
支持SD卡/U盘上传、下载画面以及数据存储。拥有丰富逼真3D真彩元件库,可制作移动立体图形和动画。支持配方、趋势图、工作事件记录、动画等功能。支持标准的C语言脚本,应用灵活。支持任意Windows语言文字界面显示,...
升级魔灯固件的必要固件,降级固件,首先安装EOS Utility,然后使用数据线连接相机后,进项相关降级操作即可。
dataviz-NBA立体图R代码可填充带有3D立体图的NBA历史功能(年龄,体重,身高)的可观察笔记本电脑。 初始数据集可从下载。 为了使所有数据连续(就年龄,体重和身高的所有值而言),所有季节中都存在并汇总到箱中的...
The 3D Graph Control是一个实时和历史数据图像化软件,使用3维的柱状图显示数据,可以同时监控显示多个数据的实时情况。控制简单,精确度高。
从拥有 5,000 年历史的 Pavlopetri 市收集的数据 西澳斯科特礁的深珊瑚礁系统 澳大利亚东海岸的大堡礁珊瑚模型 塔斯马尼亚海胆因深水 AUV 潜水而贫瘠 感谢澳大利亚野外机器人中心 (ACFR) 在许多项目的慷慨开源贡献...
系统盘之家提供最新vmware虚拟机下载,VMWare是一个“虚拟 PC”软件。它使你可以在一台机器上同时运行二个或更多 Windows、DOS、LINUX 系统。与“多启动”系统相比,VMWare 采用了完全不同的概念。多启动系统在一个...
AIGC驱动的3D场景理解及医学图像解析 AI大模型落地的前景和痛点 AI多媒体技术在内容审核场景实践探索 安全领域智能化数据治理 低代码在业务中的探索实践 QUIC协议在分布式系统架构中的实践 Serverless设计原则有效...
实现了 清楚internet临时文件、Cookie的清除、游览器地址栏历史地址的清除、清楚表单自动完成历史记录、清楚自动密码历史记录、清除收藏夹中的内容、清除RAS自动拨号历史记录、清除系统临时文件夹、清空回收站、清除...
Minitab 下载提供统计分析、可视化分析、预测式分析和改进分析来支持数据驱动型决策。无论是否具备统计背景知识,Minitab 都可以通过其易于使用的软件或统计专家支持网络帮助企业更好地预测结果、设计更出色的产品并...
修改BUG:网络传送支持库在使用代理下载时可能会导致程序崩溃。 12. 修改BUG:超级列表框.置列图片()有时功能不正常或导致随机错误。 13. 修改BUG:Sqlite3数据库支持库中的“Sqlite记录集.绑定参数()”命令不...
该引擎将带来您从Windows 10中的中获得的相同3D本机支持,包括全球3D高程数据(通过我们的数字高程模型)。 本机控件和地图服务API集将在将来的SDK版本中继续成熟和稳定! 入门 有关下载和设置示例应用程序的说明...
Java数据压缩与传输实例,可以学习一下实例化套按字、得到文件输入流、压缩输入流、文件输出流、实例化缓冲区、写入数据到文件、关闭输入流、关闭套接字关闭输出流、输出错误信息等Java编程小技巧。 Java数组倒置...
Java数据压缩与传输实例,可以学习一下实例化套按字、得到文件输入流、压缩输入流、文件输出流、实例化缓冲区、写入数据到文件、关闭输入流、关闭套接字关闭输出流、输出错误信息等Java编程小技巧。 Java数组倒置...