把excel工作薄中的N个相同格的表追加记录到ACCES中

lovelxhope

现在一张excel工作薄里含 有N张格式字段都相同的表，现要将这张工作薄中的所有表追加记录到一张Acces表中，请问用什么方法可以一键完成，如用手工去追加的话，手会抽的，麻烦各位高手帮且一下。因才接触Acces，麻烦写得详细一点，现对Acces还一点不懂，在线等，谢谢！

listyun

access里有导入外部数据啊。

lovelxhope

listyun 发表于 2012-2-6 15:50
access里有导入外部数据啊。

我知可导入追加的方法，可是有80张表，一张一张追加的话，手要抽的呀，有没有可以用VBA的方法来实现呀

jiangwh15

使用Access VBA

lovelxhope

jiangwh15 发表于 2012-2-6 16:11
使用Access VBA

哥，就是不会vba呀

roych

是80多张表还是80个工作簿要分清楚。
1、如果是一个工作簿里面有80张工作表的话，其实可以在Excel里执行联合查询，然后用ADO追加到Access里的。——论坛里有很多这样的例子，自己找找先。不会了再传附件上来。
2、如果是80个工作簿，建议还是逐个按向导点吧（或者链接表）。因为写代码也不见得比这个快多少，反正得打开80次，而且还得调试代码，以免出错。

lovelxhope

roych 发表于 2012-2-6 16:16
是80多张表还是80个工作簿要分清楚。
1、如果是一个工作簿里面有80张工作表的话，其实可以在Excel里执行联 ...

80多张Sheet在一个Book中， ADO是什么，联合查询也不会呀。55555

roych

这里随意给一段吧。你不给实例我也不方便讲：
Sub test()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim ssql As String
Dim i As Long
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;" _
            & "data source=" & ThisWorkbook.FullName
For i = 1 To 30
ssql = ssql & " select * from [" & Sheets(i).Name & "$A7:H37] " & "union"
Next
ssql = Left(ssql, Len(ssql) - 6)
rst.Open ssql, cnn, adOpenKeyset, adLockOptimistic
For i = 0 To rst.Fields.Count - 1
    Sheets("总表").[a1].Offset(0, i) = rst.Fields(i).Name
Next
Sheets("总表").[a2].CopyFromRecordset rst
'这个是把记录集复制到Excel表里，如果需要复制到Access里，则需要建立Access的数据链接，再进行处理。
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Sub

zhangjimfu

http://club.excelhome.net/thread-758903-1-1.html

供参考！

＂若菊开那夜、

使用Access VBA

   不会