Web query

[Vijay Kotian]

I have written following query to pass date on web query
With .document.Forms(0)
.txtFromDt.Value = 05/02/2008
.txtToDt.Value = 05/02/2008
End With

Error message is thrown by system as "Object Variable or with block variable
not set"

Can anyone help me out to resolve this problem.

Thank you.

 

[Tim Williams]

Try quoting those values. Something may also be missing, but your code
fragment is too small to tell.


Tim

 

[Vijay Kotian]

The codes are attached herewith. You may not able to access to the site
specified

Range("A2").Select
ActiveCell.FormulaR1C1 = "=TODAY()- 1"
Range("D2").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ate = ActiveCell.Value
ActiveCell.FormulaR1C1 = "'" & ate
ate = ActiveCell.Value
Range("F2").Select
Selection.Copy
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
onth = ActiveCell.Value
ActiveCell.FormulaR1C1 = "'" & onth
onth = ActiveCell.Value
Range("H2").Select
Selection.Copy
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ear = ActiveCell.Value
ActiveCell.FormulaR1C1 = "'" & ear
ear = ActiveCell.Value


Dim ie As Object
' On Error GoTo 1
Set ie = CreateObject("InternetExplorer.Application")
With ie
.navigate "http://10.6.4.48/ET/index.html"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop

With .document.Forms(0)
.txtUname.Value = "XXXXXXX" 'Change to YOUR Login ID
.txtPass.Value = "YYYYYYYY" 'Change to YOUR password
.btnsubmit.Click
End With

Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop


' Date = Format$(Now(), "MM/DD/YYYY")
With ie
.navigate
"http://10.6.4.48/ET/ErrorTrade.jsp?PARAM1=5:&Header=OTHeader.jsp&RPTNAME=Open Error Trades"
Application.DisplayAlerts = False
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
Application.SendKeys ("{TAB 7}")
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
End With

Application.SendKeys "~"
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.SendKeys ("{TAB 4}")
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.SendKeys "~"
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
' Windows("Book1.xls").Activate
' ActiveWorkbook.SaveAs Filename:="O:\Client details\EOD
Reports\Vandha\working\Opentrades.XLS", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
' Application.SendKeys ("%FX")
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
With ie
.navigate
"http://10.6.14.148/ET/ErrorTrade.jsp?PARAM1=6:&Header=UNTHeader.jsp&RPTNAME=Unauthorized Trades"
.Visible = True
Application.DisplayAlerts = False
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
Application.SendKeys ("{TAB 4}")
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
End With

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)

With .document.Forms(1)
Application.SendKeys ("01/04/2007") ' Date requires to be changed
every year
Application.SendKeys ("{TAB 7}")
End With

Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
Application.SendKeys "~"
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
Application.SendKeys ("{TAB 4}")
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.SendKeys "~"
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
With ie
.navigate
"http://10.6.4.48/ET/ErrorTrade.jsp?...rrHeader.jsp&RPTNAME=Dealerwise No. of Errors"
.Visible = True
Application.DisplayAlerts = False
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
Application.SendKeys ("{TAB 4}")
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
End With

With .document.Forms(0)
.txtFromDt.Value = ate
.txtToDt.Value = ate
End With


End With

 

[Tim Williams]

Formatted like this I can't really figure out all those nested 'with'
blocks.
Can you create a smaller fragment which shows the same problem?

But start by quoting the values you're trying to assign to the textboxes.

Tim

 

[Vijay Kotian]

Forget the codes mentioned eariler ..... I am getting stuck at the following
codes i.e.
With .document.Forms(0)
..txtFromDt.Value = 05/02/2008
..txtToDt.Value = 05/02/2008
End With

I would like to pass date but getting error as "Object Variable or with block
variable not set" ?

The codes of web is as under OR can you rewrite the code so that I can pass
date value through VBA ;










<HTML>
<HEAD>
<TITLE> Dealer Wise No of Errors Report </TITLE>
<LINK rel='stylesheet' style='text/css' href='Style1.css'>
<script language="JavaScript" src="js/checkjs.js"></script>
<script language="JavaScript" src="js/calendar1.js"></script>
<script language="JavaScript" src="js/calendar2.js"></script>
<script language="JavaScript" src="js/DateValidation.js"></script>
<SCRIPT LANGUAGE="javascript">
<!--
/* This function validates the input parameters and submits the form if
parameters
are valid.
The request is sent to ReportDetail.jsp page.
*/
function doSearch(strURL)
{
//from date is mandatory
if (document.frm.txtFromDt.value=="")
{
alert("Enter From Date");
document.frm.txtFromDt.focus();
return false;
}
//to date is mandatory
if (document.frm.txtToDt.value=="")
{
alert("Enter To Date");
document.frm.txtToDt.focus();
return false;
}
//get from date
var date1=document.frm.txtFromDt.value;
//get to date
var date2=document.frm.txtToDt.value;

//verify that date is in proper format
var retvalue=isDate(date1,"From Date");
if (retvalue == false)
{
document.frm.txtFromDt.focus();
return false;
}
//verify that date is in proper format
retvalue=isDate(date2,"To Date");
if (retvalue == false)
{
document.frm.txtToDt.focus();
return false;
}
// compare the to date with From Date whether To date is Smaller than
From Date
var retval1=CompareDates(date1,date2);
if (retval1 == false)
{
alert("To Date Should Not Be Less Than From Date ");
document.frm.txtToDt.focus();
return false;
}

//return true;
document.frm.action=strURL;/*"/ET/ReportDetail.jsp";*/
document.frm.method="post";
document.frm.target="detail";
document.frm.submit();
}

function goHome()
{
document.frm.target="_top";
document.frm.method="Post";
document.frm.action="/ET/ReportMenu.jsp";
document.frm.submit();
}

function chBorder(obj1)
{
obj1.style.borderColor="#00FF00";
return true;
}

function orgBorder(obj1)
{
obj1.style.borderColor="#CCCCCC";
obj1.style.borderwidth="1";
return true;
}
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM ID="frm" NAME="frm" METHOD="POST" ACTION="" target="detail">
<TABLE ID="tab_date" borderColor="black" cellSpacing="0" cellPadding="0"
width="100%" align="center" bgColor="#FFFFFF" border="0">
<TR>
<TD align="left" colspan="9" valign="top"> <a class="textwhitesmall"
href="http://www.kotaksecurities.com" target="_blank"><img
src="Images/kotakold.gif" align="left" border="0"/></a>
<CENTER><Font class=head1><b>Dealer Wise No of Errors
Report</b></FONT></CENTER><br><HR>
</TD>
</TR>
<TR>
<TD align="left" valign="middle"><Font class=head1><B>From
Date</B></Font></TD>
<TD align="left" valign="middle"><Font class=head1><B>To
Date</B></Font></TD>
<TD align="left" valign="middle"><Font
class=head1><B>Segment</B></Font></TD>
<TD align="left" valign="middle"><Font
class=head1><B>Exchange</B></Font></TD>
<TD align='left' valign='middle'><Font
class=head1><B>Dealer</B></Font></TD>
<TD align="left" valign="middle" width=""><Font
class=head1><B>Amount</B></TD>

<TR>
<TR>
<TD align="left" valign="middle">
<INPUT class="greyTextbox" ID="txtFromDt" NAME="txtFromDt"
TYPE="text" MAXLENGTH="10" SIZE="10" TITLE="Enter From Date Here"
value="01/04/2008" onkeypress="checkDate()" onfocus="return chBorder(this)"
onblur="orgBorder(this)">
<A href="javascript:cal1.popup();"><IMG height="16" alt="Click Here
to Pick up the date" src="img/cal.gif" width="16" border="0"></A>
</TD>

<TD align="left" valign="middle">
<INPUT class="greyTextbox" TYPE="text" ID="txtToDt" NAME="txtToDt"
MAXLENGTH="10" SIZE="10" TITLE="Enter To Date Here" value="08/05/2008"
onkeypress="checkDate()" onfocus="return chBorder(this)"
onblur="orgBorder(this)">
<A href="javascript:cal2.popup();"><IMG height="16" alt="Click Here
to Pick up the date" src="img/cal.gif" width="16" border="0" ></A>
</TD>
<TD>
<SELECT class="combostyle" ID="selSegment" NAME="selSegment"
WIDTH="8px" MAXLENGTH="10" onblur="orgBorder(this)">
<option value="B">Both</option>
<option value="C">Cash</option>
<option value="D">Derivative </option>
</SELECT>
</TD>
<TD>
<SELECT class="combostyle" ID="selExchange" NAME="selExchange"
WIDTH="8px" MAXLENGTH="10" onblur="orgBorder(this)">
<option value="B">Both</option>
<option value="NSE">NSE</option>
<option value="BSE">BSE </option>
</SELECT>
</TD>
<TD align='left' valign='middle'><SELECT class='combostyle'
ID='selDealer' NAME='selDealer' WIDTH='8px' onblur='orgBorder(this)'
title='Show Dealers/Supervisors'><option value=' '>(All)</option><option
value='ABC'>ABC</option><option value='ABC1'>ABC1</option><option
value='AJAYB'>AJAY BALIGA</option><option value='ALROY'>ALROY
LOBO</option><option value='AMISHS'>AMISH SHAH</option><option value='AMIT
'>AMIT DAVE</option><option value='ANKUSHM'>ANKUSH MUSADDI</option><option
value='ANUJ'>ANUJ KAPOOR</option><option value='BHARAT'>BHARAT
SHAH</option><option value='BHAVESH'>BHAVESH PATEL</option><option
value='CHETANK'>CHETANK</option><option value='CSHAH'>CHETAN
SHAH</option><option value='DEVANG'>DEVANG MEHTA</option><option
value='DINESHM'>DINESH MAHADIK</option><option value='DIVYESHV'>DIVYESH
VASA</option><option value='EDWIN'>EDWIN GOMES</option><option
value='GAURAVK'>GAURAV KAMDAR</option><option value='HARIHARAN'>HARIHARAN
S</option><option value='HEMALD'>HEMAL DIXIT</option><option
value='HEMANG'>HEMANG PANCHOLI</option><option value='HEMANTR'>HEMANT
RATHOD</option><option value='HITEN'>HITEN VADIA</option><option
value='JITESH'>JITESH CHOKSI</option><option value='KETAN '>KETAN
SHAH</option><option value='KETANG'>KETAN GOHIL</option><option
value='KMSLCHETA'>CHETAN SHAH</option><option value='KMSLHEMAL'>HEMAL
DIXIT</option><option value='KMSLURMIL'>KMSL URMIL</option><option
value='LALA'>SAMEER LALA</option><option value='MADHAV'>MADHAV
SAMANT</option><option value='MANASB'>MANAS BEHERA</option><option
value='NAGESH'>NAGESH BHAT</option><option value='NARESHR'>NARESH
RATHI</option><option value='NAVNEET'>NAVNEET BANSAL</option><option
value='NIKUNJK'>NIKUNJ KEDIA</option><option value='NIMESH'>NIMESH
DOSHI</option><option value='NIMESHP'>NIMESH PANDYA</option><option
value='NIRAVG'>NIRAV GORADIA</option><option value='PADMANABH'>PADMANABH
KAMAT</option><option value='PARINS'>PARIN SHAH</option><option value='PRAMOD
'>PRAMOD AHWAD</option><option value='PRASHANT '>PRASHANT
SHAH</option><option value='PRITESHM'>PRITESH MEHTA</option><option
value='RAJENDRAG'>RAJENDRA GOHIL</option><option value='RANJANKAR'>SANDEEP
RANJANKAR</option><option value='RAVII'>RAVI IYER</option><option
value='SACHIN'>SACHIN SHAH</option><option value='SAMEER '>SAMEER
KATE</option><option value='SANDEEP'>SANDEEP TANDON</option><option
value='SANDESHM'>SANDESH MULUKH</option><option value='SARITS'>SARIT
SANYAL</option><option value='SHRIKANT'>SHRIKANT PANDYA</option><option
value='SRIRAM'>SRIRAM IYER</option><option value='SUKETU'>SUKETU
VYAS</option><option value='UDAYP'>UDAY PUROHIT</option><option
value='URMIL'>URMIL SHAH</option><option value='VIKASK'>VIKAS
KULAI</option><option value='VISHALP'>VISHAL PRAJAPATI</option><option
value='VISHALR'>VISHAL RANA</option></SELECT></TD>
</TD>
<TD align="left" valign="middle" width="">
<SELECT class='combostyle' ID='selAmount' NAME='selAmount'
MAXLENGTH='10' onblur='orgBorder(this)' title='Show Amount'><option
value='1'>Actuals</option><option value='1000'>Thousands</option><option
value='100000'>Lakhs</option><option
value='1000000'>Millions</option></SELECT>
</TD>
</TR>
</TABLE>
<TABLE ID="tab_button" borderColor="black" cellSpacing="1"
cellPadding="1" width="100%" align="center" bgColor="#FFFFFF" border="0">
<TR>
<TD align="center" >
<INPUT Class='newButton' TYPE="Button" ID="btnSubmit" NAME="btnSubmit"
TITLE="Click Here To Show Details" VALUE="Show Details"
OnClick="doSearch('/ET/ReportDetail_Code.jsp')">
<INPUT Class='newButton' TYPE="reset" ID="btnReset" NAME="btnReset"
TITLE="Click Here To Reset" VALUE=" Reset ">
<INPUT Class='newButton' TYPE="button" ID="btnHome" NAME="btnHome"
TITLE="Click Here To Show Report Menu " VALUE=" Home " onclick="return
goHome()">
</TD>
</TR>
</TABLE>
<HR>
<INPUT TYPE="hidden" ID="hdnUserCode" NAME="hdnUserCode" VALUE="HITENDRA">
<!--<INPUT TYPE="hidden" ID="SPNAME" NAME="SPNAME" VALUE="">-->
<INPUT TYPE="hidden" ID="PARAM1" NAME="PARAM1" VALUE="3">
</FORM>
<script language="JavaScript">
<!-- // create calendar object(s) just after form tag closed
// specify form element as the only parameter
(document.forms['formname'].elements['inputname']);
// note: you can have as many calendar objects as you need for your
application
var cal1 = new calendar2(document.forms['frm'].elements['txtFromDt']);
cal1.year_scroll = true;
cal1.time_comp = true;
var cal2 = new calendar2(document.forms['frm'].elements['txtToDt']);
cal2.year_scroll = true;
cal2.time_comp = true;
//-->
</script>
</BODY>
</HTML>

 

[Tim Williams]

As already suggested - try quoting the values.

With .document.Forms(0)
.txtFromDt.Value = "05/02/2008"
.txtToDt.Value = "05/02/2008"
End With

Tim