Я пытаюсь создать макрос порядка отслеживания, который делает следующее после того как я выбрал конкретную ячейку:Копировать ячейки и вставить в веб-форму
- Открывает заказ отслеживания веб-страницы, например FedEx отслеживания отгрузки
- Вводит значение выбранной ячейки в моей таблице Excel в соответствующее поле поиска на веб-странице
- Переходов отправить
Я работаю в 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
О чем вы говорите? по крайней мере, в какой области разработки программного обеспечения это связано? что такое «ячейка»? что такое «представить»? – akonsu
Программа Excel 2010. Тег submit ссылается на кнопку отправки на веб-сайте после вставки данных. – user2774606
'IE.Document.getElementById (" appReceiptNum "). Value = ActiveCell.Value' –