如何将工作表数据自动导入ACCESS数据库

qwwyyc

各位老师:        工作薄中有2张表，“温州专线发货记录模板”、“乐清专线发货记录模板”，各表记录会有上千条，目前只输了几条做测试，做一个按钮，点击后就自动将“温州专线发货记录模板”里的数据导入到ACCESS的“发货记录.mdb”数据库“温州专线发货记录”的最后一行数据表中，不覆盖和修改其它数据，同理，“乐清专线发货记录模板”是将“乐清专线发货记录模板”里的数据导入到ACCESS的“发货记录.mdb”数据库“乐清专线发货记录”的最后一行数据表中，恳请各位老师能帮忙写下代码，感谢之至！

bajifeng

供参考
http://club.excelhome.net/thread-1252130-1-1.html

qwwyyc

bajifeng 发表于 2016-2-19 14:18
供参考
http://club.excelhome.net/thread-1252130-1-1.html

谢谢ｂａｊｉｆｅｎｇ老师指点，本人小白，看不大明白代码，不知道如何修改，恳请老师相助

zhaogang1960

请参考：

1. Sub 将工作表数据自动导入ACCESS数据库()
   
2.     Dim cnn As Object, SQL$
   
3.     If Range("A1").CurrentRegion.Rows.Count = 1 Then Exit Sub '没有数据退出程序
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\发货记录.mdb"
   
6.     SQL = "INSERT INTO " & Replace(ActiveSheet.Name, "模板", "") & " SELECT * FROM [Excel 8.0;Database=" _
   
7.         & ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$" & Range("A1").CurrentRegion.Address(0, 0) & "]"
   
8.     cnn.Execute SQL
   
9.     MsgBox "数据导入成功。", vbInformation, "数据导入"
   
10.     cnn.Close
    
11.     Set cnn = Nothing
    
12. End Sub
    

复制代码

zhaogang1960

请测试附件
账务清单.rar (41.61 KB, 下载次数: 1116)

2016-2-19 16:28 上传

点击文件名下载附件

qwwyyc

zhaogang1960 发表于 2016-2-19 16:28
请测试附件

感谢老版主老师多次的无私帮助，真的很感谢！完美解决了问题

superdh

感谢老师，太有帮助了

chengshanming

路过！做个记号！

低调小伙

chengshanming 发表于 2017-4-27 14:14
路过！做个记号！

很有用，努力学习

liezhuandi

qwwyyc 发表于 2016-2-21 11:01
感谢老版主老师多次的无私帮助，真的很感谢！完美解决了问题

为何我打开显示错误