用数组的形式统计直线长度到EXCEL一个单元格中

Public Sub getlength() '统计长度
Set acadApp = GetObject(, ".Application")
Set Xlapp = GetObject(, "Excel.Application")
    Dim entry As AcadEntity, hjx As Variant, FType(0) As Integer, FData(0) As Variant, sjx As AcadSelectionSet, i As Long
    FType(0) = 0
    FData(0) = "Length"
    On Error Resume Next
    ThisDrawing.SelectionSets.Item("sf").Delete
    Set sjx = acadApp.ActiveDocument.SelectionSets.Add("sf")
    sjx.SelectOnScreen
    h = sjx.Count
    sjx.Select acSelectionSetAll, , , FType, FData
    With Xlapp
        k = .ActiveCell.row
        j = .ActiveCell.Column
        For Each entry In sjx
            hjx = entry.Length
            .cells(k, j) = Format(hjx / 1000, "##0.00")
            k = k + 1
            .cells(k, j).Activate
        Next entry
    End With
    sjx.Delete
End Sub