Kevin_M
08-08-2020, 06:06 AM
Hi All,
I found the below sample code which works fine. I tried to mimic the code by using another website, but cannot even reach the input parameters.
The website has two text boxes.
Once you insert value to the first box, it will automatically return a result value to the second box ( no button to click)
here is where I tried to change:
First box ( input)
*tr id="send-num"*
*td class="rates-label-cell"*Send:*/td*
*td class="rates-input-cell"**input type="text" pattern="[0-9]*" placeholder="$0.00" class="amount"**/td*
*td class="rates-flag-cell dropdown"*
*button class="dropdown-toggle" data-toggle="dropdown"*
the second box ( return)
*tr id="receive-num"*
*td class="rates-label-cell"*Receive:*/td*
*td class="rates-input-cell"**input type="text" pattern="[0-9]*" placeholder="0.00 GHS" class="amount"**/td*
*td class="rates-flag-cell dropdown"*
*button class="dropdown-toggle" data-toggle="dropdown"*
Here is the sample code that is working with another website.
-------******************** Code begins here *************
Sub pullDataFromWeb()
Dim IE As Object
Dim doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://www.automationandagile.com/p/demo-page.html"
Do While IE.Busy Or IE.readyState ** 4
Application.Wait DateAdd("s", 1, Now)
Loop
Set doc = IE.document
For intRow = 2 To 5
IE.document.getElementById("num1").Value = ThisWorkbook.Sheets("sheet1").Range("A" & intRow).Value
doc.getElementById("num2").Value = ThisWorkbook.Sheets("sheet1").Range("B" & intRow).Value
doc.getElementById("btnCalculate").Click
strAdd = doc.getElementById("lblAdd").innerText
strMult = doc.getElementsByClassName("clslbl")(2).innerText
ThisWorkbook.Sheets("Sheet1").Range("C" & intRow).Value = strAdd
ThisWorkbook.Sheets("Sheet1").Range("D" & intRow).Value = strMult
Application.Wait DateAdd("s", 2, Now)
Next
IE.Quit
MsgBox "Done"
End Sub
---****end code**************
Thanks in advance.
kevin
I found the below sample code which works fine. I tried to mimic the code by using another website, but cannot even reach the input parameters.
The website has two text boxes.
Once you insert value to the first box, it will automatically return a result value to the second box ( no button to click)
here is where I tried to change:
First box ( input)
*tr id="send-num"*
*td class="rates-label-cell"*Send:*/td*
*td class="rates-input-cell"**input type="text" pattern="[0-9]*" placeholder="$0.00" class="amount"**/td*
*td class="rates-flag-cell dropdown"*
*button class="dropdown-toggle" data-toggle="dropdown"*
the second box ( return)
*tr id="receive-num"*
*td class="rates-label-cell"*Receive:*/td*
*td class="rates-input-cell"**input type="text" pattern="[0-9]*" placeholder="0.00 GHS" class="amount"**/td*
*td class="rates-flag-cell dropdown"*
*button class="dropdown-toggle" data-toggle="dropdown"*
Here is the sample code that is working with another website.
-------******************** Code begins here *************
Sub pullDataFromWeb()
Dim IE As Object
Dim doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://www.automationandagile.com/p/demo-page.html"
Do While IE.Busy Or IE.readyState ** 4
Application.Wait DateAdd("s", 1, Now)
Loop
Set doc = IE.document
For intRow = 2 To 5
IE.document.getElementById("num1").Value = ThisWorkbook.Sheets("sheet1").Range("A" & intRow).Value
doc.getElementById("num2").Value = ThisWorkbook.Sheets("sheet1").Range("B" & intRow).Value
doc.getElementById("btnCalculate").Click
strAdd = doc.getElementById("lblAdd").innerText
strMult = doc.getElementsByClassName("clslbl")(2).innerText
ThisWorkbook.Sheets("Sheet1").Range("C" & intRow).Value = strAdd
ThisWorkbook.Sheets("Sheet1").Range("D" & intRow).Value = strMult
Application.Wait DateAdd("s", 2, Now)
Next
IE.Quit
MsgBox "Done"
End Sub
---****end code**************
Thanks in advance.
kevin