Excel VBA Excel表数据导入Access数据库

本文首发于2023年8月23日其他同名平台，更多文章案例搜索关注！

执行摘要

将Excel数据导入Access数据库

大家好，我用冷水泡茶。

可以选择多个表同时导入到Access数据库中，当然默认是这些表的名称和结构都是相同的。

我还发表过一篇文章【将ExcelVBAExcel表数据导入Access数据库/数据验证入门研究】，主要讲的是导入数据的验证。

今天我们就来详细介绍一下Excel导入Access的过程：

基本流程

1、首先我们创建两个文件，一个叫access数据库，一个叫excel数据源，然后创建一个启用宏的Excel工作簿“Excel数据导入Accessxlsm”。

2、准备一些数据，从我的测试数据【财务管理系统】中选择“凭证tb”表，会计凭证表。

3、在“Access数据库accdb”中创建一个表，名称与数据源一致当然，不一致也没关系，我们在导入时直接指定表名即可。之所以有“保持一致”的要求，是因为在我的【财务管理系统】中，是批量循环导入的，导入的代码的数据表名是一个变量，没有指定，直接我们就选择相应的要导入哪个。为了方便我们要创建一个表“tb凭证”，我们直接在【财务管理系统】中复制该表的结构。

4、在“Excel数据导入录入”中写入导入代码。

5执行代码并导入成功：

代码

1模块1，DataImport流程，数据导入：

IsDataImport()DimconnAsObjectDimstrCnnAsStringDimrsAsObjectDimdataFileAsString,excelFileAsStringDimstrSQLAsStringDimarrData()DimiAsInteger,jAsIntegerSetconnCreateObject('SetConntegerSetconnCreateObject)(JointReportJointSetting')'通过查询将Excel数据读取到excelFileThisWorkbook数组中。ProviderMicrosoftACEOLEDB120;数据源'excelFile';扩展属性''Excel120Xml;HDRYES'';'strSQL'SELECT*O[tbcredential$]'rsOpenstrSQL,conn,3,3arrDatarsGetRowsrsClose'打开Access数据库连接，将数组数据导入到凭证表tbdataFileThisWorkbookPath'/Accessdatabaseaccdb'strCnn'ProviderMicrosoftACEOLEDB120;DataSource'dataFile';'connOpenstrCnnrsOpen'tb凭证',conn,1,3Fori0ToUBound(arrData,2)IfarrData(1,i)''ThenExitForrsAddNewForj1ToUBound(arrData,1)rsFields(j)arrData(j,i)NextrsUpdateNextClose并清除对象rsCloseconn

代码分析：

(1)定义一些变量，conn数据库连接对象，rs记录设置对象。

(2)第13~19行，将Excel表格数据读入数组：

(a)connopen~：建立与excel文件的连接；

(b)rsopen~：打开记录集；

(c)arrDatarsGetRows将记录集对象数据存储在数组中。

(3)第21~32行，将数组中的数据写入记录集对象并更新。记录集和数组的下标都是从0开始的。当写入记录集时，我们从j1开始，以便跳过自动更新的第一个字段ID。

(4)最后关闭conn和rs对象。

2其他流程：CmdImport，数据导入命令按钮

PrivateSubCmdImportClick()CallDataImportEndSub

3、注意事项：

(1)导入的数据表需要与目标数据表具有相同的结构和数据类型，否则导入可能会失败。

（2）这三个表放在同一个目录下，如果路径改变，可以在代码中修改excelFile和dataFile的值。

（3）Excel数据导入Access还有其他方法，由于时间有限，我们就不展开了，等以后使用的时候再讨论。最简单的，我们可以将Excel表格中的数据复制并粘贴到Entry表格中。

~~~~~~结束~~~~~~

喜欢的话就点个赞、点击观看、留言吧！分享出去，让自己变得更强大！感激的！