access数据（30万条），有什么办法可以导入到excel工作簿中的多个excel表？

wsq0931

access数据（30万条），有什么办法可以导入到excel工作簿中的多个excel表？

比如每个工作表6万条记录的话，5个工作表就OK了。。

在ACCESS中如何操作呢？

gly1126

'先工具-引用ADO
Sub test()
    Dim Conn As New ADODB.Connection
    Dim Fst As New ADODB.Recordset
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};UID=admin;PWD=admin;DBQ=你的mdb文件全路径"
    Set rst = Conn.Execute("select * from 替换为实际表名")
    For Each c In Worksheets
        c.Range("a1").CopyFromRecordset rst, 60000
    Next c
End Sub

.无忧.

以下代码一切工作自动，，，你随便创建一个窗体，窗体的按钮事件里放入以下代码：（本代码的实例为Northwind.mdb数据库），，，花了我一个上午的时间，晕，一起学习！
一个工作表要放入多少条记录，只要改动下面的n的值就好
Option Compare Database

Private Sub Command0_Click()

DoCmd.SetWarnings False

Expath = CurrentProject.path & "\"   '防止跟现有的工作薄重名
X = 1
Do
    If Dir(Expath & Year(Now()) & "导出工作薄名" & X & ".xls") <> "" Then
            X = X + 1
    Else
            Exit Do
    End If
Loop

Dim xx, yy, n '总记录数，总工作表数,n为一个工作表里计划的记录数
Set db = OpenDatabase(CurrentProject.path & "\Northwind.mdb")  '对当前数据库来说，这个能不能简化？
Set rs = db.OpenRecordset("产品")
xx = rs.RecordCount
n = 20   '一个工作表里要放多少条记录，比如，一个工作表里只放10条记录
If Int(xx / n) <> xx / n Then
    yy = Int(xx / n) + 1
Else
    yy = xx / n
End If
Dim SQLXY()
ReDim SQLXY(yy)
For I = 1 To yy Step 1
    If I = yy Then
        DoCmd.RunSQL "SELECT TOP " & xx - (yy - 1) * n & " * INTO [Excel 8.0;Database=" & Expath & Year(Now()) & "导出工作薄名" & X & ".xls].[" & yy & "] FROM 产品 ORDER BY 产品ID DESC;"
    Else
         DoCmd.RunSQL "SELECT TOP " & n & " * INTO [Excel 8.0;Database=" & Expath & Year(Now()) & "导出工作薄名" & X & ".xls].[" & I & "] FROM [SELECT TOP " & I * n & " * FROM 产品  ORDER BY 产品ID ]. AS 临时表 ORDER BY 临时表.产品ID DESC;"
    End If
Next
MsgBox "导出成功!"
DoCmd.SetWarnings True

End Sub

xinjiana

导出来干嘛？分析？access里面有查询生成器的，取你需要的数据就可以了，干嘛受这个累把数据导出来？access存取数据还是不错的，excel处理这么多数据力不从心的

LMY123

For Each c In Worksheets
        c.Range("a1").CopyFromRecordset rst, 60000
    Next c