我们可以使用VBA将数据从Microsoft Excel导出到Microsoft Access。以下是您需要粘贴到文件代码模块中的VBA代码和过程。

{空} 1。打开Excel 2.按ALT + F11 3. VBA编辑器将打开4.单击“项目”窗口中的任何位置5.单击“插入” 6.单击“模块”

image1

7。在“代码”窗口中，复制并粘贴下面提到的代码* Sub ADOFromExcelToAccess（）

‘将活动工作表中的数据导出到Access数据库中的表’必须在使用Dim cn作为ADODB.Connection，rs作为ADODB.Recordset，r As Long之前编辑此过程，然后连接到Access数据库设置cn = New ADODB。连接cn.Open“ Provider = Microsoft.Jet.OLEDB.4.0;”＆_“ Data Source = C：\ FolderName \ DataBaseName.mdb;”

‘打开一个记录集Set rs = New ADODB.Recordset rs.Open“ TableName”，cn，adOpenKeyset，adLockOptimistic，adCmdTable’表中的所有记录r = 3’工作表的开始行Do While Len（Range（“ A” ＆r）.Formula）> 0’重复，直到A列中的第一个空单元格带有rs .AddNew’创建新记录’将值添加到记录中的每个字段中。Fields（“ FieldName1”）= Range（“ A”＆r ）.Value .Fields（“ FieldName2”）= Range（“ B”＆r）.Value .Fields（“ FieldNameN”）= Range（“ C”＆r）.Value’如有必要，添加更多字段…​

Update’存储新记录End With r = r + 1’下一行循环rs.Close设置rs = Nothing cn.Close设置cn = Nothing End Sub *

image2

{空} 8。粘贴完成后，转到Excel文件。9.单击功能区上的“查看”选项卡。10.单击“宏”。11.单击“查看宏”。12.查看宏的快捷键是ALT + F8 13.将弹出一个窗口|。 |||| {空} 14。选择宏15.在这里宏被命名为“ ADOFromExcelToAccess”。16.选择宏“ ADOFromExcelToAccess”。17.单击“运行”。18.单击“确定”以关闭该框。这是我们可以通过使用VBA在Excel中将数据从Excel导出到Access的方法。 Microsoft Excel。

image3