请教各位大神VBA这段代码是什么意思，实在看不懂

思维百宝箱

能不能就每个内容说明一下，拜托了！

    With IE
        .Visible = True
        .Navigate "http://******"                                                    '输入的网址
        Do Until .ReadyState = 4
            DoEvents
        Loop

        Set tb = .Document.getElementById("table_live")

        r = 4

        For i = 1 To tb.Rows.Length - 1

            If tb.Rows(i).Cells.Length > 9 Then

                 r = r + 1

                 Sheets("sheet1").Range("A" & r) = Split(Split(Split(tb.Rows(i).Cells(0).innerHTML, "chk_")(1), Chr(34))(0), " ")(0) & ""

                Sheets("sheet1").Range("B" & r) = tb.Rows(i).Cells(1).innerText

                 Sheets("sheet1").Range("C" & r) = tb.Rows(i).Cells(2).innerHTML

perfect131

就是导入网页表格数据，一行有 9 个以上单元格就导入
推荐直接复制法
参考：https://club.excelhome.net/thread-1628424-1-1.html

蓝桥玄霜

网抓是涉及知识面很多的任务，不建议初学者去研究这个，学习尽量要循序渐进。

思维百宝箱

perfect131 发表于 2022-10-9 10:27
就是导入网页表格数据，一行有 9 个以上单元格就导入
推荐直接复制法
参考：https://club.excelhome.net/ ...

大神，这个代码能解释一下吗？ Sheets("sheet1").Range("A" & r) = Split(Split(Split(tb.Rows(i).Cells(0).innerHTML, "chk_")(1), Chr(34))(0), " ")(0) & ""

perfect131

思维百宝箱 发表于 2022-10-9 11:34
大神，这个代码能解释一下吗？ Sheets("sheet1").Range("A" & r) = Split(Split(Split(tb.Rows(i).Cells( ...

我猜截取的应该是数字，看最后加了 &""，转string
split是截取函数，截取网页表格 第 i 行文本，chk_ 至  Chr(34)(双引号）之间的数据，再次从这里面截取空格前面的数据
就好比 aa=Split(Split(Split("chk_99 3333""", "chk_")(1), Chr(34))(0), " ")(0)&""
chk_ 至  Chr(34)(双引号）之间的数据就是 99 3333 ，从这个里面截取 空格 前面的数据

那 aa 就是 99
(1)表示往后，（0）表示往前
最后把截取结果 赋值给 sheet1 工作表 a列 r 行

思维百宝箱

perfect131 发表于 2022-10-9 11:58
我猜截取的应该是数字，看最后加了 &""，转string
split是截取函数，截取网页表格 第 i 行文本，chk_ 至 ...

收到，谢谢你，我有空研究一下

思维百宝箱

蓝桥玄霜 发表于 2022-10-9 10:32
网抓是涉及知识面很多的任务，不建议初学者去研究这个，学习尽量要循序渐进。

谢谢版主温馨提醒，学习网抓我怕有点力不从心，修改一下戴拿变成适合自己的还是能实现的请原谅我的好高骛远，投机取巧

思维百宝箱

perfect131 发表于 2022-10-9 11:58
我猜截取的应该是数字，看最后加了 &""，转string
split是截取函数，截取网页表格 第 i 行文本，chk_ 至 ...

那你还能帮我解释一下这几句代码的意思吗？实在抱歉，还需要麻烦你一下。
Do Until .ReadyState = 4
            DoEvents
        Loop

        Set tb = .Document.getElementById("table_live")

        r = 4

        For i = 1 To tb.Rows.Length - 1

perfect131

''加载网页
Do Until .ReadyState = 4
            DoEvents
        Loop
'''把 ID 为 table_live 的表格赋值给 tb
Set tb = .Document.getElementById("table_live")
''' 从 1 开始 循环 至  tb 表最大行减一
For i = 1 To tb.Rows.Length - 1

基本上，这个看完你也学会网抓了
https://www.bilibili.com/video/BV1uJ411t7hY/

adfs945

perfect131 发表于 2022-10-9 14:27
''加载网页
Do Until .ReadyState = 4
            DoEvents

学习中，谢谢指导。