'Read Excel File Using ADO Public Function Read_Excel _          (ByVal sFile _           As String) As ADODB.Recordset       '函数参数       On Error GoTo fix_err '有错去fix_err那个标签       Dim rs As ADODB.