Public Function Rs_To_Excel(Rs_data As ADODB.Recordset)
On Error Resume Next
'*********************************************************
'* 名称：ExporToExcel
'* 功能：导出数据到EXCEL
'* 用法：ExporToExcel(sql查询字符串)
'*********************************************************
Dim Irowcount As Long
Dim Icolcount As Long
Dim xlApp As New excel.Application
Dim xlBook As excel.Workbook
Dim xlSheet As excel.Worksheet
Dim xlQuery As excel.QueryTable
If Rs_data.RecordCount < 1 Then