Sub exportBOMTable()
    Dim oDrwDoc As DrawingDocument
    Dim oSheet As Sheet
    Dim partsList As partsList
    Dim tableRow As PartsListRow
    Dim csvFile As String
    Dim outputFile As Integer
    Dim rowIndex As Integer
    Dim colIndex As Integer
    Dim cellValue As String

    MsgBox "Start programu na převod rozpisky do CSV"
    
    ' Set the active drawing document
    Set oDrwDoc = ThisApplication.ActiveDocument

    ' Set the active sheet
    Set oSheet = oDrwDoc.ActiveSheet
    
    ' Zjistíme, jestli na výkrese existuje rozpiska
    If oSheet.PartsLists.Count > 0 Then
        MsgBox "Rozpiska existuje :) a tak budu exportovat ;) "
        ' Zde se provádí export CSV
        
        
        
        
        Set partsList = oSheet.PartsLists(1)
        csvFile = "C:\temp\rozpiska_export.csv"
        outputFile = FreeFile
        Open csvFile For Output As outputFile
        ' Iterace přes řádky a sloupce rozpisky a zápis do CSV
        For rowIndex = 1 To partsList.PartsListRows.Count
            ' Inicializace řádku pro CSV
            Dim rowData As String
            rowData = ""
            
            Set tableRow = partsList.PartsListRows(rowIndex)
            
            ' Iterace přes jednotlivé buňky v řádku
            For colIndex = 1 To partsList.ColumnCount
                cellValue = tableRow.Item(colIndex).Value
                ' Přidání hodnoty buňky do řádku a oddělení středníkem
                rowData = rowData & cellValue & ";"
            Next colIndex
            
                ' Odstranění posledního středníku a zapsání řádku do CSV
                rowData = Left(rowData, Len(rowData) - 1)
                Print #outputFile, rowData
        Next rowIndex
    
        ' Uzavření souboru
        Close outputFile
    
        MsgBox "Rozpiska byla úspěšně exportována do: " & csvFile

    Else
        MsgBox "Rozpiska neexistuje :( a tak se nic nestane ..."
    End If
    MsgBox "Konec programu"
End Sub