Visual Basic - Pasar de MSflexgrid a Excel

Hola, Espero y me puedan ayudar.

Realmente lo que quiero hace es que tengo un Flexgrid y quiero que cuando presione un boton me genere un archivo de excel con la informacion que tengo en el Flexgrid.

Espero su ayuda....

Aca te pego el fragmento que pasa un flexgrid a Excel.

Private Sub Command1_Click()
Rem ****************************************************************
Rem * Abro el Excel
Rem ****************************************************************

Dim Planillatemporal As Object
Set Planillatemporal = GetObject("", "excel.sheet")
ExcelApp = Planillatemporal.Application

Planillatemporal.Application.Visible = True
Planillatemporal.Application.Workbooks.Add

Rem ****************************************************************
Rem * Cargo Celdas
Rem ****************************************************************

If Option3.Value Then
Planillatemporal.Application.Cells(1, 2).Value = "Planilla de IVA Ventas
" + LTrim(RTrim(cmesperiodo.Text)) + " - " + LTrim(RTrim(canoperiodo.Text))
Else
Planillatemporal.Application.Cells(1, 1).Value = "cliente"
Planillatemporal.Application.Cells(2, 1).Value = "Domicilio"
Planillatemporal.Application.Cells(3, 1).Value = "Localidad"
Planillatemporal.Application.Cells(4, 1).Value = "Provincia"
Planillatemporal.Application.Cells(5, 1).Value = "Pais"
Planillatemporal.Application.Cells(6, 1).Value = "Telefonos"
Planillatemporal.Application.Cells(7, 1).Value = "C.U.I.T."

Planillatemporal.Application.Cells(1, 2).Value = "(" +
LTrim(RTrim(ccodcliente.Text)) + ")" + cnomcliente.Text
Planillatemporal.Application.Cells(2, 2).Value = cdomcliente.Text
Planillatemporal.Application.Cells(3, 2).Value = tloccliente.Text
Planillatemporal.Application.Cells(4, 2).Value = tprocliente.Text
Planillatemporal.Application.Cells(5, 2).Value = tpaicliente.Text
Planillatemporal.Application.Cells(6, 2).Value = ctelcliente.Text
Planillatemporal.Application.Cells(7, 2).Value = ccuicliente.Text

Planillatemporal.Application.Cells(1, 3).Value = "Vendedor"
Planillatemporal.Application.Cells(2, 3).Value = "Cobrador"
Planillatemporal.Application.Cells(3, 3).Value = "Zona"
Planillatemporal.Application.Cells(4, 3).Value = "SubZona"
Planillatemporal.Application.Cells(5, 3).Value = "Tipo de Cliente"
Planillatemporal.Application.Cells(6, 3).Value = "Tipo de Comprador"
Planillatemporal.Application.Cells(7, 3).Value = "Tipo de Deudor"

Planillatemporal.Application.Cells(1, 4).Value = cdetvendedor.Text
Planillatemporal.Application.Cells(2, 4).Value = cdetcobrador.Text
Planillatemporal.Application.Cells(3, 4).Value = cdetzona.Text
Planillatemporal.Application.Cells(4, 4).Value = cdetsubzona.Text
Planillatemporal.Application.Cells(5, 4).Value = cdetTipodeCliente.Text
Planillatemporal.Application.Cells(6, 4).Value =
cdetTipodeComprador.Text
Planillatemporal.Application.Cells(7, 4).Value = cdetTipodeDeudor.Text

Planillatemporal.Application.Cells(1, 6).Value = "Desde"
Planillatemporal.Application.Cells(2, 6).Value = "Hasta"

Planillatemporal.Application.Cells(1, 7).Value = Dpdesde.Value
Planillatemporal.Application.Cells(2, 7).Value = dphasta.Value
End If

col_auxi = gfichas.Cols
fil_auxi = gfichas.Rows

con_colu = 0
Do While con_colu < col_auxi - IIf(Option3.Value, 0, 1)
con_fila = 0
Do While con_fila < fil_auxi
gfichas.Col = con_colu
gfichas.Row = con_fila
If Option3.Value Then
If gfichas.Col > 3 And gfichas.Row <> 0 Then
Planillatemporal.Application.Cells(3 + con_fila + 1,
con_colu + 1).Value = funciones.mivalornumerico(gfichas.Text)
Else
Planillatemporal.Application.Cells(3 + con_fila + 1,
con_colu + 1).Value = gfichas.Text
End If
Else
If gfichas.Col > 1 And gfichas.Col < 5 And gfichas.Row <> 0 Then
Planillatemporal.Application.Cells(9 + con_fila + 1,
con_colu + 1).Value = funciones.mivalornumerico(gfichas.Text)
Else
Planillatemporal.Application.Cells(9 + con_fila + 1,
con_colu + 1).Value = gfichas.Text
End If
End If
con_fila = con_fila + 1
Loop
con_colu = con_colu + 1
Loop
End Sub