复制单元格并粘贴到Web表单

Question

我正在尝试创建一个订单跟踪宏，在选择特定单元格后执行以下操作：

1. 打开订单跟踪网页，例如FedEx货件追踪
2. 将Excel电子表格中所选单元格的值输入网页上的相应搜索框
3. 点击提交

我在Excel 2010中使用我在另一个论坛上找到的示例代码。除了粘贴GIVEN单元格的值之外，代码完成了所有操作。我可以指定要输入的数值或特定单元格值，但我需要一个可用于任何给定单元格的通用宏。

我尝试使用活动单元格的一些基本复制粘贴功能。我设法选择并复制活动单元格，但不将其粘贴到搜索框中。

以下是识别出问题部分的代码。

Dim IE As Object

Sub submitFeedback3()

    Application.ScreenUpdating = False

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

    Application.StatusBar = "Submitting"
    ' Wait while IE loading...
    While IE.Busy
        DoEvents
        ActiveCell.Select
        Selection.Copy
    Wend
    ' **********************************************************************
    delay 1
        IE.Document.getElementById("receipt").Click
    delay 1
        IE.Document.getElementById("receipt").Paste
    delay 2
        IE.Document.getElementById("submit").Click
    '**********************************************************************

End Sub

Private Sub delay(seconds As Long)
    Dim endTime As Date
    endTime = DateAdd("s", seconds, Now())
    Do While Now() < endTime
        DoEvents
    Loop
End Sub

当我尝试复制/粘贴代码时，我在DoEvents下面使用了以下内容：

ActiveCell.Select
Selection.Copy

Answer 1

IE.Document.getElementById("appReceiptNum").Click 
delay 1
IE.Document.getElementById("appReceiptNum").Paste

当然，

适用于我，不同的网站。

如果它也适合你，请确保upvote并单击此答案旁边的复选标记！