Set excelapp = CreateObject("Excel.Application")

                                pathr="e:\tddata.xlsx"

                                Set
open_excel_file=excelapp.Workbooks.open(pathr)

                                Set
worksheet=open_excel_file.Worksheets("rough")

                               rcount=worksheet.usedrange.rows.count

                               ccount=worksheet.usedrange.columns.count

                                msgbox "No of Row :-    " & rcount

                               msgbox "No of Column :-   " &ccount
--------------------------------------------------------------------

On Tue, Jan 25, 2011 at 7:35 AM, Roman Zilber <[email protected]> wrote:

> try
> maxValue = Application.Max(ActiveSheet.UsedRange)
>
> On Mon, Jan 24, 2011 at 6:26 PM, Venkat Boin <[email protected]>
> wrote:
> > Hi All,
> >
> > There is excel sheet with some data(numerical values), we need to find
> the
> > maximum value from that sheet.
> >
> > Please let me know script know the script for same and thanks in Advance.
> >
> > Thanks,
> > Venkat Boin
> >
> > --
> > You received this message because you are subscribed to the Google
> > "QTP - HP Quick Test Professional - Automated Software Testing"
> > group.
> > To post to this group, send email to [email protected]
> > To unsubscribe from this group, send email to
> > [email protected]<mercuryqtp%[email protected]>
> > For more options, visit this group at
> > http://groups.google.com/group/MercuryQTP?hl=en
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]<mercuryqtp%[email protected]>
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>



-- 
===================
With Regards
Jakka Suresh Kumar
[email protected]
===================

-- 
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en

Reply via email to