VBA Selenium Paste cell in Web Browser

[OldGreg]

Sub Gamespot()Dim driver As New SeleniumWrapper.WebDriverDim shell: Set shell = CreateObject("WScript.Shell")	'I tab over to a combo text calendar widget , Because I cant find the 'elements nameshell.SendKeys "{TAB 22}"	'I select the date i manually right down cell B1 to copy and paste in the combotext calender widget. This works great.Sheets("Sheet1").SelectApplication.CutCopyMode = FalseApplication.Sheets("Sheet1").Range("B1").Copyshell.SendKeys "^v"driver.Wait 1000	'But when I try this same method over again exception being cell D1. It paste's the same as B1, which was copied previously.Sheets("Sheet1").SelectApplication.CutCopyMode = FalseApplication.Sheets("Sheet1").Range("D1").Copyshell.SendKeys "{TAB 2}"shell.SendKeys "^v"	'I did go on to notice that after this ran threw it was on the correct 'range "D1" and it was highlighted that it was copied and if selected another 'cell in excel and pasted it would do the correct value. But if I were to click 'back into the same driver web page to paste it would paste what was previously 'pasted in the B1 Cell

I am curious if i could clear the clip board in driver before i copy my D1 cell. If that would do the fix. I also wouldn't know how to do that, if you could walk me threw or if there are any other alternatives id be happy to hear.</pre>

 

[OldGreg]

Sub Gamespot()


Dim driver As New SeleniumWrapper.WebDriver
Dim shell: Set shell = CreateObject("WScript.Shell")


'I tab over to a combo text calendar widget , Because
I cant find the elements name
shell.SendKeys "{TAB 22}"
'I select the date i manually right down cell B1 to
copy and paste in the combotext calender widget. This works
great.
Sheets("Sheet1").Select
Application.CutCopyMode = False
Application.Sheets("Sheet1").Range("B1").Copy
shell.SendKeys "^v"
driver.Wait 1000




'But when I try this same method over again exception
being cell D1. It paste's the same as B1, which was copied previously.
Sheets("Sheet1").Select
Application.CutCopyMode = False
Application.Sheets("Sheet1").Range("D1").Copy
shell.SendKeys "{TAB 2}"
shell.SendKeys "^v"


'I did go on to notice that after this ran threw it
was on the correct range "D1" and it was highlighted that
it was copied and if selected another cell in excel and pasted
it would do the correct value. But if I were to click back into
the same driver web page to paste it would paste what was previously
pasted in the B1 Cell


I am curious if i could clear the clip board in driver before i copy
my D1 cell. If that would do the fix. I also wouldn't know how to
do that, if you could walk me threw or if there are any other
alternatives id be happy to hear.
</pre>