I'm away from system but will try if I can get something for you.
Perhaps you already got this. But here is an example. The macro will list all feature names and type in excel file C:\sample.xlsx.
Make sure that you have added the Microsoft Excel as reference in the VBA editor. More details about this in this cadsharp blog.
To add Microsoft Excel object library, go Tools->References in VBA editor.
Check the box for "Microsoft Excel xx.x Object Library". (xx.x is the Excel version)
The downside with this is that this has to be redone if a different Excel version is installed. There is a another way of doing this by code, but then the methods and properties for the Excel API is not exposed as if adding the reference manually with the VBA editor.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeatMgr As SldWorks.FeatureManager
Dim swFeature As SldWorks.Feature
Dim sFeatures As Variant
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim i As Integer
Dim j As Integer
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swFeatMgr = swModel.FeatureManager
Set xlApp = New Excel.Application
xlApp.Visible = False
Set xlWB = xlApp.Workbooks.Open("C:\sample.xlsx")
sFeatures = swFeatMgr.GetFeatures(True)
j = 1
xlWB.Worksheets(1).Cells(j, 1) = "Feature name"
xlWB.Worksheets(1).Cells(j, 2) = "Feature type"
j = j + 1
For i = LBound(sFeatures) To UBound(sFeatures)
Set swFeature = sFeatures(i)
xlWB.Worksheets(1).Cells(j, 1) = swFeature.Name
xlWB.Worksheets(1).Cells(j, 2) = swFeature.GetTypeName2
j = j + 1
Set xlApp = Nothing
Set xlWB = Nothing
Dan, thanks for taking care of it. My system died 4 days back and I'm still struggling to fix that
I thought that something was not right. You are usually prompt to respond.
Hope you get your machine up and running soon.
Its working ! Thanks