IC Ok then you can use this code
Option Explicit
Dim var1, var2, var3, rc, i, agent, pass
Set var1=createobject("Excel.application")
Set var2=var1.workbooks.open("path of excel sheet")
Set var3=var2.worksheets("sheet1")
rc=var3.usedrange.columns.count ' this will give the no.of links
available in the coulmn
MsgBox rc
For i=1 to rc
link=var3.cells("1", i)
Next
--
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
