Prueba a modificar la propiedad del MSHFlexgrid: .MergeCells = flexMergeFree
Si le pones la propiedad sin combinar creo que te dará correcto, pero la presentación del control no será la adecuada.

¿Cómo haces para que te salga a la izquierda el + o - para expandir o contraer las filas? No sé si será una propiedad pues yo he modificado creo que todas y no lo logro, pero es posible que tu problema tenga que ver con eso.

Podrias poner un archivo ".mdb" aquí, nunca he tenido que procesar un MSHFlexgrid1 con celdas combinadas ( es para ayudarte!¡. )

P.D.: No tengo Access ni nada de Offices por aqui xP.

Dulce Infierno Lunar!¡.

Bueno la cosa es que en el FlexGrid cols da solo la cantidad de 2 es decir de tu tabla de Categorias pero no toma encuenta las demas con un simple proceso se soluciona!¡.

 
 
Option Explicit
 
Private WithEvents TmpAdoConector              As Cls_AdoConector      '   //  Modulo de clase para trabajar de forma limpia sobre el codigo xP.
 
' -------------------------------------------------------------------------------------------
' \\ -- Función para contar las Columnas REALES de un MSHFlexgrid.
' -------------------------------------------------------------------------------------------
Private Function GetColumns&(ByRef FlexGrid As MSHFlexgrid)
On Error GoTo Terminar
Dim Res$
    Res$ = Space(1)
    Do
        Res$ = FlexGrid.TextMatrix(0, GetColumns&)
        GetColumns& = GetColumns& + 1
    Loop Until Not Err.Number <= 0
Terminar:
    GetColumns& = GetColumns& - 1
    Err.Clear
End Function
' -------------------------------------------------------------------------------------------
' \\ -- Función para crear un nuevo libro con el contenido del MSHFlexgrid
' -------------------------------------------------------------------------------------------
Public Function Flexgrid_To_File_FormatExcel(ByVal sOutPutPath As String, ByRef FlexGrid As MSHFlexgrid) As Boolean
On Error GoTo Error_Handler
Dim Obj_Excel       As Object
Dim Obj_Libro       As Object
Dim Obj_Hoja        As Object
Dim Fila&
Dim TmpStr$
Dim Columna&
Dim CantCols&
 
    ' -- Crea el objeto Excel, el objeto workBook y el objeto sheet
    Set Obj_Excel = CreateObject("Excel.Application")
    If Not Obj_Excel Is Nothing Then
        Set Obj_Libro = Obj_Excel.Workbooks.Add
        If Not Obj_Libro Is Nothing Then
            Set Obj_Hoja = Obj_Libro.Worksheets.Add
            If Not Obj_Hoja Is Nothing Then
 
                ' -- Bucle para Exportar los datos
                CantCols = GetColumns&(FlexGrid)
                With FlexGrid
                    For Fila = 1 To .Rows - 1
                        For Columna = 0 To CantCols&
                            TmpStr$ = .TextMatrix(Fila, Columna)
                            If IsNumeric(TmpStr$) Then TmpStr$ = "'" & TmpStr$
                            Obj_Hoja.Cells(Fila, Columna + 1).Value = TmpStr$
                        Next
                    Next
                End With
 
                Obj_Libro.Close True, sOutPutPath
                Call Obj_Excel.Quit
 
                Set Obj_Hoja = Nothing
                Set Obj_Libro = Nothing
                Set Obj_Excel = Nothing
 
                Flexgrid_To_File_FormatExcel = True
 
            End If
        End If
    End If
    Exit Function
Error_Handler:
    Flexgrid_To_File_FormatExcel = False
    Call Err.Clear
End Function
 
 
 
Private Sub Cmd_Export_Click()
    Call MsgBox(IIf(Flexgrid_To_File_FormatExcel("C:\Excel.xls", MS_DataGrid), "Exportacion Exitosa", "Exportacion Fallida"))
End Sub
 
Private Sub Cmd_LoadData_Click()
'Dim TmpAdoConector              As Cls_AdoConector      '   //  Modulo de clase para trabajar de forma limpia sobre el codigo xP.
Dim TmpRecordSet                As ADODB.Recordset
 
    Set TmpAdoConector = New Cls_AdoConector
    With TmpAdoConector
        .ConectionType = Other
        .ConnectionString = "Provider               =   MSDataShape.1;" & _
                            "Extended Properties    =   Jet OLEDB:Database Password=;" & _
                            "Persist Security Info  =   False;" & _
                            "Data Source            =   c:\bd_01.mdb;" & _
                            "Data Provider          =   MICROSOFT.JET.OLEDB.4.0"
        Set TmpRecordSet = .GetNew_RecordSet( _
                                            "SHAPE {SELECT codcat,nomcat FROM categoria} AS CABECERA " & _
                                            "APPEND ({SELECT codprod,nomprod,codcat FROM producto} AS DETALLE " & _
                                            "RELATE codcat TO codcat) AS DETALLE" _
                                            )
        If Not TmpRecordSet Is Nothing Then
            Set MS_DataGrid.DataSource = TmpRecordSet
            With TmpRecordSet
                Call .Close
                Call .ActiveConnection.Close
            End With
            Set TmpRecordSet = Nothing
        End If
    End With
    Set TmpAdoConector = Nothing
End Sub
 
Private Sub TmpAdoConector_ErrorEvent(InfoError As ErrObject)
    With Err
        Debug.Print ""
        Debug.Print String$(30, "-")
        Debug.Print "Source:"; .Source
        Debug.Print "Number:"; .Number
        Debug.Print "Description:"; .Description
        Debug.Print String$(30, "-")
        Debug.Print ""
    End With
End Sub
 
 

Dulce Infierno Lunar!¡.

Efectivamente como dice BlackZeroX el problema es el número de columnas. Tú haces lo siguiente:

With FlexGrid
        For Fila = 1 To .Rows - 1
            For Columna = 0 To .Cols - 1
                o_Hoja.Cells(Fila, Columna + 1).Value = .TextMatrix(Fila, Columna)
            Next
        Next
End With

y el valor de .Cols no es correcto.

El problema viene porque tienes dos tablas relacionadas:


Decir que el código de BlackZeroX me parece muy bueno y se puede utilizar de forma general. Lo que dará error será Cls_AdoConector, parece ser un módulo de clase que desconozco.

Sabiendo que sólo vas a tener 5 columnas puedes hacer:
   

With FlexGrid
        For Fila = 1 To .Rows - 1
            For Columna = 1 To 5
                o_Hoja.Cells(Fila, Columna).Value = .TextMatrix(Fila, Columna)
            Next
        Next
    End With

Lo que pasa es que .Cols te va a devolver lo de tu primer FlexGrid aqui hay dos bueno se puede decir que son dos!¡ FlexGrid solo que anidados segun tu sentencia SQL (creo que es PL/SQL peo no estoy seguro...)

Bien bien si ven en el FlexGrid tiene los signos de -/+ para contraer los datos bueno cuando se contraen se muestran las Verdades Columnas del FlexGrid es decir de tu tabla categorias y los que fueron contraidos son los de tu tabla de Productos o algo asi se llamaban xP jeje. Bien la cosa es que solo va a contar las columnas de tu primera sentencia es decir de tu Tabla Columnas tal cual se lo as indicado en tu sentencia SQL

P.D.: NO TIENE NADA QUE VER la relacion de tablas dentro de Access o de una Base de datos, ya que una sentencia SQL puede ignorar (en este caso lo hace) las relaciones.

Nota:
 -> * Es mejor hacer un modulo de Clase para contener el objecto de Excel, ya que si la funcion se ve interrumpida o terminada la aplicacion por X motivo el Release Memory no se ejecutara (Ando haciendo un modulo de Clase pequeño y ergonomico cuando lo acabe lo publico en un nuevo Tema)!¡.

Dulce Infierno Lunar!¡.