将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

多数民众赞成从记忆中而未经过测试,但显而易见.