Acceder a Excel mediante VB

Dim XL As Object
Dim WS As Object
Dim WK As Object
Set XL = CreateObject("Excel.Application")
'Podemos crear un nuevo archivo
Set WK = XL.Workbooks.Add
WK.SaveAs Fichero
'O abrir uno ya existente
Set WK = XL.Workbooks.Open(Fichero, 0, False, , , , True)
WK.Saved = True
'Dentro del "libro" excel podemos crear una hoja nueva
Set WS = WK.Worksheets.Add(, WK.Worksheets(WK.Worksheets.Count))
'O abrir una ya existente
Set WS = WK.Worksheets(Nombre)
'Para introducir datos en las celdas recorre el Grid
Dim iRow As Integer
Dim iCol As Integer
For iRow = 0 To Grid.Rows-1
For iCol = 0 To Grid.Cols - 1
WS.Cells(iRow, iCol) = Grid.TextMatrix(iRow, iCol)
Next iCol
Next iRow
'Y cerramos todo
Set WS = Nothing
WK.Save
WK.Close
Set WK = Nothing
XL.Quit
Set XL = Nothing
Si quieres quitar los mensajes de error de excel pon XL.Application.DisplayAlerts = False
Espero que te sirva. Salu2