Excel 怎么实现excel批量导入access

方法一

1打开access软件，新建空白桌面数据库。

2在外部数据面板中点击EXCEL图表。

3在选择数据源面板的文件名中选择目标文件，并在下方选择将数据源导入当前数据库的新表中，确定。

4接下来选择现实工作表，显示整个工作表，然后下一步。

5选择第一行包含标题，这样你的EXCEL表格的第一行成了标题行，相当于筛选栏，下一步。

6可以选中某列，设置该列的名称，下一步。

7可以选择自己的主键，这里我选择手机品牌为主键，下一步。

8下面一直下一步，完成后可以看到EXCEL插入access中。

以excel2007为例：

（1）打开Access，点击新建空白数据库。

（2）命名好文件名，选择好储存位置后，点击创建

（3）创建了以后，点击外部数据——导入Excel

（4）选择通过创建链接表来链接到数据源，再点击浏览，找到要导入的Excel表。

（5）找到Excel表后，点击打开，点击确定

（6）显示出工作表的内容，点击下一步----勾选第一行包含列标题-----点击下一步

完成以后，Access上多了一个数据表，双击打开后，这个表上的数据都不能更改，这就是链接方式的优点之一。注意，一定要在Access中关闭这个表，Excel才能打开修改。

三种VBA:

方法一：在eccel VBA编辑器编写代码，使用FOR循环导入：

Sub 利用Excel的VBA将数据写入Access()

'定义ADODB 连接Access数据库

Dim Cnn As New ADODBConnection

Dim Rs As New ADODBRecordset

Dim strCon As String

Dim strFileName As String '数据库文件名

strFileName = InputBox("请输入文件路径及文件名：", "Excel传递数据至Access", "E:\ExcelTest\Staffmdb")

'连接字符串，我这里是Access2010,所提供者参数为：Provider=MicrosoftACEOLEDB120;

'如果此参数不能使用，根据自己的电脑修改这个字符串

'至于连接至的数据库名，根据自己的电脑修改，或用一个对话框或其他方式将此值传递进程序

strCon = "provider=MicrosoftjetOLEDB40;" _

& "Data Source=" & strFileName & ";"

CnnOpen strCon

RsActiveConnection = Cnn

RsLockType = adLockOptimistic

RsOpen "Employee" '假设表为Employee

'定义Excel表中的数据区域以写入Access

Dim Sht As Worksheet

Dim Rn As Long

Dim Cn As Long

Set Sht = ThisWorkbookSheets("Sheet1")

'假设将 Sheet1 表的 2-6行的1、2、3列写入Access表

For Rn = 2 To 6

RsAddNew

Rs!num = ShtCells(Rn, 1) ’num,name,department是数据库中指定表的字段

Rs!Name = ShtCells(Rn, 2)

Rs!department = ShtCells(Rn, 3)

RsUpdate

Next Rn

MsgBox "完成!"

RsClose

CnnClose

Set Rs = Nothing

Set Cnn = Nothing

Set Sht = Nothing

End sub

其实为什么不换个思路想呢？

Access数据库是支持过程存贮的，这也就意味着我们可以在Access中去编写一段导入Excel数据表的程序，关键在于这个导入程序非常好写，只需要调用一下Access的特写方法就行了，用不着一句一句硬写，比如，我写的一个信息系统中，在Access中导入Excel表就有这么一句

DoCmdTransferSpreadsheet acImport, , "导入选题", "选题XLS", True, "A1:F100"

你看这多简单 就是Access中DoCmd对象的一个TransferSpreadsheet方法就行了，而且执行效率比自己硬写的高得多

你再研究一下，VB是可以调用Access中的存贮过程的，这样不就解决问题了吗

在“添加表格”页面（创建新的自定义应用程序时您将看到的第一项内容）上，您可以从 Excel 工作簿、ODBC 数据源、文本/CSV 文件、SharePoint 列表以及其他 Access 数据库导入数据。

以上就是关于Excel 怎么实现excel批量导入access全部的内容，包括:Excel 怎么实现excel批量导入access、如何将Excel表链接到Access中实现所需功能、如何将excel里的数据批量导入ACCESS等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！