Run time error - Excel object

[sasi1982]

Hi,
I have a simple code where it creates excel object and add data to it. But i am getting the below run time error when i execute it. Can some please check and let me know solution.

run time error : ActiveX component can't create object: 'Excel.Application'

Thanks in advance.

[KavitaPriyaCR]

Is statement like:
CreateObject("Excel.Application")

[sasi1982]

Yes kavitha. With that statement only i am getting the runtime error.

---

Kavitha, if i run the piece of code individually from QTP, it is working fine.

But, if add the funtion definition to the .vbs file and then call it from QTP, it is not working. .vbs is associated to the script. Can you please reply back immediately if you have solution.

Thanks ..

[A.Saini]

HI Sasi,

I think you should double check whether the function is properly called from the Script.

You can use the "Alt+G" to check that.

[sasi1982]

Hi saini,
i have checked it. it is fine.

[KavitaPriyaCR]

Hi Sasi
please check my code, i tried to simulate your error.
1. Function definition:

Code:

Public Function ReadExcel()
Set appExcel = CreateObject("Excel.Application")
Set objWorkBook = appExcel.Workbooks.Open ("C:\Documents and Settings\Administrator\Desktop\ActualizedTrades_06Mar10.xls")     'opens the sheet
Set objSheet = appExcel.Sheets("ACTUALIZED_TRADE")             ' To select particular sheet
Column_Count=objSheet.usedrange.columns.count
Row_Count=objSheet.usedrange.rows.count
Environment.value("data1")=objSheet.cells(1.1).value
End Function

2. Associate .vbs file in settings >> resources

3. Main script in QTP:

Code:

Call ReadExcel()
MsgBox Environment.Value("data1")
' This line will print the cell data

This is working fine for me. can you please check, is it the way you are trying to do? OR am i understanding it other way?

[sasi1982]

Kavitha,
Thank you so much for the reply. Here probably, the problem is , when i run the script in the invisible mode, then it is throwing this error. But if i run the script from QTP UI, it is not working. I am copying the code here for your reference. Please have a look.

Code:

public Function Export_Result(TestID,Driver_Script,Res,Comments)

              Dim objExcel,objBook,objSheet,i,columnCount,rowCount
            ' Initializing the Excel sheet
            Set objExcel = CreateObject("Excel.Application")
            Set objBook = objExcel.Workbooks.Open("Q:\Automation\Reports\Results.xls")
            Set objSheet=objBook.Worksheets("Test_Results")
            'Getting the TimeStamp
            ResultTime=now
            ' Getting the used rows range
            rowCount=objSheet.usedrange.rows.count
            ' Writing in Excel Sheet
            objExcel.Worksheets("Test_Results").Cells(rowCount+1, 2).Value = TestID
            objExcel.Worksheets("Test_Results").Cells(rowCount+1, 3).Value = Driver_Script
            objExcel.Worksheets("Test_Results").Cells(rowCount+1, 4).Value = Res
            objExcel.Worksheets("Test_Results").Cells(rowCount+1, 4).Font.Bold = true
            If ucase(Res) = "PASS" Then
                    objExcel.Worksheets("Test_Results").Cells(rowCount+1, 4).Font.ColorIndex  = 10
                    else
                    objExcel.Worksheets("Test_Results").Cells(rowCount+1, 4).Font.ColorIndex  = 3
            End If
            
            objExcel.Worksheets("Test_Results").Cells(rowCount+1, 6).Value = ResultTime
                        
            'Writing the Comments
           objExcel.Worksheets("Test_Results").Cells(rowCount+1, 5).Value = Comments
            Export_Result = true
            ' Saving and closing the work book
            objBook.Save
            objExcel.Workbooks.Close
            objExcel.Quit

End Function

Thanks
Sasi.C

[KavitaPriyaCR]

Hi sasi
I tried your code it self.It is working fine for bothe the cases mentioned below:
1. When i run the script from QTP UI.
2. when i run the script in the invisible mode (after replacing the parameters with data).