怎样将Excel中的多个表同时导入到Access中？

huangyz_xy

我现在有一个Excel文件，里面包含有A、B、C、D四张表，怎样用语句一次将四张表导入到Access中，请高手指点，谢谢了！

huangyz_xy

难度大吗，怎么没有人应啊？

Henry D. Sy

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

。。。。。。。。。。。

huangyz_xy

谢谢了,兄弟!

huangyz_xy

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

huangyz_xy

真的很难吗？自己先顶一个！

明镜

钱不够

figfig

'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