Экспорт структуры данных в Excel

Public Sub ReadTables()
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim rel As DAO.Relation
    Dim prp As DAO.Property
 
On Error Resume Next
    With CurrentDb
        For Each tdf In .TableDefs
            Debug.Print tdf.Name
            For Each fld In tdf.Fields
                Debug.Print , fld.Name
                For Each prp In fld.Properties
                    Debug.Print , , prp.Name, prp.Type, prp.Value
                Next prp
            Next fld
        Next tdf
        For Each rel In .Relations
            Debug.Print rel.Name
            For Each fld In rel.Fields
                Debug.Print , fld.Name
            Next fld
            For Each prp In rel.Properties
                Debug.Print , , prp.Name, prp.Type, prp.Value
            Next prp
        Next rel
        Debug.Print "Yes"
    End With
End Sub

    ' ...
    With CurrentDb
        For Each tdf In .TableDefs 'Перебераем коллекцию таблиц
            If (tdf.Attributes And dbSystemObject) = False Then 'Если таблица не системная (пользовательская)
                ' ...