试一下这个: 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
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