Polyline & Polygon Area

Dear Experts,

I have tried the attached Code But when I run "Run-time error "-2145320851" show

I Need your help on this subject

Sub ExtractPolygonAreas()

Dim acadApp As Object
Dim acadDoc As Object
Dim acadSelSet As Object
Dim acadPoly As Object

Set acadApp = GetObject(, "AutoCAD.Application")
Set acadDoc = acadApp.ActiveDocument

Set acadSelSet = acadDoc.SelectionSets.Add("polygons")
acadSelSet.SelectOnScreen

Dim i As Integer
Dim j As Integer
Dim area As Double
Dim pointArray() As Double

Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Sheets("Sheet1")

xlWs.Cells(1, 1).Value = "Layer"
xlWs.Cells(1, 2).Value = "Coordinates"
xlWs.Cells(1, 3).Value = "Area"

For i = 0 To acadSelSet.Count - 1
    Set acadPoly = acadSelSet.Item(i)
    area = acadPoly.area
    pointArray = acadPoly.Coordinates
    xlWs.Cells(i + 2, 1).Value = acadPoly.Layer
    xlWs.Cells(i + 2, 2).Value = "("
    For j = 0 To UBound(pointArray) - 1 Step 2
        xlWs.Cells(i + 2, 2).Value = xlWs.Cells(i + 2, 2).Value & "(" & pointArray(j) & "," & pointArray(j + 1) & ")"
    Next j
    xlWs.Cells(i + 2, 2).Value = xlWs.Cells(i + 2, 2).Value & ")"
    xlWs.Cells(i + 2, 3).Value = area
Next i

xlApp.Visible = True
xlWb.SaveAs "PolygonAreas.xlsx"

End Sub

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code] [/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)