Public Function ExporToExcelRs(Rs_Data As ADODB.Recordset, strAppPath As String, sFileName As String, sFieldName As String)
'*********************************************************
'* 名称:ExporToExcelRs
'* 功能:导出数据到EXCEL
'* 用法:ExporToExcel(Rs_Data-记录集,strAppPath-文件路经,sFileName-文件名,sFieldName -中文标题)
'