बेस 1 एरे को बेस 0 एरे

Question

बदलें मैं एक्सेल से डेटा पुनर्प्राप्त कर रहा हूं और अपने सरणी 0 आधारित रखना चाहता हूं लेकिन एक्सेल 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 

स्मृति से था और परीक्षण नहीं किया गया लेकिन यह पर्याप्त स्पष्ट है।