以下是（vs2010）的代码，在倒数第二行处出错，有什么代码把arr一个一个地取出?
在网上看到用ADO（vs2010的）可以，但赋值时还是整体赋值的？（vs2010）的代码已经不行，
用ADO（vs2010的）可以把arr一个一个地取出吗？Excel是2003
        Dim xlapp As Object = CreateObject("Excel.Application")
        Dim xlBook As Object = xlapp.Workbooks.Add
        Dim slSheet1 As Object = xlBook.Worksheets(1)
        Dim slSheet2 As Object = xlBook.Worksheets(2)
        Dim slSheet3 As Object = xlBook.Worksheets(3)
        xlapp.Visible = True
        Dim i As Integer, j As Integer, k As Integer, arr
        With slSheet1
            For i = 1 To 9
                .range("c" & i + 2) = i
                .range("f" & i + 8) = i + 8
            Next
            j = .cells.find("*", , , , 1, 2).row
            k = .cells.find("*", , , , 2, 2).Column
            arr = .range(.cells(3, 3), .cells(17, 6))
            .range("h9").Resize(15, 4) = arr '这里出错
        End With

[此贴子已经被作者于2017-6-22 19:32编辑过]

在以上的代码：
 arr = .range(.cells(3, 3), .cells(17, 6))
之后，如果写MSGBOX(arr(1,1)),则是出错的。

请教老师：整体一次取出的数据（如arr），用循环的方式把它们一个一个地放入一个数组中，
如何实现呢？谢谢。