调用格式:

Dim rs As ADODB.Recordset

Set rs = Read_Excel("F:\XXX.XLS", "工作表名称")

Public Function Read_Excel(ByVal sFile As String, ByVal sSheet As String) As ADODB.Recordset
On Error Resume Next
      On Error GoTo fix_err
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim sconn As String

      rs.CursorLocation = adUseClient
      rs.CursorType = adOpenKeyset
      rs.LockType = adLockBatchOptimistic

      sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
      rs.Open "Select * FROM [" & sSheet & "$]", sconn
      Set Read_Excel = rs
      Set rs = Nothing
      Exit Function
fix_err:
      Debug.Print Err.Description + " " + _
                  Err.Source, vbCritical, "Import"
      Err.Clear
End Function