Изменить Массив 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

Это из памяти и не проверено, но это достаточно очевидно.