一个个读到数组中不行吗?搞个自定义函数

解决方案 »

  1.   

    我当然知道一个一个读了,我是在问有没有更直接的方法~~~~~请不要曲解我的意思,谢谢
      

  2.   

    试一下这个:
    Private Function strExcelValue(strExcelFileName As String, _
    strWorkSheetName As String) As Variant()
    Dim wkbObj As Workbook, wksObj As Worksheet
    Set wkbObj = GetObject(strExcelFileName)
    Set wksObj = wkbObj.Worksheets(strWorkSheetName)
    strExcelValue = wksObj.UsedRange.Value
    End Function