Скопировать ячейку и вставить в веб-форму

Я пытаюсь создать макрос отслеживания заказов, который выполняет следующие действия после того, как я выбрал конкретную ячейку:

  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 

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

работает для меня, на другом сайте, конечно.

Если это сработает и для вас, убедитесь, что вы подняли верх и нажмите галочку рядом с этим ответом!

Давайте будем гением компьютера.