我正在使用下面的代碼來獲取表格，但它注意到有一個帶資料的 " "按鈕，但沒有在excel上得到，因為在點擊 " "按鈕后檢查資料顯示
。請幫助獲得所有的表格資料，包括 按鈕列
。Sub get_table()
Dim即As Object
Dim urlAs String
url = "https://www.screener.in/company/COFORGE/consolidated/"/span>
Set ie = CreateObject("Internetexplorer.application")
ie.Visible = True[/span]。
ie.navigate url
Do While ie.Busy = True: DoEvents: Loop: DoEvents.
Do Until ie.readyState = 4: DoEvents: Loop: DoEvents.
Dim tbl As HTMLTable
Set tbl = ie.document.getElementsByTagName("table"/span>)(1)
Dim trcounter As Integer >。
Dim tdcounter As Integer
trcounter = 1
tdcounter =1
thcounter =1
Dim tr As HTMLTableRow
Dim td As HTMLTableCell
Dim th As HTMLTableRow
Dim mySH As Worksheet
Set mySH = ThisWorkbook.Sheet("sheet1"/span>)
' this for date[/span]。
For Each th In tbl.getElementsByTagName("th" )
mySH.Cells(tdcounter, thcounter).Value = th.innerText
thcounter = thcounter 1 1
Next th
' 此處為表格資料。
For Each tr In tbl.getElementsByTagName("tr")
For Each td In tr.getElementsByTagName（"td"）)
mySH.Cells(trcounter, tdcounter).Value = td.innerText
tdcounter = tdcounter 1
Next td
tdcounter = 1 Next td
trcounter = trcounter 1
Next tr
End Sub
uj5u.com熱心網友回復：
你可以先用InStr函式檢查<td>是否包含 按鈕，如果是的話，就點擊 按鈕。在點擊表格中所有的 按鈕后，你可以讀取資料并將它們寫入作業表。
作業實體是這樣的：
Sub LOADIE()
Set ieA = CreateObject("InternetExplorer.Application"/span>)
ieA.Visible = True[/span]。
ieA.navigate "https://www.screener.in/company/COFORGE/consolidated/"。
Do Until ieA.readyState =4
觸發事件（DoEvents
Loop
Set doc = ieA.document
Set tbl = doc.getElementsByTagName("table"/span>)(1)
trcounter = 1 ()
tdcounter = 1 1
thcounter =1
Dim tr As HTMLTableRow
Dim td As HTMLTableCell
Dim th As HTMLTableRow
Dim mySH As Worksheet
Set mySH = ThisWorkbook.Sheet("sheet1"/span>)
' this for date[/span]。
For Each th In tbl.getElementsByTagName("th" )
mySH.Cells(tdcounter, thcounter).Value = th.innerText
thcounter = thcounter 1 1
Next th
' 這個用于點擊 按鈕。
For Each tr In tbl.getElementsByTagName("tr")
For Each td In tr.getElementsByTagName（"td"）)
If InStr(td.innerHTML, "button") > 0 Then
td.getElementsByTagName("button")(0) .Click
結束 If
Next td
tdcounter =1
trcounter = trcounter 1
Next tr
' 此處為表格資料。
trcounter =1
For Each tr In tbl.getElementsByTagName("tr" )
For Each td In tr.getElementsByTagName（"td"）)
mySH.Cells(trcounter, tdcounter).Value = td.innerText
tdcounter = tdcounter 1
Next td
tdcounter = 1 Next td
trcounter = trcounter 1
Next tr
ieA.Quit
Set ieA = Nothing
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/320203.html
標籤：
上一篇：在Chrome上使用PS自動登錄到salesforce
下一篇：使用VBA鎖定現有的IE視窗標簽