如何导入另一access中的表？急！！！

cwzj3807 · 发表于 2017-4-7 10:43

求助各位老师：我有两个access文件，一个叫“系统1”，另一个叫“系统2”，都在同一文件目录下。我的问题是：如何用代码将“系统1” 的表全部导入到“系统2” 中？谢谢！

little-key · 发表于 2017-4-7 15:46

用Excel 控制？

cwzj3807 · 发表于 2017-4-7 15:56

little-key 发表于 2017-4-7 15:46
用Excel 控制？

我需要的是直接在access中用VBA代码来实现呀，恳请请老师指点！

little-key · 发表于 2017-4-7 16:04

你是想在Excel 操作还是在Access 操作

cwzj3807 · 发表于 2017-4-7 16:58

little-key 发表于 2017-4-7 16:04
你是想在Excel 操作还是在Access 操作

在access中操作

linyh1742595842 · 发表于 2017-4-8 15:30

cwzj3807 发表于 2017-4-7 16:58
在access中操作

完全可以的，用循环插入就可以的。

cwzj3807 · 发表于 2017-4-17 15:15

little-key 发表于 2017-4-7 16:04
你是想在Excel 操作还是在Access 操作

再次求助老师：
我有两个Access文件：“数据库A”和“数据库B”，现在我需要在“数据库B”中操作，将“数据库A”中的表全部导入到“数据库B”中，恳请老师给出代码！谢谢！
注：链接的代码我已经学着写好了。

导入数据库A中的表.rar (38.66 KB, 下载次数: 7)

little-key · 发表于 2017-4-17 16:36

最快的方法就是你在数据库B中，做一个链接表，连接到数据库A的指标表，然后用查询update数据库的表就可以了

cwzj3807 · 发表于 2017-4-18 20:50

little-key 发表于 2017-4-17 16:36
最快的方法就是你在数据库B中，做一个链接表，连接到数据库A的指标表，然后用查询update数据库的表就可以了

我还是需要用代码来解决，恳请老师指导代码！谢谢！！！

little-key · 发表于 2017-4-19 09:22

cwzj3807 发表于 2017-4-18 20:50
我还是需要用代码来解决，恳请老师指导代码！谢谢！！！

请参考

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

复制代码

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

[求助] 如何导入另一access中的表？急！！！