Excel 请问如何用VBA提取这个网页上的开奖号码

2023-07-26 14:36发布

我问过同类问题#p#遮 许 哆 哖 了木急 聢 且 咹 诠请 芳 伈kpt.baidu/www.tw-r.com?twcz-----------------步骤
5条回答
1楼 · 2023-07-26 14:48.采纳回答

Subcc()

Cells.ClearContents

SetoDoc=CreateObject("htmlfile")

[a1:c1]=Array("时间","开奖号码","冠亚军和")

[f1]="1~5龙虎"

[c1:e1].Merge:[f1:j1].Merge

WithCreateObject("MSXML2.XMLHTTP")

.Open"GET","http://www.1396me.com/pk10/kaijiang",True

.Send

DoUntil.ReadyState=4

DoEvents

Loop

s=Replace(Replace(.responseText,"""></i>","</i>"),"pk-no",""">")

oDoc.body.innerHTML=s

Setr=oDoc.All.Tags("table")(0).Rows

Fori=0Tor.Length-1

Forj=0Tor(i).Cells.Length-1

Cells(i+1,j+1)=r(i).Cells(j).innerText

Nextj

Nexti

Setr=Nothing

EndWith

EndSub
本回答被提问者和网友采纳

2楼-- · 2023-07-26 14:47

遮 许 哆 哖 了
木急 聢 且 咹 诠
请 芳 伈
kpt.baidu/www.s-55.com?asjh
-----------------
解决方法:
1、从这台电脑,进入控制面板。
2、在时钟、语言和区域中,点击”更改日期、时间或数字格式“
3、在区域设置页面,选择管理选项页,点击非Unicode程序的语言中的更改系统区域设置。
4、在区域设置中,下拉选择英语(美国)。
5、确定后,重启电脑。找到战地4的启动文件bf4_x86.exe,右键属性,在兼容性选项页中勾选以兼容模式运行这个程序,并在下拉中选择,再勾选最下面的以管理员身份运行此程序,确定即可。

3楼-- · 2023-07-26 14:53

遮 许 哆 哖 了
木急 聢 且 咹 诠
请 芳 伈
kpt.baidu/www.tw-r.com?twcz
-----------------
步骤:
1、在电脑上点击桌面左下角的WIN图标,然后选择计算机管理
2、然后在管理窗口中左侧,点击选中“任务计划程序”,然后右击,弹出选择“创建基本任务”
3、接下来输入任务的名字,可以随便输入的,不过为了好记,可以输入“宽带自动连接”
4、接下来的触发器选择计算机启动时,也就是每次计算机开机时都会触发这个任务
5、然后选中“启动程序”,然后点击下一步。这个默认就是这个选项,如果不是以选中一下。
6、在程序或脚本设置下,输入“rasdial 宽带连接 账号名 密码”。然后点击下一步。
7、弹出一个提示窗口,点击“是”。
8、在底下选中“当单击完成时打开此任务属性对话框”。然后点击“完成”。
9、在属性窗口中,点击“条件”,下面点击取消选中“只有在计算机使用交流电时才启动此任务”。然后点击“确定”。

4楼-- · 2023-07-26 15:00

我问过同类问题

5楼-- · 2023-07-26 15:04

漫步在落雪的心湖,将冰凌花清澈成一个身影,在夜幕里随风而动,婉如独舞的雪花
漫步在落雪的心湖,将冰凌花清澈成一个身影,在夜幕里随风而动,婉如独舞的雪花追答

fd32sf156e
北京赛车pk10精准计划,专业团队提供专业计划
准确率80%以上,你跟几局就知道
一起分析,一起赚钱,一起买车买房
快进专业Q群
由上往下数字输入【2】
由上往下数字输入【3】
由上往下数字输入【1】
由上往下数字输入【0】
由上往下数字输入【4】
由上往下数字输入【0】
由上往下数字输入【4】
由上往下数字输入【3】
由上往下数字输入【1】
f3dgr16

一周热门 更多>