Hola. Antes que nada debes activar la referencia del Excel. Menu proyecto -> Referencias -> Click en Microsoft Excel 10.0 Object Library. Luego definir una variable de tipo Excel aplication
Public Planilla As Excel.Application
Esto que te paso son todos comandos, para exportar
Código:
Set Planilla = New Excel.Application '
Planilla.Visible = True ' Abre el libro
Planilla.Workbooks.Add '
Planilla.Worksheets(1).Range("A3").Value = txt.Text 'Pasa el contenido del txt a la celda especificada (en tu caso seria el grid)
Planilla.Worksheets(1).Range("A2:C8").Select 'Selecciona el rango
'Planilla.Worksheets(1).Range("A2:A8").Merge 'Une las celdas
'Planilla.Worksheets(1).Range("A2:A8").AutoFormat (1) 'Aplica el autoformato definido (ver cual queda mas pituco...)
Planilla.Selection.Font.Bold = True '
Planilla.Selection.Font.Name = "Tahoma" '
Planilla.Selection.Font.Size = 12 'Formato de texto
'Planilla.Selection.Font.Italic = True '
'Planilla.Selection.Font.Underline = True '
Planilla.Selection.Font.ColorIndex = 35 'Color de fuente
Planilla.Selection.Interior.ColorIndex = 31 'Color de interior de la celda
Planilla.Selection.Borders.ColorIndex = 1 'Color de la celda
'Planilla.Selection.Borders.Weight = 4 'Ancho de la celda (de 1 a 4 solamente)
Planilla.Selection.Borders.LineStyle = xlDouble 'Estilo de borde
'Bordes con parametros...
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Planilla.Selection.Font.Superscript = True 'Texto en superindice
Planilla.Selection.Font.Subscript = True 'Texto en subindice
'Alineado de celdas
With Selection
.HorizontalAlignment = xlRight 'xlCenter | xlleft
.VerticalAlignment = xlBottom
End With
'Tamaño de celdas
Planilla.Selection.ColumnWidth = 15
Planilla.Selection.RowHeight = 15
'Insertar imagenes
ActiveSheet.Pictures.Insert("C:\Mis documentos\Lucas\ISEI\Imagenes\Castillo.jpg").Select 'Inserta imagen
Selection.ShapeRange.ScaleWidth 0.55, msoFalse, msoScaleFromBottomRight 'Multiplica el ancho por el nº
Selection.ShapeRange.ScaleHeight 0.55, msoFalse, msoScaleFromBottomRight 'Multiplica el alto por el nº
Selection.ShapeRange.IncrementLeft 34 'Para mover
Selection.ShapeRange.IncrementTop 21 'la imagen
Uff
. Hay bastante no? Lo que deberias hacer es recorrer tu Grid e ir pasando los datos que desees. De todas maneras si queres hacer algo que no este arriba, realiza una macro en Excel, luego anda a editarla y copia en código y pasalo a VB6.
Espero que te sirva. Saludos. Lucas