How to handle opening an excel during run time?

[Ravi_Chandra]

Hi,

Below is the scenario:

I have to open an excel file from the application during run time. And I have to get the record count from that excel sheet.
It is taking more seconds to open the excel sheet when data is more.

Used below code but did not work:

Code:

Public Function Export_Debug()
    
Browser("X").Dialog("File Download").WinButton("Open").Click

Do
   Wait(2)
   On Error Resume Next
   Set objExcel = Getobject(,"Excel.Application")
Loop Until objExcel.Visible = True

rowCount = objExcel.ActiveWorkbook.ActiveSheet.usedrange.rows.count
Reporter.ReportEvent micDone, "Record Count in Excel", "Record Count is: " & rowCount

objExcel.Quit
End Function

Can anyone help me with solution?

Thanks,
Ravi.

[tester_rahul]

I have an alternative solution.
Try doing this.
use datatable.importsheet "<Path of xlx file> and then
count number of rows of the data table

[Rekhapramod]

Hi,

Try to use the below code

Code:

strFileName="C:\Documents and Settings\qtp\Desktop\Login_Details.xls"
strSQLStatement="Select * from [Dummy$]'"

Dim objAdCon, objAdRs
Set objAdCon = CreateObject("ADODB.Connection")
objAdCon.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ="&strFileName &";Readonly=True"

Set objAdRs = CreateObject("ADODB.Recordset")
objAdRs.Open strSQLStatement, objAdCon,3
MsgBox objAdRs.RecordCount

Regards,
RP