07-21-2023
11:28 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-21-2023
11:28 AM
Is there a way to get the numeric value from the InputBox and start PartsListNumber from that or add it to the PartsListNumber? I found some code that takes all of the parts lists from a DWG and creates a new tab in Excel for each instance but I would like to have some control over the numbering of the tabs so that the tabs align with the actual location/floor level on our project. See the code below.
oInput = InputBox("Input the first floor level number below", "First Floor Level", "") numericCheck = IsNumeric(oInput) If numericCheck = True Then MessageBox.Show("Input is numeric", "iLogic") Else MessageBox.Show("Input is NOT numeric.", "iLogic") End If 'specify the start cell oOptions.Value("StartingCell") = "A" & startRow 'specify the XLS tab name 'here the file name is used oOptions.Value("TableName") = "Embeds For Level-" & PartsListNumber 'without extension 'choose to include the parts list title row 'in this example "Ye Old List of Parts" is written to the StartingCell oOptions.Value("IncludeTitle") = False 'choose to autofit the column width in the xls file oOptions.Value("AutoFitColumnWidth") = True ' export the Partslist to Excel with options oPartslist.Export(fileName, PartsListFileFormatEnum.kMicrosoftExcel, oOptions) PartsListNumber = PartsListNumber + 1