Visual Basic - Leer hoja de excel desde Visual Basic

Hola, quiero leer el contenido de unas celdas en una hoja de excel y me dieron este codigo pero no funciona:

Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
' Abra el fichero Excel
' Sustituya "c:\myDir\book1.xls" por su fichero Excel
Set xlw = xl.Workbooks.Open("D:\DATA\Sparker\Alianza P&G-TGI\Visual Basic\MTBF Daily Tracking\production.xls")
' Sustituya "Sheet1" por la hoja de la que quiere extraer datos.
xlw.Sheets("Sheet1").Select
' Traer el valor de la celda (2,3) de la hoja.
MsgBox xlw.Application.Cells(2, 3).Value
' Cierre la hoja sin salvar los cambios
' Si quiere guardar los cambios sustituya False por True
xlw.Close False
Set xlw = Nothing
Set xl = Nothing

Hace falta instalar algun control o archivo especial para que funcione?
Si hay otra manera de hacerlo lo agradeceria.
gracias

Lo primero q tienes q hacer para trabajar con una hoja de Excel es ir al menú Proyecto-Referencias y agregar la libreria \"Micro$oft Excel 9.0 object library.
Una vez agregada tienes que poner en el módulo, procedimiento o evento q desees el siguiente código:

\'Variable para manejar la aplicación
Public var1 as Excel.Application
\'Variable para manejar un libro
Public var2 as Excel.Workbook
\'Variable para manejar las hojas
Public var3 as Excel.WorkSheet

Set var1 = CreateObject(\"Excel.application\")
Set var2 = var1.Workbooks.Add
Set var3 = var2.Worksheets(\"Hoja1\")

var1.visible = True

\'Nos situamos en la primera celda
var3.Range(\"A1\").Select

\'Leemos su contenido en una casilla de texto (por ex)
Text1 = ActiveCell.Value
\'*******************************************************************************
\'Para moverte por las celdas el código es...
ActiveCell.Offset(nºfilas, nºcolumnas).Select

Espero que te sirva................ Malcom

OK esto funciono bien, ahora deseo salvar la hoja excel por codigo, le pongo
xl.SaveWorkspace ("D:\DATA\Sparker\Alianza P&G-TGI\Visual Basic\MTBF Daily Tracking\production.xls")

pero me dice que tengo acceso de solo lectura

No me acuerdo muy bien, pero creo q no es necesario lo que haces... Simplemente cuando salgas del formulario q maneja la hoja pon este código (Según el ejemplo q te envie):

Set var3 = Nothing
var2.Close (True)
Set var2 = Nothing
var1.Quit
Set var1 = Nothing
'*******************************************************************************
Malcom