獲取 url 表單 sheet1 范圍 a1:a1000 并在匯出保存資料之后 sheet2
ie.navigate Workbooks("1000").Worksheets("sheet1").Range("A6").Value
Set ht = ie.document
Workbooks("1000").Worksheets("sheet2").Range("C6").Value = ht.getElementById("formNo").Value
Workbooks("1000").Worksheets("sheet2").Range("D6").Value = ht.getElementById("fullName").Value
Workbooks("1000").Worksheets("sheet2").Range("E6").Value = ht.getElementById("idNo").Value
uj5u.com熱心網友回復：
我不知道你想要什么。但我提供了一個代碼片段，您可以通過簡單地修改它來完成您的任務。
Sub Scrape()
Dim url As String
Dim IE As New InternetExplorer
Dim doc As HTMLDocument
Set IE = New InternetExplorer
IE.Visible = False
For Each cell In Range("A1:A1000")
url = cell.Value
IE.navigate url
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Set doc = IE.document
Sheet2.Range("A1").Value = doc.getElementsByTagName("span")(0).innerText
Sheet2.Range("A2").Value = doc.getElementsByTagName("span")(1).innerText
Sheet2.Range("A3").Value = doc.getElementsByTagName("span")(2).innerText
Sheet2.Range("A4").Value = doc.getElementsByTagName("span")(3).innerText
Next cell
IE.Quit
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/512480.html