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

可以通过以下步骤实现：

1. 创建一个名为“导出数据”的查询，其中包含要导出的所有数据记录。

2. 在VBA中创建一个Sub，用于导出数据。

3. 在Sub中，使用Do While循环，每次从查询中获取10000条记录。

4. 对于每个10000条记录，使用TransferSpreadsheet方法将数据导出到一个新的Excel文件中。

5. 使用FileSystemObject对象创建一个新的文件夹，用于存储所有的Excel文件。

6. 将每个Excel文件保存到新文件夹中，并以唯一的名称命名，例如“导出数据_1.xlsx”，“导出数据_2.xlsx”等。

7. 当所有记录都已导出时，退出循环并显示一个消息框。

下面是示例代码：

Sub 导出数据()

    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim rowCount As Integer
    Dim fileName As String
    Dim folderPath As String
    Dim fso As Object
    Dim folder As Object
    
    Set db = CurrentDb()
    Set qdf = db.QueryDefs("导出数据")
    Set rst = qdf.OpenRecordset()
    
    i = 1
    j = 10000
    
    Do While Not rst.EOF
    
        fileName = "导出数据_" & i & ".xlsx"
        folderPath = "C:\导出数据"
        
        '创建新文件夹
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set folder = fso.CreateFolder(folderPath)
        
        '将数据导出到Excel文件中
        rowCount = rst.RecordCount
        If rowCount < j Then
            j = rowCount
        End If
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "导出数据", folderPath & "\" & fileName, True, "Sheet1!A1:Z" & j
        
        '保存Excel文件
        Set folder = fso.GetFolder(folderPath)
        For Each file In folder.Files
            If file.Name = fileName Then
                k = k + 1
                file.Name = "导出数据_" & k & ".xlsx"
            End If
        Next file
        
        rst.Move j
        i = i + 1
    
    Loop
    
    rst.Close
    qdf.Close
    db.Close
    
    Set rst = Nothing
    Set qdf = Nothing
    Set db = Nothing
    
    MsgBox "数据已成功导出！", vbInformation, "导出数据"
    
End Sub

在此示例代码中，“导出数据”是查询的名称，“Sheet1!A1:Z10000”是要导出的数据范围。在代码中，我们将每个Excel文件存储在C:\导出数据文件夹中，并以“导出数据_1.xlsx”，“导出数据_2.xlsx”等命名。您可以根据自己的需要更改这些设置。