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

最新推荐文章于 2024-03-12 00:05:49 发布

原创

最新推荐文章于 2024-03-12 00:05:49 发布 · 3.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#access

该博客介绍了一个Access宏，用于读取Excel文件中的特定报表ID，并将其数据导入Access。首先，宏会检查是否存在指定ID的CSV或Excel文件，然后打开文件，读取数据行，并创建临时表来存储数据。最后，它将数据保存到Access的临时表中，同时将已读取的文件重命名为'Finished.xls'并移入备份文件夹。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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日'===============================================================================Public Sub ReadEXCEL(TempSheetId As String) On Error Resume Next If fExist = True Then Di