Zelle kopieren und einfügen in web-form

Ich versuche zu erstellen, die eine order-tracking-makro, die die folgenden nach dem ich ausgewählt habe, eine bestimmte Zelle:

1. Zeigt die order-tracking-Webseite, z.B. FedEx Sendungsverfolgung
2. Gibt den Wert in der ausgewählten Zelle in meinem Excel-Arbeitsblatt in das entsprechende Suchfeld auf der Webseite
3. Senden, klickt

Arbeite ich in Excel 2010 aus einer Beispiel-code fand ich auf einem anderen forum. Der code führt alles AUßER dem einfügen den Wert einer ANGEGEBENEN Zelle. Ich kann weisen einen numerischen Wert oder eine bestimmte Zelle ein Wert eingegeben werden, aber ich brauche ein universal-makro, das ich verwenden kann für jede gegebene Zelle.

Versuchte ich mit einigen basic-kopieren-einfügen-Funktionen mit der aktiven Zelle. Ich konnte wählen und kopieren Sie die aktive Zelle, aber nicht fügen Sie es in das Suchfeld ein.

Hier ist der code mit dem problem-Abschnitte identifiziert.

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

Als ich versuchte, kopieren/fügen Sie code, die ich verwendet die folgenden unter DoEvents:

ActiveCell.Select
Selection.Copy