选件以1为基数的返回数组

Question

我有一些代码将ListObject的DataBodyRange解析为Variant类型的变量new_arr。我已经在模块的开头设置了Option Base 1，但是当我查看创建的数组时，我得到的是基于0的数组。我确定我错过了一些简单的事情

If isExcel(FSOFile) Then
        Set wb = Workbooks.Open(FSOFile)
            psheet = isProposal(wb)
            If psheet > 0 Then
                new_arr = ThisWorkbook.Sheets("Proposals").ListObjects(1).DataBodyRange
                thisdata = wb.Sheets(psheet).Range("B11:AD100").Value
                pData = proposalData(wb.Sheets(psheet), new_arr)
            End If
        wb.Close
    End If

Answer 1

根据Microsoft文档，它适用于数组而不是对象：

  

在模块级别用于声明数组的默认下限   下标。

See this page：

and this wonderful explanation关于差异