【access通用工具源码】通用Excel数据导入模块

时　间:2011-05-09 00:00:00
作　者:红尘如烟   ID：10768  城市：成都
摘　要:之前做的一个通用导入模块，不过后来又找到更高效的办法，差点抛弃，不过后来想想，这个模块虽然效率比较差，不过易用性上来讲还是不错的，因此发上来给大家作个参考。

正　文:

        之前做的一个通用导入模块，不过后来又找到更高效的办法，差点抛弃，不过后来想想，这个模块虽然效率比较差，不过易用性上来讲还是不错的，因此发上来给大家作个参考。

用法： 1. 直接打开窗体时允许手动选择要导入的目标表：
       DoCmd.OpenForm "ImportFromExcel"
       2. 通过OpenArgs参数传递指定表名，这样不允许手动选择要导入的目标表，只能向指定的表中导入数据：
       DoCmd.OpenForm "frmImportFromExcel", , , , , , "表1"
要点： 1. 指定要导入的Excel工作簿文件后，会自动识别有数据的工作表，如果工作表不止一个，允许选择任意工作表。
       2. Excel中第一行必须是字段名或字段标题，会自动对应列和字段。Excel中的列标题可以是字段标题，并且读取时也是优先识别字段标题和Excel列标题进行对应。
       3. 可以选择某些字段是否导入，无法自动对应的默认为不导入。
       4. 使用非常友好的进度条，可以清楚的知道导入进度，防止数据量大时假死引起误操作。
       5. 友好的错误判断，如果某些行的数据导入失败，会在导入完成后自动打开Excel文件，并 在工作表的数据右边显示错误信息，以便明白导入失败的原因。注意错误信息默认不会在Excel中保存，关闭之后就不会存在。
        6. 可以重复进行导入，不需要重新打开导入窗体。

附   件：

点击下载此附件