9

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
4

1 に答える 1

8

ループは最も単純なオプションです。

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

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

それはメモリからのものであり、テストされていませんが、それは十分に明白です。

于 2012-05-23T15:45:21.350 に答える