Sub Main()
  'Toto může být prázdný vytvořený Excelovský dokument
  Dim sablonaExceluProExport As String = "C:\Autodesk\Šablony\SablonaProSeznamKomponent.xlsx"

  Dim cisloVykresu As New List(Of String)
  Dim verze As New List(Of String)
  Dim strana As New List(Of String)
  Dim nazevSouboru As New List(Of String)
  Dim specifikace As New List(Of String)

  'Kontrola, zda je aktivní dokument sestava
  If ThisApplication.ActiveDocument.DocumentType <> DocumentTypeEnum.kAssemblyDocumentObject Then
      MessageBox.Show("Toto není sestava.", "iLogic")
      Exit Sub
  End If

  Dim oAsmDoc As AssemblyDocument
  oAsmDoc = ThisApplication.ActiveDocument

  Dim oRefDocs As DocumentsEnumerator
  oRefDocs = oAsmDoc.AllReferencedDocuments

  Dim oRefDoc As Document
  For Each oRefDoc In oRefDocs
        cisloVykresu.Add(System.IO.Path.GetFileNameWithoutExtension(oRefDoc.FullFileName))
        verze.Add(oRefDoc.PropertySets.Item("Inventor Summary Information").Item("Revision Number").Value)
        nazevSouboru.Add(System.IO.Path.GetFileNameWithoutExtension(oRefDoc.FullFileName))
        specifikace.Add(oRefDoc.PropertySets.Item("Design Tracking Properties").Item("Description").Value)
  Next

  'Nastaveni cesty noveho exportovaného seznamu výkresů
  Dim destXLS As String = ThisDoc.Path & "\" & ThisDoc.FileName(False) & ".xlsx"
  Dim oXLS_FileName As String = ThisDoc.FileName(False) & ".xlsx"

  System.IO.File.Copy(sablonaExceluProExport, destXLS, True)

  'Nastavení počátečního řádku - předpokládáme, že šablona Excelu ma nějakou hlavičku.
  Dim startRadek As Integer = 8
  Dim prtNum As String = iProperties.Value("Project", "Part Number").ToString
  Dim descr As String = iProperties.Value("Project", "Description").ToString

  'Vyplneni hlavicky excelu
  GoExcel.CellValue(oXLS_FileName, "List1", "C3") = prtNum
  GoExcel.CellValue(oXLS_FileName, "List1", "C4") = descr

  GoExcel.CellValue(oXLS_FileName, "List1", "C5") = DateString
  GoExcel.CellValue(oXLS_FileName, "List1", "C6") = ""


  'Zapisování do tabulky pod hlavičkou (pokud je sestava velká, je potřeba přepsat hodnotu 5000 v koncové buňce na větší číslo.
  GoExcel.CellValues(oXLS_FileName, "List1", "A" & startRadek, "A5000") = cisloVykresu
  GoExcel.CellValues(oXLS_FileName, "List1", "B" & startRadek, "B5000") = specifikace
  GoExcel.CellValues(oXLS_FileName, "List1", "C" & startRadek, "C5000") = strana ' NEPOUZITO
  GoExcel.CellValues(oXLS_FileName, "List1", "D" & startRadek, "D5000") = verze
  GoExcel.CellValues(oXLS_FileName, "List1", "E" & startRadek, "E5000") = nazevSouboru
  GoExcel.Save()
  GoExcel.Close()

  MsgBox("Konec exportu!")
End Sub