VBA clicking Onclick button in webpage 'which contains Validate function'

[devendra.dvm]

Hi Experts.

Iam working on a project ''Automation IE'' need help on the same.

I am trying to spool one excel report from website by giving From date and To Date are as inputs iam able to give enter dates with my code but iam unable click on generate button..

Below is the HTML source code for from & To dates

<input name="ctl00$ContentPlaceHolder1$txt_0" type="text" maxlength="10" id="txt_0" tabindex="1" class="watermarked" width="200px" selectionstart="txt_0" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

<input name="ctl00$ContentPlaceHolder1$txt_1" type="text" maxlength="10" id="txt_1" tabindex="2" class="watermarked" width="200px" selectionstart="txt_1" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

Below is the HTML source code for Export Report Button

<input type="submit" name="ctl00$ContentPlaceHolder1$btnExportXLS" value="Export Report" onclick="if(!Validate()) return false;" id="btnExportXLS" tabindex="3" class="button blue" onmousedown="return isTxtwithfocus(event, this)" style="width:101px;float: none; margin-top: 2px;">

And this is Function code

function ValidateForm(src) { 
assignvalue() 
var src1 = document.getElementById("txt" + src); 

if (src1.value != '') { 

if (isDate2(src1.value, "txt_" + src) == false) { 
return false 
} 
return true } 
}

This is my VBA code- Last two lines for click export button

Sub User_Wise_Productivity()

Dim From_Date As String
Dim To_Date As String


From_Date = InputBox("Enter report From date in (Ex: DD.MM.yyy)format")
To_Date = InputBox("Enter report To date in (Ex: DD.MM.yyy)format")


Set browser = CreateObject("internetexplorer.application")
browser.Visible = True
browser.navigate ("My URL")


Do
DoEvents
Loop Until browser.readyState = 4


browser.document.getElementById("txtUserName").Value = "Myid"
browser.document.getElementById("txtPassword").Value = “Mypsw”

browser.document.getElementById("selFund").selectedIndex = "21"
browser.document.getElementById("btnSubmit").Click

Do
DoEvents
Loop Until browser.readyState <> 4




browser.navigate ("MY URL Page2")

Do
DoEvents
Loop Until browser.readyState <> 4


Dim reprt As String
reprt = "11"


    With browser
        Set Post = .document.getElementById("ddlrptlist")
       For Each elem In Post.getElementsByTagName("option")
            If elem.Value = reprt Then elem.Selected = True: Exit For
        Next elem

  .document.getElementById("ddlrptlist").FireEvent ("onchange")

    End With

Do
DoEvents
Loop Until browser.readyState <> 4

browser.document.getElementById("txt_0").Value = From_Date
browser.document.getElementById("txt_1").Value = To_Date

Application.Wait (Now + TimeValue("0:00:02"))

browser.document.getElementById("btnExportXLS").Focus
browser.document.getElementById("btnExportXLS").Click
End Sub

[Elroy]

Not only is this a "question" in the CodeBank area, it's a VBA question (not VB6), and it's also basically a duplicate of this post.

[xxdoc123]

Hi Experts.

Iam working on a project ''Automation IE'' need help on the same.

I am trying to spool one excel report from website by giving From date and To Date are as inputs iam able to give enter dates with my code but iam unable click on generate button..

Below is the HTML source code for from & To dates

<input name="ctl00$ContentPlaceHolder1$txt_0" type="text" maxlength="10" id="txt_0" tabindex="1" class="watermarked" width="200px" selectionstart="txt_0" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

<input name="ctl00$ContentPlaceHolder1$txt_1" type="text" maxlength="10" id="txt_1" tabindex="2" class="watermarked" width="200px" selectionstart="txt_1" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

Below is the HTML source code for Export Report Button

<input type="submit" name="ctl00$ContentPlaceHolder1$btnExportXLS" value="Export Report" onclick="if(!Validate()) return false;" id="btnExportXLS" tabindex="3" class="button blue" onmousedown="return isTxtwithfocus(event, this)" style="width:101px;float: none; margin-top: 2px;">

And this is Function code

function ValidateForm(src) { 
assignvalue() 
var src1 = document.getElementById("txt" + src); 

if (src1.value != '') { 

if (isDate2(src1.value, "txt_" + src) == false) { 
return false 
} 
return true } 
}

This is my VBA code- Last two lines for click export button

Sub User_Wise_Productivity()

Dim From_Date As String
Dim To_Date As String


From_Date = InputBox("Enter report From date in (Ex: DD.MM.yyy)format")
To_Date = InputBox("Enter report To date in (Ex: DD.MM.yyy)format")


Set browser = CreateObject("internetexplorer.application")
browser.Visible = True
browser.navigate ("My URL")


Do
DoEvents
Loop Until browser.readyState = 4


browser.document.getElementById("txtUserName").Value = "Myid"
browser.document.getElementById("txtPassword").Value = “Mypsw”

browser.document.getElementById("selFund").selectedIndex = "21"
browser.document.getElementById("btnSubmit").Click

Do
DoEvents
Loop Until browser.readyState <> 4




browser.navigate ("MY URL Page2")

Do
DoEvents
Loop Until browser.readyState <> 4


Dim reprt As String
reprt = "11"


    With browser
        Set Post = .document.getElementById("ddlrptlist")
       For Each elem In Post.getElementsByTagName("option")
            If elem.Value = reprt Then elem.Selected = True: Exit For
        Next elem

  .document.getElementById("ddlrptlist").FireEvent ("onchange")

    End With

Do
DoEvents
Loop Until browser.readyState <> 4

browser.document.getElementById("txt_0").Value = From_Date
browser.document.getElementById("txt_1").Value = To_Date

Application.Wait (Now + TimeValue("0:00:02"))

browser.document.getElementById("btnExportXLS").Focus
browser.document.getElementById("btnExportXLS").Click
End Sub

i test you code in vb6, have no error

<input name="ctl00$ContentPlaceHolder1$txt_0" type="text" maxlength="10" id="txt_0" tabindex="1" class="watermarked" width="200px" selectionstart="txt_0" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

<input name="ctl00$ContentPlaceHolder1$txt_1" type="text" maxlength="10" id="txt_1" tabindex="2" class="watermarked" width="200px" selectionstart="txt_1" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

<input type="submit" name="ctl00$ContentPlaceHolder1$btnExportXLS" value="Export Report" onclick="alert('hollow!')" id="btnExportXLS" tabindex="3" class="button blue" onmousedown="alert('hollow!')" style="width:101px;float: none; margin-top: 2px;">

click may msgbox hellow

[xxdoc123]

Hi Experts.

Iam working on a project ''Automation IE'' need help on the same.

I am trying to spool one excel report from website by giving From date and To Date are as inputs iam able to give enter dates with my code but iam unable click on generate button..

Below is the HTML source code for from & To dates

<input name="ctl00$ContentPlaceHolder1$txt_0" type="text" maxlength="10" id="txt_0" tabindex="1" class="watermarked" width="200px" selectionstart="txt_0" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

<input name="ctl00$ContentPlaceHolder1$txt_1" type="text" maxlength="10" id="txt_1" tabindex="2" class="watermarked" width="200px" selectionstart="txt_1" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

Below is the HTML source code for Export Report Button

<input type="submit" name="ctl00$ContentPlaceHolder1$btnExportXLS" value="Export Report" onclick="if(!Validate()) return false;" id="btnExportXLS" tabindex="3" class="button blue" onmousedown="return isTxtwithfocus(event, this)" style="width:101px;float: none; margin-top: 2px;">

And this is Function code

function ValidateForm(src) { 
assignvalue() 
var src1 = document.getElementById("txt" + src); 

if (src1.value != '') { 

if (isDate2(src1.value, "txt_" + src) == false) { 
return false 
} 
return true } 
}

This is my VBA code- Last two lines for click export button

Sub User_Wise_Productivity()

Dim From_Date As String
Dim To_Date As String


From_Date = InputBox("Enter report From date in (Ex: DD.MM.yyy)format")
To_Date = InputBox("Enter report To date in (Ex: DD.MM.yyy)format")


Set browser = CreateObject("internetexplorer.application")
browser.Visible = True
browser.navigate ("My URL")


Do
DoEvents
Loop Until browser.readyState = 4


browser.document.getElementById("txtUserName").Value = "Myid"
browser.document.getElementById("txtPassword").Value = “Mypsw”

browser.document.getElementById("selFund").selectedIndex = "21"
browser.document.getElementById("btnSubmit").Click

Do
DoEvents
Loop Until browser.readyState <> 4




browser.navigate ("MY URL Page2")

Do
DoEvents
Loop Until browser.readyState <> 4


Dim reprt As String
reprt = "11"


    With browser
        Set Post = .document.getElementById("ddlrptlist")
       For Each elem In Post.getElementsByTagName("option")
            If elem.Value = reprt Then elem.Selected = True: Exit For
        Next elem

  .document.getElementById("ddlrptlist").FireEvent ("onchange")

    End With

Do
DoEvents
Loop Until browser.readyState <> 4

browser.document.getElementById("txt_0").Value = From_Date
browser.document.getElementById("txt_1").Value = To_Date

Application.Wait (Now + TimeValue("0:00:02"))

browser.document.getElementById("btnExportXLS").Focus
browser.document.getElementById("btnExportXLS").Click
End Sub

i test you code in vb6, have no error

<input name="ctl00$ContentPlaceHolder1$txt_0" type="text" maxlength="10" id="txt_0" tabindex="1" class="watermarked" width="200px" selectionstart="txt_0" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

<input name="ctl00$ContentPlaceHolder1$txt_1" type="text" maxlength="10" id="txt_1" tabindex="2" class="watermarked" width="200px" selectionstart="txt_1" onchange="isDate2(this)" style="width: 200px;Height:20px;" autocomplete="off">

<input type="submit" name="ctl00$ContentPlaceHolder1$btnExportXLS" value="Export Report" onclick="alert('123hollow!')" id="btnExportXLS" tabindex="3" class="button blue" onmousedown="alert('hollow456!')" style="width:101px;float: none; margin-top: 2px;">

click may msgbox hellow

if button have focus,Mouse click pop up ""hollow456!"", Keyboard press enter pop up "123hollow!"

[devendra.dvm]

Hi xxdoc123,


thanks for the reply.. this line of code is working fine.

browser.document.getElementById("btnExportXLS").Click

. not getting any error but excel report is not getting generate.. and there is no page load problem. if see at HTML code of button. there is onclick function**"Validate()"** in that. my guess iss after validating form with this function then only excel file will get spool

[devendra.dvm]

Hi Elroy,

yes im looking for VBA only.. if any help with is greatly appreciated.. the other post which you have mentioned.. that question not reflecting in the forum when i posted then i thot its not submitted properly.. that's why re-posted the same.

[devendra.dvm]

please guide how to delete that post and same im not able to view in the forum.

[xxdoc123]

I doubt if you succeeded in IE， you may used ie to test.may be you can find why. I suggested you used ie documentcomplete event

[devendra.dvm]

Hi xxdoc123,

Could you please help me with the code for the same.