从 IE 网页 (HTML) 我想将开始年份、结束年份和用户 ID 复制到 excel.Assest 我创建 VBA 以获取数据。
<table class="tableFormat">
<tbody><tr style="background-color: rgb(173, 165, 189);">
<th> </th>
<th class="center">Model Year </th>
<th class="center">Status </th>
<th class="center">Effective Date </th>
<th class="center">Ineffective Date </th>
<th class="center">Rev. </th>
<th class="center">User Id </th>
<th class="center">Date </th>
</tr>
<tr id="tr0" bgcolor="silver">
<td>
<input name="rdOper" onclick="return radio_onclick(0)" type="radio">
</td>
<td class="center">2017 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr1">
<td>
<input name="rdOper" onclick="return radio_onclick(1)" type="radio">
</td>
<td class="center">2016 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr2">
<td>
<input name="rdOper" onclick="return radio_onclick(2)" type="radio">
</td>
<td class="center">2015 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr3">
<td>
<input name="rdOper" onclick="return radio_onclick(3)" type="radio">
</td>
<td class="center">2014 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr4">
<td>
<input name="rdOper" onclick="return radio_onclick(4)" type="radio">
</td>
<td class="center">2013 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr5">
<td>
<input name="rdOper" onclick="return radio_onclick(5)" type="radio">
</td>
<td class="center">2012 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr6">
<td>
<input name="rdOper" onclick="return radio_onclick(6)" type="radio">
</td>
<td class="center">2011 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr7">
<td>
<input name="rdOper" onclick="return radio_onclick(7)" type="radio">
</td>
<td class="center">2010 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr8">
<td>
<input name="rdOper" onclick="return radio_onclick(8)" type="radio">
</td>
<td class="center">2009 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr9">
<td>
<input name="rdOper" onclick="return radio_onclick(9)" type="radio">
</td>
<td class="center">2008 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
<tr id="tr10">
<td>
<input name="rdOper" onclick="return radio_onclick(10)" type="radio">
</td>
<td class="center">2007 </td>
<td class="center">P </td>
<td class="center">01-APR-2021 </td>
<td class="center">31-DEC-9999 </td>
<td class="center">C </td>
<td class="center">GSMITH53 </td>
<td class="center">31-MAR-2021</td>
</tr>
</tbody></table>Sub Status_and__Date_Change()
Dim IE As Object
Dim Doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
Dim SHELL_OBJECT
SHELL_OBJECT = "WScript.Shell"
Set objShell = CreateObject(SHELL_OBJECT)
IE.Visible = True
' Set numrows = number of rows of APA to APA.
NumRows = Range("A1", Range("A3").End(xlDown)).Rows.Count
' Establish "For" loop to loop "numrows" number of times.
For intRow = 3 To NumRows
'navigate URL
IE.navigate "https://www.gslts.ford.com/TimeStudy/StatusAndDates.asp?CSTK=Y"
Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
Set Doc = IE.document
Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
Doc.getElementById("txtTimeStudyNbr").Value = ThisWorkbook.Sheets("data").Range("A" & intRow).Value
Doc.getElementById("Search").Click
Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
Doc.getElementsByName("rdOper")(0).Click
Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
ThisWorkbook.Sheets("data").Range("J" & intRow).Value = IE.Doc.getElementsByClassName("center")(4).innerHTML
ThisWorkbook.Sheets("data").Range("I" & intRow).Value = "Changed"
Next
End Sub
