如何使用VBA代码在HTML表中选择第6个TR的TD

Question

1. tr----0495024988

2. 1996年8月14日

3. 04/04/130/02514/AM96/

4. 1996年1月23日

5. 0495024988

6.tr----(此处为文本，我已将其复制到excel表中)

在这里，我读过很多文章，其中给出了javascript代码，但没有vba代码。请帮我摆脱困境。

Answer 1

Sub GoToWebSiteAndPlayAroundNew()

将appIE Dim为对象的InternetExplorer。应用将URL标注为字符串Dim i为长，strText为字符串

分帐单据作为对象、hTable作为对象、h Body作为对象、h3TR作为对象、h5TD作为对象Dim tb As Object，bb As Object，tr As Object，td As Object

Dim y为长，z为长，wb为Excel。工作簿，ws作为Excel。工作表

将sws标注为SHDocVw。ShellWindows将IE调暗为对象

Dim vIE为SHDocVw。InternetExplorer

设置wb=Excel。ActiveWorkbook设置ws=wb。ActiveSheet

设置appIE=CreateObject("InternetExplorer.Application")URL="http://dgft.delhi.nic.in:8100/dgft/IecPrint">

y=1'Excel中的A列z=1'Excel 中的第1行

使用appIE.导航URL.Visible=真

DoEvents:Loop做While。就绪状态<>4:DoEvents：循环

.docent.getElementById("iec").Value="0495024988">

.docent.getElementById("name").Value="AMB">

以结束

错误时恢复下一个

带appIE.document

设置elems=.getElementsByTagName("input")对于每个电子元件

如果(e.getAttribute("value")="Submit Query")那么e.点击退出如果结束

下一个e

结束于设置sws=新建SHDocVw。ShellWindows对于sws中的每个vIE'如果Left(vIE.LocationURL，4)="http"，则'以这种方式避开资源管理器窗口等'如果MsgBox("找到IE窗口。URL为："&vbCrLf&vIE.LocationURL&vbCrLf＆amp_'vbCrLf&"你想看html吗？"，vbYesNo)=vbYes Then'在消息框中显示html'MsgBox vIE.document.body.innerHTML'或者把它放在文件中'dim vFF一样长'vff=自由文件'打开"C:\thehtml.txt"作为#vff输出'打印#vff，vie.document.body.innerhtml'关闭#vff'结束如果'如果结束

Set doc = vIE.document
Set hTable = doc.getElementsByTagName("table")

For Each tb In hTable
Set hBody = tb.getElementsByTagName("tbody")
For Each bb In hBody
Set hTR = bb.getElementsByTagName("tr")
MsgBox hTR.Length
For Each tr In hTR

Set hTD = tr.getElementsByTagName("td")
MsgBox hTD.Length
y = 1 ' Resets back to column A
For Each td In hTD
ws.Cells(z, y).Value = td.innerText
y = y + 1
Next td
DoEvents
z = z + 1
Next tr
Exit For
Next bb
Exit For

下一个tb

下一个

结束子