想要爬取網頁源代碼的 value="https://bbs.csdn.net/topics/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
uj5u.com熱心網友回復：
把代碼里的 Set r = .document.All.tags("li") 改成Set r = .document.All.tags("li")uj5u.com熱心網友回復：
把代碼里的 Set r = .document.All.tags("li") 改成 Set r =.document.All.tags("input")也解決不了問題，請問該怎么提取value的部分呢 ？
uj5u.com熱心網友回復：
試試這樣:
set r = .document.getelementsbytagname("li")
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/26859.html
標籤：VBA
上一篇：怎么將指定作業表新建為dat檔案，并以英文逗號分隔啊，最后通過檔案對話框選擇輸出的的dat檔案并讀取內容
下一篇：有大佬可以幫忙的么！