iParts not exporting to Excel... but iAssy works

[danny.lewisA9QBW]

So I can't figure why the command is working or assembly iAssy but not for the part iPart. Below is the chunk of code to run them. I've attached example files I was using.

Dim Path As String = "C:\TEST\ExportTest"
Dim ExportFile As String = Path & ".xls"

Logger.Info("ExportFile " & ExportFile)
Dim oDoc As Document = ThisDoc.Document

If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
Logger.Info("Assy FileType")	
	Dim oAsmDoc As AssemblyDocument = ThisApplication.ActiveDocument


	If oAsmDoc.ComponentDefinition.IsiAssemblyFactory = True Then
		Logger.Info("Assy iAssemblyFactory Found")
		Dim oiAssyFactory As iAssemblyFactory = oAsmDoc.ComponentDefinition.iAssemblyFactory
		oiAssyFactory.Export(ExportFile, FileFormatEnum.kMicrosoftExcelFormat)
	End If
End If

If oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
Logger.Info("Part FileType")
	Dim oPartDoc As PartDocument = ThisApplication.ActiveDocument
Logger.Info("oPartDoc")
	If oPartDoc.ComponentDefinition.IsiPartFactory = True Then		
		Logger.Info("Part iPartFactory Found")
		Dim oiPartFactory As iPartFactory = oPartDoc.ComponentDefinition.iPartFactory
		oiPartFactory.Export(ExportFile, FileFormatEnum.kMicrosoftExcelFormat)
	End If
End If

[bradeneuropeArthur]

Dim Path As String = "C:\TEST\ExportTest"
Dim ExportFile As String = Path & ".xlsx"

Logger.Info("ExportFile " & ExportFile)
Dim oDoc As Document = ThisDoc.Document

If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
Logger.Info("Assy FileType")	
	Dim oAsmDoc As AssemblyDocument = ThisApplication.ActiveDocument


	If oAsmDoc.ComponentDefinition.IsiAssemblyFactory = True Then
		Logger.Info("Assy iAssemblyFactory Found")
		Dim oiAssyFactory As iAssemblyFactory = oAsmDoc.ComponentDefinition.iAssemblyFactory
		oiAssyFactory.Export(ExportFile, FileFormatEnum.kMicrosoftExcelFormat)
	End If
End If

If oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
Logger.Info("Part FileType")
	Dim oPartDoc As PartDocument = ThisApplication.ActiveDocument
Logger.Info("oPartDoc")
	If oPartDoc.ComponentDefinition.IsiPartFactory = True Then		
		Logger.Info("Part iPartFactory Found")
		Dim oiPartFactory As iPartFactory = oPartDoc.ComponentDefinition.iPartFactory
		oiPartFactory.Export(ExportFile, FileFormatEnum.kMicrosoftExcelFormat)
	End If
End If

[bradeneuropeArthur · Accepted solution]

use "xlsx" instead of "xls"

[danny.lewisA9QBW]

@bradeneuropeArthur 

so that works.... but WTF...

why is it .xls for Assemblies (and .xlsx doesn't work) and .xlsx for Parts (And .xls doesn't work)?

Regardless the why... it's working; I'll take it. 🙂

[bradeneuropeArthur]

That is indeed strange!

@johnsonshiue Do you have any idea why that is the case!