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

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

我问过同类问题

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

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

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

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