CATIA macro Retrieve material data of part under a product & export to excel 1

[Anandgh46]

Hi All,

I was working on a code to retrieve material data of part under a product. I know there are already lot of codes and solutions linked to this on the web but this is my try on this subject as its little customized.
The code is as follows and this is running well when the material is defined for the parts under product and throws up an error at this line "MaterialName = Material.Name" when there are no materials defined for the part under the product. Hope you guys can give me a solution.

Sub CATMain()
Dim Document
Set Document = CATIA.ActiveDocument
Dim Selection
Set Selection = Document.Selection
Dim iCount As String
iCount = Selection.Count
Dim Product
Dim Part
Dim MaterialName As string
Dim Manager As MaterialManager
Dim Material As Material
Dim PartNumber As String
Dim Description As String
Dim Excel As Object
Set Excel = CreateObject("Excel.Application")
Dim workbooks As workbooks
Set workbooks = Excel.Application.workbooks
Dim workbook As workbook
Dim Sheets As Object
Dim Sheet As Object
Dim worksheet As Excel.worksheet
Dim myworkbook As Excel.workbook
Set myworkbook = Excel.workbooks.Add
For i=1 to icount
Set Product = Selection.item(i).Value.ReferenceProduct.Parent
Set Part = Product.Part
Set Manager = Part.GetItem("CATMatManagerVBExt")
Manager.GetMaterialOnPart Part, Material
MaterialName = Material.Name
Excel.Cells(1,1) = "Material"
Excel.cells(i+1,1) = MaterialName
Next
Excel.Visible = True
Selection.Clear
End Sub

 

[Little Cthulhu]

Manager.GetMaterialOnPart Part, Material 
if Material is Nothing then
  MaterialName = "No material"
else
  MaterialName = Material.Name 
end if