Hola a todos, tengo una consulta que hacerles, tengo un codigo que exporta el contenido de un grid a excel pero quisiera conocer mas opciones de este ocdigo si alguien las conoce que me mande respeuta o un contacto, quiero hacer cosas como por ej. colcar titulos a cada columna de la tabla, o colocarle un titulo enciam de la tablaen el fichero, ojala me puedan ayudar...
Sub ex(d As DataGrid)
'exporta datagid a fichero excel
Dim apex As Variant
Set apex = CreateObject("Excel.application")
'hace ke excel se vea
apex.Visible = True
'agrega un nuevo libro
apex.Workbooks.Add
'poner titulos
Dim i As Integer, c As Integer
With d
For i = 0 To .ApproxCount - 1
.Row = i
For c = 0 To 6
.Col = c
apex.Cells(i + 5, c + 1).Formula = .Text
apex.Cells(i + 5, c + 1).Borders.Color = RGB(0, 0, 0)
Next c
Next i
End With
Set apex = Nothing
End Sub