Vba.excel - problem with "GetObject"

Hello, have a problem with recording a small macro
I need : 1. take some .xls fail; 2.put some data in it 3. save with other name
Maybe somebedy can said where is a problem in script?
Thanx.

Sub TestReport()

Dim Excelsheet As Object
Set Excelsheet = GetObject("C:\Book2.xls")

ExcelSheet.Application.Cells(2, 1) = "111"
ExcelSheet.Application.Cells(5, 1) = "222"
ExcelSheet.Application.Cells(9, 1) = "aaa"

Excelsheet.SaveAs "C:\report_test.xls"
Excelsheet.Application.Quit
Set Excelsheet = Nothing

End Sub

Why don't you just open the workbook?

Dim Excelsheet As Object
Set Excelsheet = Workbooks.Open("C:\Book2.xls")

Originally Posted by Norie

Why don't you just open the workbook?

Dim Excelsheet As Object
Set Excelsheet = Workbooks.Open("C:\Book2.xls")

Damn! It was so easy!

Norie great thanx !!

No problem.

By the way I don't think the rest of your code is going to work either.

As far as I know the Application object does not have a Cells property.

Originally Posted by Norie

No problem.

By the way I don't think the rest of your code is going to work either.

As far as I know the Application object does not have a Cells property.

Actualy, I think so too, but

the code is working right ! ))

I'm wrong.

The Cells property of the Application object refers to the cells in the active sheet.