Exportar datos a una hoja Excel

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.Sabe
WK.Close
Set WK = Nothing
XL.Quit
Set XL = Nothing

Buenos días. Muchas gracias por su ayuda. Me has sacado de un apurillo. Una ultima pregunta que le quería hacer. No se si lo estaré haciendo mal. En la parte del código que me ha puesto :
'Para introducir datos en las celdas recorre el Grid
Dim iRow As Integer
Dim iCol As Integer
For iRow = 0 To GRD_DATOS.Rows - 1
For iCol = 0 To GRD_DATOS.Cols - 1
WS.Cells(iRow, iCol) = GRD_DATOS.TextMatrix(iRow, iCol)
Next iCol
Next iRow
Me da un error que dice: Error 1004. Error definido por la aplicación o el objeto.
Me crea el archivo y todo, pero a la hora de recorrer las filas del grid hacia access me da ese error. ¿Sabe qué es lo que puede estar pasando? Muchas gracias de nuevo por su ayuda.
P.D: GRD_DATOS - Es el nombre de mi grid.