Hola Krlos02.
Perdona, pero el ejemplo al que supongo que te refieres guarda y carga datos en un archivo de texto.
El último ejemplo que puse hace lo mismo pero el archivo de texto es delimitado, se podría abrir con excel (*.csv).
De todas formas, para lo que tú quieres hacer, puedes manejar los datos del datagrid de manera similar:
Row Establece la fila
Col Estable la columna
Text Da el valor de la celda
Y como parece que hay mucho interés en conseguir código para insertar datos en una hoja de cálculo, y pocas ganas de buscar, pues me voy a tirar el rollito con un ejemplo sencillo de cómo cargar los datos de un recordset en una hoja de excel.
Private Function SaveRsXls(Byval rs1 as Recordset) As Boolean
On Error Goto Err_SaveRs
Dim objApp As Object
Dim objWb AsObject
Dim objSh As Object
Dim objRng As Object
Dim var1() As Variant, lngNFld as Long
Dim lngNRcd as long
Set objApp = CreateObject(Excel.Application")
Set objWb = objApp.WorkBooks.Add
Set objSh = objWb.ActiveSheet
ReDim var1(1, rs1.Fields.Count)
For lngNFld = 0 To rs1.Fields.Count - 1
var1(0, lngNFld) = rs1.Fields(lngNFld).Name
Next lngNFld
Set objRng = objSh.Range("A1").Resize(1, rs1.Fields.Count)
objRng.Value = var1
rs1.MoveFirst
Do Until rs1.EOF
For lngNFld = 0 To rs1.Fields.Count - 1
var1(0, lngNFld) = rs1.Fields(lngNFld).Value
Next lngNFld
lngNRcd = lngNRcd + 1
Set objRng = objSh.Range("A" & lngNRcd + 1).Resize(1, rs1.Fields.Count)
objRng.Value = var1
rs.MoveNext
Loop
objSh.Name = "Nueva hoja"
objWb.SaveCopyAs "NombreDeLibro.XlsobjWb.Saved = True
SaveRsXls = True
Exit_SaveRs:
On Error Resume Next
objApp.Close
objApp.Quit
Set objApp = Nothing
Set objWb = Nothing
Set objSh = Nothing
Set objRg = Nothing
Exit Function
Err_SaveRs:
MsgBox Err.Description
Resume Exit_SaveRs
End Function
Ahí está, ojo que está escrito al vuelo y lo mismo va algún gazapo... pero es para que sirva de ejemplo y para que lo intentéis comprender, no para copiar tal cual y que funcione. Además de haber otras formas para hacerlo.
Suerte.
Chao.
P.D. Acabo de hacer la prueba buscando en google por VB Excel y aparecen cantidad de sitios desde los que obtener ejemplos... sólo hay que tomarse la molestia y ya está.
