Lalit:
Assuming you have opened the Excel workbook as stated:
' grab open Excel
Set xlApp = Eval("GetObject(,""Excel.Application"")")
xlApp.visible = True
' set object workbook
Set xlWB = xlApp.ActiveWorkbook
' set object worksheet
Set xlWS = xlApp.Activesheet
foundNumCols = xlWS.UsedRange.Columns.count
foundNumRows = xlWS.UsedRange.Rows.count
' first row is headers and not data
print "FoundNumRows = " & foundNumRows - 1
print "foundNumCols = " & foundNumCols
hth,
Parke
--
--
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
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
