将Base 1阵列更改为Base 0阵列

Question

我正在从Excel中检索数据，并希望保持我的数组0基础，但Excel返回1个基数。是否有一种相当简单的方法可以将数组从1更改为0基数？或者我只需要创建一个循环？

这是一个示例代码：

dim oData(,) as object
dim rng as range
dim wks as worksheet = xlApp.Activeworkbook.sheets(Sheet1)

rng=wks.Range("A1:B2")

oData=rng.Value2

Answer 1

循环是最简单的选择。

Dim target as string(0 to oData.Length - 1)

For index = 1 to oData.Length 
   target(index - 1) = oData(index)
Next

这是来自记忆而未经过测试但很明显。