Benzula
09-09-2015, 12:46 PM
Hi guys,
I'm using Selenium Wrapper to Access webpages. However I've been trying to get it to click the "Export Details" button. When inspecting the Element it shows this.
Inspect Element Code
<input value="Export Details" class="btn" name="csvsetup" title="Export Details" type="submit">
This is my VBA Code so far
Sub Boom()
Dim Selenium As New SeleniumWrapper.WebDriver
Dim FF As Object
Dim intRowPosition As Integer
Dim keys As New SeleniumWrapper.keys
Selenium.Start "Chrome", Website
Selenium.setTimeout ("120000")
Selenium.setImplicitWait (5000)
intRowPosition = 2
Selenium.Open Sheet1.Range("A" & intRowPosition)
intRowPosition = intRowPosition + 1
While Sheet1.Range("A" & intRowPosition) <> vbNullString
Selenium.SendKeys keys.Control & "t"
Selenium.Open Sheet1.Range("A" & intRowPosition)
intRowPosition = intRowPosition + 1
Wend
Set IE = Nothing
Selenium.FindElementById("username").SendKeys Website
Selenium.FindElementById("password").SendKeys Password
Selenium.FindElementByName("Login").Click
Selenium.setTimeout ("120000")
Selenium.setImplicitWait (5000)
Selenium.FindElementById("report_Tab").Click
Selenium.FindElementById("ext-comp-1015").SendKeys "Compliance"
Selenium.Open Website
Selenium.setTimeout ("120000")
Selenium.setImplicitWait (5000)
Selenium.findElementByClassName("csvsetup").Click
End Sub
The last part is the issue that I am having. It doesn't work the way I want for csvsetup.
I'm using Selenium Wrapper to Access webpages. However I've been trying to get it to click the "Export Details" button. When inspecting the Element it shows this.
Inspect Element Code
<input value="Export Details" class="btn" name="csvsetup" title="Export Details" type="submit">
This is my VBA Code so far
Sub Boom()
Dim Selenium As New SeleniumWrapper.WebDriver
Dim FF As Object
Dim intRowPosition As Integer
Dim keys As New SeleniumWrapper.keys
Selenium.Start "Chrome", Website
Selenium.setTimeout ("120000")
Selenium.setImplicitWait (5000)
intRowPosition = 2
Selenium.Open Sheet1.Range("A" & intRowPosition)
intRowPosition = intRowPosition + 1
While Sheet1.Range("A" & intRowPosition) <> vbNullString
Selenium.SendKeys keys.Control & "t"
Selenium.Open Sheet1.Range("A" & intRowPosition)
intRowPosition = intRowPosition + 1
Wend
Set IE = Nothing
Selenium.FindElementById("username").SendKeys Website
Selenium.FindElementById("password").SendKeys Password
Selenium.FindElementByName("Login").Click
Selenium.setTimeout ("120000")
Selenium.setImplicitWait (5000)
Selenium.FindElementById("report_Tab").Click
Selenium.FindElementById("ext-comp-1015").SendKeys "Compliance"
Selenium.Open Website
Selenium.setTimeout ("120000")
Selenium.setImplicitWait (5000)
Selenium.findElementByClassName("csvsetup").Click
End Sub
The last part is the issue that I am having. It doesn't work the way I want for csvsetup.