读取excel文件的问题？

Question

我想把一个excel文件读取到一个二维数组中。
其中excel文件的的行数和列数都是不定的（因为要读取不同的excel文件）还有怎么返回excel文件中的行数？请高手回答，这里先谢过了！

Answer 1

在某空白例中写上:例如:F例
F1=COUNTA(A:A)
F2=COUNTA(B:B)
............
然后,再在某个单元格中写上
=MAX(F:F)
该值即是EXCEL表中的最大行数.

Answer 2

对你要读取数据的worksheet使用.UsedRange.SpecialCells(xlLastCell)可以获得使用区域的最右下角的单元格，然后通过.Row和.Column可以获得该单元格的行数和列数，这2个参数用于设定2维数据的大小，后面的就不用说了吧
呵呵加分

Answer 3

后面就是这样子啦：ReDim TheData(TheRowNum, TheColumnNum)
With TheWorksheet
    For LoopA = 1 to TheRowNum
        For LoopB = 1 to TheColumnNum
            TheData(LoopA, LoopB) = .Cells(LoopA, LoopB).Value
        Next LoopB
    Next LoopA
End With