Message 1 of 3
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I got this routine off the In The Trenches blog and am trying to change it, some. For some reason when I export I can only get 4 columes to export. So what the heck am I missing here? The Part List I am using has all the colums I am trying to export on it.
'-------------Start Of ilogic ------------------------------------------------
'get the path and name of the drawing file
path_and_name=ThisDoc.PathAndFileName(False)' without extension
'define oDoc
oDoc=ThisDoc.Document
'specify the drawing sheet
oSheet=oDoc.Sheets("Sheet:1")' sheet by name
'oSheet = oDoc.Sheets(1) ' first sheet
' say there is a Partslist on the sheet.
oPartslist=oSheet.PartsLists(1)
' create a new NameValueMap object
oOptions=ThisApplication.TransientObjects.CreateNameValueMap
'specify an existing template file
'to use For formatting colors, fonts, etc
oOptions.Value("Template")="C:\_Print Release\Print Release Template.xls"
'specify the columns to export
oOptions.Value("ExportedColumns")="PART NUMBER;DESCRIPTION;QTY;PROJECT; REVISION NUMBER"
'specify the start cell
oOptions.Value("StartingCell")="A26"
'specify the XLS tab name
'here the file name is used
oOptions.Value("TableName")=ThisDoc.FileName(False)'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")=False
'check for existing XLS file and delete it if found
IfDir(path_and_name&".xls")<>""Then
Kill(path_and_name&".xls")
Else
EndIf
' export the Partslist to Excel with options
oPartslist.Export(path_and_name&".xls", _
PartsListFileFormatEnum.kMicrosoftExcel, oOptions)
'-------------End of ilogic ------------------------------------------------
Lance W.
Inventor Pro 2013 (PDS Ultimate)
Vault Pro 2013
Windows 7 64
Xeon 2.4 Ghz 12GB
Solved! Go to Solution.