access读取EXCEL文件,并根据动态生成表，完成报表的导入

Option Compare DatabasePublic sheetid As String '报表IDPublic temp As String '获取年月时分秒Public tmpI As Integer '对应EXCEL行Public tmpJ As Integer '对应EXCEL列Public XlsApp As ObjectPublic XlsWorkbook As ObjectPublic XlsWorkSheet As Object'Public Rst As New ADODB.Recordset'Public Rcount As Integer'Public Fcount As Integer'Public CheckBoolean As Boolean '用于判断是否有CSV存在'Public TotalRows As Integer'Public RpId As String'Public RpName As StringPublic Conn_EXCEL As New ADODB.ConnectionPublic Rs_EXCEL As New ADODB.RecordsetPublic FileNameTmp As String'==============================================================================='-名称: 报表生成,记录写入'-功能描述: EXCEL文件中查找对应的报表ID，并进行读取'-返回参数说明: TempSheetId：报表ID'-使用语法示例: For ; EXCEL.Application;ADO'-参考:'-使用注意: 需要引用ADO或更高版本'-兼容性: XP,2003'-作者: 芦春堂 luke (ACCESS技巧网 Http://www.mdbtip.com)'-更新日期： 2011年2月19日'========================&