Office中国论坛/Access中国论坛

标题: 怎样将Excel中的多个表同时导入到Access中？ [打印本页]

作者: huangyz_xy 时间: 2008-10-8 13:00
标题: 怎样将Excel中的多个表同时导入到Access中？
我现在有一个Excel文件，里面包含有A、B、C、D四张表，怎样用语句一次将四张表导入到Access中，请高手指点，谢谢了！

作者: huangyz_xy 时间: 2008-10-9 08:42
难度大吗，怎么没有人应啊？

作者: Henry D. Sy 时间: 2008-10-9 12:06

原帖由 huangyz_xy 于 2008-10-9 08:42 发表
难度大吗，怎么没有人应啊？

。。。。。。。。。。。

作者: huangyz_xy 时间: 2008-10-9 12:56
标题: 回复 3# 的帖子
谢谢了,兄弟!

作者: huangyz_xy 时间: 2008-10-9 13:26
可能我没有说清楚哈，我有如附件一个表，里面包含“BSC”、“cell”等6张表，用什么方法可以将这六张（或者更多）一次性导入到ACCESS中，并且需要每个工作表的第一行作为标题。

作者: huangyz_xy 时间: 2008-10-10 14:47
真的很难吗？自己先顶一个！

作者: 明镜 时间: 2008-10-10 18:12
钱不够

作者: figfig 时间: 2008-10-11 00:55
'excel vba 代码
Sub fig3w()
With CreateObject("access.application")
If .Version = "11.0" Then .AutomationSecurity = 1
lj = ThisWorkbook.Path
WB = ThisWorkbook.FullName
If Dir(WB & ".MDB") <> "" Then Kill WB & ".MDB"
.NEWcurrentdatabase (WB & ".MDB")
For Each sh In ThisWorkbook.Sheets
.docmd.TransferSpreadsheet , , sh.Name, WB, True, sh.Name & "!"
Next

.Quit
End With
End Sub

作者: linag516 时间: 2009-11-2 10:10

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)