Zobrazit plnou verzi příspěvku: Import názvu souboru do kusovníku
Dorb ýden můžete mi někdo prosím poradit jak dostanu do exportovaného kusovníku i název sestavy do úrovně 0?
Dneska už mi to asi moc nemyslí. Co si pod tím mám představit?
Jeden zakaznik chce mit extra vyjety samostatne kusovnik do excelu s mnoh a parametrama. Tak to resim exportem rozpisky do xlsx. Ale tam se mi nepise jako zdrojova polozka 0 samostna vrcholova sestava. A to je kamen urazu.
Já bych si to naprogramoval. Ale nejde uživatelsky vytvořit pomocnou, nadřazenou sestavu, z ní udělat export a zahodit jí?
Ten to způsob jde dělat samozřejmě ale chtěl jsem to co nejvíc z automatizovat. Lze nějakým způsobem do makra které exportuje kusovník vložit program co vše posuné o řádek v excelu níž a do daného sloupce vloží název souboru bez přípon či číslo výkresu?
Pro první přiblížení je to asi nějak takhle:[code]'Sestaveni kusovnikuDim table As New List(Of String())table.Add({"1", "Part1", "MainAssembly" })table.Add({"2", "Part2", "MainAssembly" }) 'Zapis kusovniku do ExceluFor r = 0 To table.Count-1 Dim row = table(r) GoExcel.CellValues("C:\Temp\TestFile.xlsx", "List1", "A"&r+1, "C"&r+1) = rowNext 'Ulozit, zavritGoExcel.SaveGoExcel.Close[/code]