2,462
社区成员
发帖
与我相关
我的任务
分享求助用VBA爬取网页数据填入表格
想要爬取网页源代码的 value="47174"的数字部分填入表格的单元格中，但是现代码只得到员工名字，无法爬取value的部分，该怎么修改代码好。
Sub 网页提取数据()
On Error Resume Next
Dim m
m = 1
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate "https://www2.daikokudrug.com/timecard/shift/create1week/?shift-week=2019-31&shop-code=32"
Do Until .ReadyState = 4
DoEvents
Loop
Set r = .document.All.tags("li")
For i = 0 To r.Length - 1
t = r(i).classname
If r(i).classname = "code" Then
Cells(m, 1) = r(i).innerText
m = m + 1
End If
Next
End With
End Sub
Sub 网页提取数据()
On Error Resume Next
Dim m
m = 1
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate "https://www2.daikokudrug.com/timecard/shift/create1week/?shift-week=2019-31&shop-code=32"
Do Until .ReadyState = 4
DoEvents
Loop
Set r = .document.All.tags("li")
For i = 0 To r.Length - 1
t = r(i).classname
If r(i).classname = "code" Then
Cells(m, 1) = r(i).innerText
m = m + 1
End If
Next
End With
End Sub
...全文
请发表友善的回复…
发表回复
milaoshu1020 2019-07-31
- 打赏
- 举报
试试这样:
set r = .document.getelementsbytagname("li")
林剑昉 2019-07-24
- 打赏
- 举报
把代码里的 Set r = .document.All.tags("li") 改成 Set r =.document.All.tags("input")
也解决不了问题，请问该怎么提取value的部分呢 ？
也解决不了问题，请问该怎么提取value的部分呢 ？
林剑昉 2019-07-24
- 打赏
- 举报
把代码里的 Set r = .document.All.tags("li") 改成Set r = .document.All.tags("li")
