Excel 批量导入到Access数据库

chenagui · 发表于 2010-2-3 17:51

本过程完成将Excel2007中的工作表批量导入到Access2007数据库中
延用导入的工作表名称
Private Sub ExportExcelSheetToAccess()
Dim sSheetName As String 'Excel表名
Dim sAccessTable As String 'Access 表名
Dim sAccessDBPath As String 'Access 数据库路径及名称
sAccessDBPath = "e:\test.accdb" 此处填写Access 数据库路径及名称
Set con = CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName
For Each wsheet In Worksheets
sSheetName = wsheet.Name
sAccessTable = wsheet.Name
mysql = "Select * into " & sAccessTable & " in '" & sAccessDBPath & "' FROM [" & sSheetName & "$]"
con.Execute (mysql)
Next wsheet
End Sub

lb_bn · 发表于 2010-2-3 17:58

谢谢楼主分享。

鱼求雨 · 发表于 2010-2-3 19:15

不劣，不劣，挻好的代码！

飞云楼主 · 发表于 2010-2-3 21:06

谢谢楼主分享。

JLF2003 · 发表于 2010-2-3 22:17

2003可以用吗？

chenagui · 发表于 2010-2-3 23:05

2003 应该也可以的，万一提示错误，看是不是OLEDB驱动的问题，可以换为如下驱动
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName

nlinh · 发表于 2010-2-16 11:11

做一个示例,方便学习啊

song22602 · 发表于 2010-9-9 20:11

若 EXCEL的文件名为：AAA.XLS 数据放sheet1表
Access文件名为：BBB.mdb 数据表名为：数据
其中：sheet1与数据开的字段名相同，个数相同。共有37个字段，第一个字段为编号，它是唯一的索引。不可重复的。
Excel Access放在同一个文件夹中，
请老师编一段程序（VBA、最好有注解），谢谢了！！

鲜橙加冰 · 发表于 2010-11-23 15:05

楼主可否做个附件，那样更容易理解

mengshu · 发表于 2011-4-8 16:13

为什么第二页打不开呢？

		自动登录	找回密码
密码			免费注册

[原创] Excel 批量导入到Access数据库

回复 1楼 chenagui 老师，新手请教你，望你指导，先谢谢！！

回复 1楼 chenagui 的帖子