在ACCESS中如何用VBA实现将表"导出数据"每次以不同的10000条导出至EXECL文件中，直至所有数据记录导完则终止？

可以使用VBA中的ADO对象和Excel对象来实现此功能。具体步骤如下：

1. 首先在VBA中创建一个连接Access数据库的ADO对象，打开“导出数据”表。

2. 再创建一个Excel对象，打开一个新的工作簿，用于保存每次导出的数据。

3. 使用SQL语句查询“导出数据”表，每次查询10000条记录，将查询结果保存到一个Recordset对象中。

4. 判断Recordset对象中是否还有记录，如果有，则将这10000条记录写入Excel工作簿中。如果没有记录了，则关闭Excel工作簿，退出程序。

5. 循环执行第3步和第4步，直到所有数据记录导完为止。

以下是示例代码，仅供参考：

Sub ExportData()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim excelApp As Excel.Application
    Dim excelBook As Excel.Workbook
    Dim excelSheet As Excel.Worksheet
    Dim sql As String
    Dim i As Long, j As Long
    
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb"
    
    Set excelApp = New Excel.Application
    Set excelBook = excelApp.Workbooks.Add
    Set excelSheet = excelBook.Sheets(1)
    
    i = 2 '从第二行开始写入数据，第一行为表头
    j = 1 '记录导出的记录数
    Do While True
        sql = "SELECT TOP 10000 * FROM [导出数据] WHERE ID NOT IN (SELECT TOP " & (j - 1) & " ID FROM [导出数据] ORDER BY ID) ORDER BY ID"
        Set rs = conn.Execute(sql)
        If rs.EOF Then
            rs.Close
            Exit Do
        End If
        Do While Not rs.EOF
            For k = 0 To rs.Fields.Count - 1
                excelSheet.Cells(i, k + 1).Value = rs.Fields(k).Value
            Next k
            i = i + 1
            j = j + 1
            rs.MoveNext
        Loop
        rs.Close
    Loop
    
    excelBook.SaveAs "C:\path\to\your\exported\file.xlsx"
    excelBook.Close
    excelApp.Quit
    
    Set rs = Nothing
    Set conn = Nothing
    Set excelSheet = Nothing
    Set excelBook = Nothing
    Set excelApp = Nothing
End Sub