读取Excel里面的数据

Option Explicit
Dim arrRange
arrRange = ReadFile("D:\test.xls","test")

Msgbox arrRange(3,1)
Function ReadFile(sFilename,sSheetname)
   Dim oExcel
   Dim oSheet
   Dim oRange
   Dim arrRange
   On error resume next
   set Excel=CreateObject("Excel.Application")
   If err.number<>0 Then
    msgbox "未能初始化Excel"
    Exit Function
   End If
   On Error Goto 0
      On error resume next
 oExcel.Workbooks.Open(sFilename)
   If err.number<>0 Then
    msgbox "打开excel 失败"
      Exit Function
   End If
     On Error Goto 0
 Set Sheet=oExcel.worksheets(sSheetname).usedRange
   Set Range = oSheet.Range("A1:Z1000")
       '把Excel数据转换到数组
       arrRange = oRange.Value
       ' 关闭工作簿
       oExcel.WorkBooks.Item(1).Close
       ' 退出Excel
       oExcel.Quit
       Set Excel = Nothing
    ' 返回包含Excel数据的数组
     ReadFile = arrRange
End Function