Question

tr ---- 0495024988
1996年8月14日
04/04/130/02514 / AM96 /
1996年1月23日
0495024988

6。 tr ----（这里的文字是我复制到excel表格的文本）

这里我已经阅读了许多帖子，其中给出了javascript代码，但vba代码不存在。请帮我解决这个问题。

Answer 1

Sub GoToWebSiteAndPlayAroundNew（）

Dim appIE As Object＆＃39; InternetExplorer.Application Dim URL As String Dim i As Long，strText As String

Dim doc As Object，hTable As Object，hBody As Object，hTR As Object，hTD As Object Dim tb As Object，bb As Object，tr As Object，td As Object

Dim y As Long，z As Long，wb As Excel.Workbook，ws As Excel.Worksheet

Dim sws As SHDocVw.ShellWindows 将IE作为对象变暗

Dim vIE As SHDocVw.InternetExplorer

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

设置appIE = CreateObject（＆＃34; InternetExplorer.Application＆＃34;）网址=＆＃34; http://dgft.delhi.nic.in:8100/dgft/IecPrint＆＃34;

y = 1＆＃39; Excel中的A列 z = 1＆＃39; Excel中的第1行

用appIE .navigate网址 .Visible = True

Do While .busy：DoEvents：Loop Do While .ReadyState＆lt;＆gt; 4：DoEvents：循环

.document.getElementById（＆＃34; iec＆＃34;）。Value =＆＃34; 0495024988＆＃34;

.document.getElementById（＆＃34; name＆＃34;）。Value =＆＃34; AMB＆＃34;

结束

On Error Resume Next

使用appIE.document

设置elems = .getElementsByTagName（＆＃34;输入＆＃34;）对于每个电子元素

if（e.getAttribute（＆＃34; value＆＃34;）=＆＃34;提交查询＆＃34;）然后 e.Click 退出结束如果

下一个e

结束设置sws = New SHDocVw.ShellWindows 对于每个vIE In sws ＆＃39;如果离开（vIE.LocationURL，4）=＆＃34; http＆＃34;然后以这种方式避免使用资源管理器窗口/等＆＃39;如果MsgBox（＆＃34; IE窗口找到。该URL为：＆＃34;＆amp; vbCrLf＆amp; vIE.LocationURL＆amp; vbCrLf＆amp; _ ＆＃39; vbCrLf＆amp; ＆＃34;你想看到HTML吗？＆＃34;，vbYesNo）= vbYes然后＆＃39;在msgbox中显示html ＆＃39; MsgBox vIE.document.body.innerHTML ＆＃39;或者将其放入文件中＆＃39; dim vFF ＆＃39; VFF = freefile ＆＃39;打开＆＃34; C：\ thehtml.txt＆＃34;输出为#vff ＆＃39; print＃vff，vie.document.body.innerhtml ＆＃39;关闭#vff ＆＃39;万一＆＃39;结束如果

 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

下一步

End Sub

如何使用vba代码在html表中选择第6个tr的td

1 个答案: