在VBA Web浏览器中停止Javascript

我正在尝试从特定网页获取所有表。为此，我构建了一个VBA宏（PatenteCatcher）来输入一些信息。并浏览网站，直到他找到包含这些表格的特定网页。包含特定用户的网页URL的字符串为urlfocado3。然后，我调用第二个VBA宏PegaTabelas，它捕获这个特定表中的每个表，并将它们保存在一张表中。宏做得很好。但是，问题是：在包含表的网页中，有一个绑定到特定表行的javascript，打开了一些我真的不想要的额外信息

简而言之，我想禁用该页面中的特定javascript。如果不可能，我想禁用特定页面中的所有Java脚本。不幸的是，我不能在IE上禁用脚本，因为没有它，我的代码就不能很好地运行

以下是我要禁用的页面中的HTML代码：

<a href="javascript:void(0)" onmouseout="hideMe('classificacao0')" onmouseover="showMe('classificacao0','hidden')" onClick="DisableHide()" class=normal>
                            C07C 229/40    <b>;&nbsp;</b>
                        </a>
                        <div  id="classificacao0" style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #000000 1px; BORDER-LEFT: #000000 1px; BORDER-RIGHT: #000000 1px; BORDER-TOP: #000000 1px; HEIGHT: 20px; POSITION: absolute; VISIBILITY: hidden; WIDTH: 300px; Z-INDEX: 10; layer-background-color: #FFFFFF">
                            <table width="100%" border="1" cellspacing="0" cellpadding="5" bordercolor="#006363" bordercolorlight="#B5D6AD">
                                <tr><td align="center" bgcolor="#B5D6AD">
                                        <table width="100%" border="0" cellspacing="1" cellpadding="0">
                                            <tr>
                                                <td width="30"><a href="javascript:EnableHide('classificacao0');"><img src="../jsp/imagens/bt_layer.gif" width="26" height="16" border="0" name="class"></a></td>
                                            </tr>
                                        </table>
                                    </td>
                                </tr>
                                <tr>
                                    <td align="left" bgcolor="#ffffff">
                                <font class="normal"><center><b>C07C 229/40    </b></center>
                                <hr size=2 width="100%" align="center" color="#B5D6AD">

                                    Compostos contendo grupos amino e carboxila ligados ao mesmo esqueleto de carbono <br>com grupos amino ligados a átomos de carbono de pelo menos um anel aromático de seis membros e grupos carboxila ligados a átomos de carbono acíclicos do mesmo esqueleto de carbono;

                                </font>
                                </td>
                                </tr>
                            </table>
                        </div>

---

您可以尝试这样的方法来删除弹出div的内容。我假设他们有一个像“Classificaco[编号]”这样的id

---

除非您的代码正在单击您发布的HTML中显示的任何链接，否则该脚本将不会执行，因此不清楚为什么会出现问题……javascript包含一个弹出信息的脚本。盒子。其中包含我不需要的信息。问题是：当我使用PegaTabelas宏获取这些表时，它也会捕获那些“额外”信息，无法识别真正的信息。当我将鼠标移过时，弹出窗口会出现在什么位置。我的代码没有做任何与此相关的事情，但是当它试图获取该表时，它会捕获整个文本（and表中的文本和弹出窗口中的文本）。您可以通过运行代码查看页面。C07C229/40；C07C 233/40；A61K 31/405是我想要的信息。但是，当您通过鼠标时，会出现更多不需要的文本。

Sub PatenteCatcher()
    Dim IE As Object
    Dim strURL As String
    Dim strUsername As String
    Dim strPassword As String
    Dim PedidoPatente As Object
    Dim urlfocado As String
    Dim urlfocado2 As String
    Dim urlfocado3 As String
    Dim ApertaBotao As Object
    Dim patentefoco As String
    Dim doc As Object


    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True

    strURL = "https://gru.inpi.gov.br/pPI/servlet/LoginController?action=login"
    strURL2 = "https://gru.inpi.gov.br/pPI/jsp/patentes/PatenteSearchBasico.jsp"

    IE.navigate strURL

    While IE.Busy
        DoEvents
    Wend


    IE.navigate strURL2

    While IE.Busy
        DoEvents
    Wend
         While IE.Busy
        DoEvents
    Wend
    Posicao = Worksheets("Operação").Cells(1, 2)
IE.document.getElementsByName("NumPedido").Item.innerText = “9600975”
     While IE.Busy
        DoEvents
    Wend

Set ApertaBotao = IE.document.all.Item("botao")
        ApertaBotao.Value = "submit"
        ApertaBotao.Click
I = 1

While IE.Busy
        DoEvents
Wend

I = 1
Set linkCollecting = IE.document.getElementsByTagName("A")
    For Each link In linkCollecting
    Worksheets("Rascunho").Cells(I, 1) = link
    I = I + 1
    Next
urlfocado = Worksheets("Rascunho").Cells(8, 1)

If urlfocado <> "" Then
    IE.navigate urlfocado

    Set doc = IE.document
    While IE.Busy
        DoEvents
    Wend
    Worksheets("Rascunho").Activate
    Call PegaTabelas(doc)

Else
    MsgBox ("Erro! A base de dados do INPI nao esta disponivel. Nada de novo ate aqui.")
    Worksheets("Rascunho").Activate
End If

While IE.Busy
    DoEvents
Wend

''IE.Quit

    Sub PegaTabelas(doc As Object)

        Dim ws As Worksheet
        Dim rng As Range
        Dim tbl As Object
        Dim rw As Object
        Dim cl As Object
        Dim tabno As Long
        Dim nextrow As Long
        Dim I As Long

        Set ws = Worksheets("Rascunho")

        For Each tbl In doc.getElementsByTagName("TABLE")
            tabno = tabno + 1
            nextrow = nextrow + 1
            Set rng = ws.Range("B" & nextrow)
            rng.Offset(, -1) = "Table " & tabno
            For Each rw In tbl.Rows
                For Each cl In rw.Cells
                    rng.Value = cl.outerText
                    Set rng = rng.Offset(, 1)
                    I = I + 1
                Next cl
                nextrow = nextrow + 1
                Set rng = rng.Offset(1, -I)
                I = 0
            Next rw
        Next tbl

        ws.Cells.ClearFormats
    End Sub

Dim divs

Set divs = doc.getElementsByTagName("div")
for each div in divs
   if div.id like "classificacao*" then 
       div.innerHTML=""
   end if
next div