Sub CATMain()

Dim MyDrawingDocument As Document

Dim MyDrawingSheets As DrawingSheets
Dim MyDrawingSheet As DrawingSheet

Dim MyDrawingViews as DrawingViews
Dim MyDrawingView as DrawingView

Dim MyDrawingTables as DrawingTables
Dim MyDrawingTable as DrawingTable

Dim NumberOfSheet
Dim NumberOfView
Dim NumberOfTable
Dim Rows
Dim Columns
Dim Row
Dim Column




Set MyDrawingDocument = CATIA.ActiveDocument
Set MyDrawingSheets = MyDrawingDocument.Sheets

        For NumberOfSheet = 1 To MyDrawingSheets.Count

        Set MyDrawingSheet = MyDrawingSheets.Item(NumberOfSheet)
        Set MyDrawingViews = MyDrawingSheet.Views

                        For NumberOfView = 1 To MyDrawingViews.Count
                        Set MyDrawingView = MyDrawingViews.Item(NumberOfView)
                        Set MyDrawingTables = MyDrawingView.Tables

                                    For NumberOfTable=1 To MyDrawingTables.Count
                                    Set MyDrawingTable = MyDrawingTables.Item(NumberOfTable)
                                    Rows = MyDrawingTable.NumberOfRows
                                    Columns = MyDrawingTable.NumberOfColumns
                                    Dim ArrayToExport
                                    ReDim ArrayToExport (Rows,Columns)

                                                        For Row = 1 To Rows
                                                                    For Column = 1 To Columns
                                                                    ArrayToExport(Row, Column) = MydrawingTable.GetCellString(Row, Column)
                                                                    Next
                                                        Next
                                    'Send an array to excel
                                        MsgBox "Table has been exported to excel."
                                        Dim MyObjectExcel
                                        Set MyObjectExcel = CreateObject("Excel.Application")
                                        MyObjectExcel.Visible =True
                                        Set MyObjectWorkbook = MyObjectExcel.Workbooks.Add()
                                        MyObjectWorkbook.Activate
                                        Set MyObjectSheet = MyObjectWorkbook.Worksheets.Item(1)


                                                For Row = 1 To Rows

                                                    For Column = 1 To Columns
                                                    MyObjectSheet.Cells(Row, Column) = ArrayToExport(Row, Column)
                                                    Next

                                                Next



                                    Next


                        Next
        Next









End Sub