RE:exportar datos a excel
Espero que te ayude esto:
Este ejemplo tiene:
Un flexgrid con datos y al presionar el boton de comando abro el excel, le ponfgo titulos a la primera fila (algunas celdas) y luego le paso el contenido del FlexGrid.
Private Sub Command2_Click()
On Error GoTo control
With Flex_Muestra
Dim ApExcel As Variant, Color As Integer
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
ApExcel.Cells(1, 1).Formula = "Num"
ApExcel.Cells(1, 2).Formula = "Departamento"
ApExcel.Cells(1, 3).Formula = "Provincia"
ApExcel.Cells(1, 4).Formula = "Distrito"
ApExcel.Cells(1, 5).Formula = "CCP"
ApExcel.Cells(1, 6).Formula = "Zona Distrital"
ApExcel.Cells(1, 7).Formula = "NSE"
ApExcel.Cells(1, 8).Formula = "Manzana"
ApExcel.Cells(1, 9).Formula = "Viviendas"
ApExcel.Cells(1, 10).Formula = "Conglomerado"
ApExcel.Range("A1:J1").Borders.Color = RGB(255, 0, 0)
Dim Y As Integer
For Y = 1 To 10
ApExcel.Cells(1, Y).Font.Size = 12
ApExcel.Cells(1, Y).Font.Bold = True
Next Y
Dim z As Integer
ApExcel.Columns("H:H").Select
ApExcel.Selection.NumberFormat = "@"
Color = 1
For z = 2 To rs.RecordCount + 1
ApExcel.Cells(z, 1).Formula = .TextMatrix(z - 1, 0)
ApExcel.Cells(z, 2).Formula = .TextMatrix(z - 1, 1)
ApExcel.Cells(z, 3).Formula