我需要一个Excel电子表格，其中有一个表格，可以填充“ Site where I want to collect data”，“ the code or product name I want to search”和“ t he zip code where the product will be delivered”，并从中复制表格网站并在电子表格中粘贴“ FREIGHT VALUE”。

我需要对零售网站，例如Lojas Americanas，Magazine Luiza或具有运费值的任何网站进行此操作。我需要代码能够以可用于任何此类网站的方式进行编辑。

有可能吗？

我用可以在VBA中汇编的代码完成了一半，我能够使代码打开Internet Explorer，并使用我选择的产品输入我想要的站点。但是我无法编写出可以完成其余工作的代码，该代码会放入我想要的邮政编码，进行货运搜索，复制货运价值并粘贴到Excel电子表格中。

以下（我尚未完成代码）：

TABLE

Sub lReferenciaIE()

Dim ObRef

On Error Resume Next

ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}",1,1

End Sub

Sub lsSearchFreight()

lReferenciaIE

Dim ie                  As Object
Dim doc                 As HTMLDocument
Dim lNomProd            As String
Dim lCodProd            As String
Dim lCepProd            As String

Set ie = New InternetExplorer

ie.Visible = True

url_name = Worksheets("Plan1").Range("E2")

If url_name = "" Then Exit Sub

    lCodProd = Range("A2").Value
    lNomProd = Range("B2").Text
    lCepProd = Range("C2").Value

    ie.Navigate (url_name) & "produto/" & lCodProd & "?pfm_carac=0&pfm_index=0&pfm_page=search&pfm_pos=grid&pfm_type=search_page%20&sellerId"

    While ie.ReadyState <> READYSTATE_COMPLETE
    Wend

    sng = Timer
    Do While sng + 5 > Timer
    Loop

    Set doc = ie.Document

    ie.Document.getElementById("freight-field").Value = lCepProd

    ie.Document.getElementById("freight-field-button").Click

MsgBox "Value OK!"

End Sub