I wonder if somebody can help to find out how to solve anerror message.
I have the an Excel spreadsheet with a macro that update circle'sdimensions SolidWorks part.

Basically, I have typed the following data in the excelspreadsheet:
1.- In the cell "A1" I have the "Angle" description in the cell"B1" I have the "Angle" value.
2.- In the cell "A2" I have the "Distance" description in the cell"B2" I have the "Distance" value.

The excel macro that reads this data and update the part'sdimension in SW is:

' &&& START MACRO &&&&
Sub Circle_Dimensions()
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID("D1@Revolve1@Part1.SLDPRT","DIMENSION", -0.09850135091876, -0.1943853516059, 0.08935038736053,False, 0, Nothing)
Part.Parameter("D1@Revolve1").SystemValue = Excel.Range("B1") /0.57

boolstatus = Part.Extension.SelectByID("D2@Sketch1@Part1.SLDPRT","DIMENSION", -0.03077633012788, -0.11670139381, 0.09386013938138,False, 0, Nothing)
Part.Parameter("D2@Sketch1").SystemValue = Excel.Range("B2") *0.0254

Part.ClearSelection2 True
Part.EditRebuild
Part.ViewZoomtofit2

End Sub

'&&& END MACRO &&&&

When I run the macro I got the following error message:

Run-time error "91":
Object Variable or With block variable no set

After I click "DEBUG" it is highlighting at the followingstatement:

boolstatus = Part.Extension.SelectByID("D1@Revolve1@Circle.SLDPRT","DIMENSION", -0.09850135091876, -0.1943853516059, 0.089350387

Could you please tell me what is the object variable I have to set?

Thanks in advance.
MaperaliaSolidworksApi macros