把excel追加导入到access数据库

lzqlaj · 发表于 2011-7-25 11:00

本帖最后由 lzqlaj 于 2011-10-6 10:17 编辑

模块：我修改了原文：'db.Execute ("Select * into [;database= " & sAccessDBPath & "]." & sAccessTable & " FROM [ " & sSheetName & "$]")
为 db.Execute ("insert into [;database=" & sAccessDBPath & "]." & sAccessTable & " select * from [" & sSheetName & "$]") （已通过测试）
'1、sSheetName：要导出资料的资料表名称 (Sheet name)，例如 Sheet1
'2、sExcelPath：要导出资料的 Excel 文件路径名称 (Workbook path)，例如 C:\book1.xls
'3、sAccessTable：要导入的 Access Table 名称，例如 TestTable
'4、sAccessDBPath：要导入的 Access 文件路径名称，例如 C:\Test.mdb
Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As DAO.Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
'db.Execute ("Select * into [;database= " & sAccessDBPath & "]." & sAccessTable & " FROM [ " & sSheetName & "$]")
db.Execute ("insert into [;database=" & sAccessDBPath & "]." & sAccessTable & " select * from [" & sSheetName & "$]")
db.Close
Set db = Nothing
End Sub
上传一个实例，公开源码，欢迎测试。。

其它帖子：
成绩录入工具（vb）
http://club.excelhome.net/thread-744536-1-1.html
空行操作（“插入空行”）
http://club.excelhome.net/thread-590404-1-1.html
[分享] （无意中发现的）罗刚君底端标题生成工具（开放源码含附件）
http://club.excelhome.net/thread-601577-1-1.html
[源码全部公开] 分数段统计（数组）（vba）
http://club.excelhome.net/thread-750450-1-1.html
[源码全部公开] 分数段统计（vba）
http://club.excelhome.net/thread-599282-1-1.html
搜狗文本词库的制作（vb）
http://club.excelhome.net/thread-670925-1-1.html
汉字与区位码转换（vb版）
http://club.excelhome.net/thread-670918-1-1.html
[源码全部公开] 区位码与汉字相互转换
http://club.excelhome.net/thread-601351-1-1.html
优盘禁用工具
http://club.excelhome.net/thread-495008-1-1.html
[源码全部公开] 工资条通用生成程序（也可分考场）
http://club.excelhome.net/thread-487664-1-1.html
[转帖] 删除mbd数据库中所有记录
http://club.excelhome.net/thread-745139-1-1.html
[转帖] VB中对数据库的各种操作
http://club.excelhome.net/thread-745136-1-1.html
[转帖] VB把access数据库里的表导出成EXCEL表
http://club.excelhome.net/thread-745132-1-1.html

zhc19620430 · 发表于 2011-7-25 11:30

谢谢，如果有实例文件就好了。

lzqlaj · 发表于 2011-7-25 14:36

已上传实例，欢迎测试。

zhangjimfu · 发表于 2011-7-25 17:26

谢谢分享!

zhc19620430 · 发表于 2011-7-26 09:41

谢谢，我会好好学习，那个导入按钮具体是如何制作的呢。

lzqlaj · 发表于 2011-7-26 16:58

上传的文件中有源码，你按装vb6.0后可以打开*.vbp文件看到源码，按钮等。。

望江婷 · 发表于 2011-7-30 14:19

谢谢，读入速度太快了，学习

ggtang · 发表于 2011-11-6 19:08

不错，谢谢了！

mytou01 · 发表于 2011-11-7 08:08

先记下，以后慢慢看

niwopy · 发表于 2013-4-21 10:27

好东西。谢谢分享

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

[分享] 把excel追加导入到access数据库

评分

回复 2楼 zhc19620430 的帖子

回复 5楼 zhc19620430 的帖子