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

2022-11-01 19:50发布

Subcc()Cells.ClearContentsSetoDoc=CreateObject("htmlfile")[a1:c1]=Array("时间","开奖
5条回答
1楼 · 2022-11-01 20:41.采纳回答

我问过同类问题

2楼-- · 2022-11-01 20:31

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

3楼-- · 2022-11-01 20:32

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

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

4楼-- · 2022-11-01 20:49

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

5楼-- · 2022-11-01 20:51

Sub cc()

    Cells.ClearContents

    Set oDoc = CreateObject("htmlfile")

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

    [f1] = "1~5龙虎"

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

    With CreateObject("MSXML2.XMLHTTP")

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

        .Send

        Do Until .ReadyState = 4

            DoEvents

        Loop

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

        oDoc.body.innerHTML = s

        Set r = oDoc.All.Tags("table")(0).Rows

        For i = 0 To r.Length - 1

            For j = 0 To r(i).Cells.Length - 1

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

            Next j

        Next i

        Set r = Nothing

    End With

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