在不同的操作中访问函数返回的数组

时间:2018-01-25 10:32:17

标签: arrays multidimensional-array vbscript hp-uft

我正在尝试访问函数返回的2D数组。

下面是我的函数返回数组:

Function readExcel
    'Importing and Reading an Excel into 2D Array

    Set xlwb = createObject("excel.application")
    excelpath = "H:/SomeExcel.xlsx"
    Datatable.import filePath
    row = Datatable.GetrowCount
    ReDim getCellContents(row,1)

    For i = 0 To UBound(getCellContents)
        getCellContents(i,0) = Datatable.Value("A","Global") 
        getCellContents(i,1) = Datatable.Value("B","Global")
    Next
    readExcel = getCellContents
End Function

我在不同的操作中调用该函数并尝试访问数组元素

Dim accessArrayValues
accessArrayValues = readExcel   
MsgBox accessArrayValues(0,0)
MsgBox accessArrayValues(0,1)

我认为我在操作中尝试访问数组的方式有问题。

0 个答案:

没有答案