Hi All!
First time poster, long time troll of this forum for solutions!
I'm still a novice, and come mostly figure out the solutions to my problems with some searching, but controlling a web page is something very new to me and I need some help!
I have created some code that directs me to a web page, and i use send keys to navigate my way to the input field. In this input field I am trying to put a cell value in a range use send keys to download the file, and the repeat the process for the next cell.
Here is my code so far, it does everything right up until pasting the copied cell into the input section of the web page - the issue is it is pasting nothing
Code
Shell "C:\Program Files\Mozilla Firefox\firefox.exe " & "https://website.com", vbMaximizedFocus
Application.Wait Now + TimeValue("00:00:05")
SendKeys "{TAB}"
' Input username
SendKeys "[email protected]"
SendKeys "{TAB}"
' Input password
SendKeys "password!"
SendKeys "{TAB}"
SendKeys "{ENTER}"
Application.Wait Now + TimeValue("00:00:10")
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{ENTER}"
Application.Wait Now + TimeValue("00:00:10")
' Copy Cell Value on worksheet
Range("c1").Copy
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
' paste Cell Value in webpage and download
SendKeys ("^v")
SendKeys "{TAB}"
SendKeys "{ENTER}"
'Start loop for remaining cells in range
' Select second line of data
Range("c2").Select
Selection.Copy
Do Until IsEmpty(ActiveCell)
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys ("^v")
SendKeys "{TAB}"
SendKeys "{ENTER}"
ActiveCell.Offset(1, 0).Select
Selection.Copy
Loop
End Sub
Display More
Would love some help if possible!
Thanks
Steph