在Autocad中用vba写一段通过文件路径打开一个excel文档，判断其数组长度，并将其B列放入一个新的数组中的程序

以下是一个通过文件路径打开一个Excel文档，判断其数组长度，并将其B列放入一个新的数组中的程序的示例：

Sub OpenExcelAndGetColumnB()
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim arrData() As Variant
    Dim arrColumnB() As Variant
    Dim lngRowCount As Long
    Dim lngIndex As Long
    Dim strFilePath As String
    
    '设置Excel文件路径
    strFilePath = "C:\Users\UserName\Documents\ExcelFile.xlsx"
    
    '创建Excel对象
    Set objExcel = CreateObject("Excel.Application")
    
    '禁用屏幕更新
    objExcel.ScreenUpdating = False
    
    '打开Excel文件
    Set objWorkbook = objExcel.Workbooks.Open(strFilePath)
    
    '获取数据范围
    arrData = objWorkbook.Sheets(1).UsedRange
    
    '获取行数
    lngRowCount = UBound(arrData, 1)
    
    '将B列数据复制到新数组中
    ReDim arrColumnB(1 To lngRowCount - 1)
    For lngIndex = 2 To lngRowCount
        arrColumnB(lngIndex - 1) = arrData(lngIndex, 2)
    Next lngIndex
    
    '关闭Excel文件
    objWorkbook.Close SaveChanges:=False
    
    '释放对象
    Set objWorkbook = Nothing
    Set objExcel = Nothing
    
    '启用屏幕更新
    Application.ScreenUpdating = True
    
    '在新数组中输出B列数据
    For lngIndex = LBound(arrColumnB) To UBound(arrColumnB)
        Debug.Print arrColumnB(lngIndex)
    Next lngIndex
End Sub

请注意，要运行此代码，您需要将文件路径更改为实际的Excel文件路径。此外，您还需要将文件扩展名从“.xlsm”更改为“.xlsx”，因为该代码中使用的是CreateObject方法，它不支持使用宏启用的Excel文件。