将Base 1数组更改为Base 0数组

我从Excel中检索数据，并希望保持我的数组0，但Excel返回1基地。 有没有一个相当简单的方法来返回从1基地的数组更改？ 或者我只需要创build一个循环？

这里是一个示例代码：

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

循环是最简单的select。

 Dim target as string(0 to oData.Length - 1) For index = 1 to oData.Length target(index - 1) = oData(index) Next 

这是从记忆和未经testing，但它是显而易见的。