帮我优化以下access中执行的代码并以每份10000条记录的方式，以EXECL格式自动命名导出至同一文件夹中。SELECT top 10000 接触清单.呼叫流水号 AS 录音流水号, IIf(IsNull([区域中心]),"",IIf([区域中心] Like "广州" Or [区域中心] Like "汕头" Or [区域中心] Like "梅州","gz","sz")) AS 区域 FROM 接触清单 WHERE (((IIf(IsNull([区域中心]),"",IIf([区域中心] Like "广州" Or [区域中心] Like "汕头" Or [区域中心] Like "梅州","gz","sz"))) Is Not Null) AND ((接触清单.呼叫日期)>=Date()-5)) into "C:\Users\icd\Desktop\流水分割";

可以使用VBA编写Access宏来实现该需求，具体实现步骤如下：

1. 创建一个宏，命名为“export_data_to_excel”，类型为“宏组”，并添加以下两个操作：

- 打开宏命令：打开指定的表格或查询，选择“接触清单”表，执行该SQL查询，并将结果导出到指定的文件夹中，文件名以“导出数据_行号.xlsx”的格式命名。
- 条件执行宏命令：检查是否还有更多的数据需要导出，如果有，则继续执行“export_data_to_excel”宏，否则结束。

2. 在VBA编辑器中创建一个新的模块，编写以下代码：

Option Compare Database
Option Explicit

Dim currentRowNumber As Long

Sub export_data_to_excel()
    Dim folderPath As String
    folderPath = "C:\Users\icd\Desktop\" '指定导出文件夹路径
    
    Dim filePrefix As String
    filePrefix = "导出数据"
    
    Dim sql As String
    sql = "SELECT top 10000 接触清单.呼叫流水号 AS 录音流水号, IIf(IsNull([区域中心]),"""",IIf([区域中心] Like ""广州"" Or [区域中心] Like ""汕头"" Or [区域中心] Like ""梅州"",""gz"",""sz"")) AS 区域 FROM 接触清单 WHERE (((IIf(IsNull([区域中心]),"""",IIf([区域中心] Like ""广州"" Or [区域中心] Like ""汕头"" Or [区域中心] Like ""梅州"",""gz"",""sz""))) Is Not Null) AND ((接触清单.呼叫日期)>=Date()-5))"
    
    Dim fileName As String
    fileName = filePrefix & "_" & currentRowNumber & ".xlsx"
    
    Dim fullFilePath As String
    fullFilePath = folderPath & fileName
    
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "query_name", fullFilePath, True '将查询结果导出到EXCEL文件中
    
    currentRowNumber = currentRowNumber + 10000 '更新当前行数
    
    If Not hasMoreData() Then '检查是否还有更多的数据需要导出
        Exit Sub
    End If
    
    DoCmd.RunMacro "export_data_to_excel" '继续执行导出数据的宏命令
End Sub

Function hasMoreData() As Boolean
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("SELECT TOP 1 接触清单.呼叫流水号 FROM 接触清单 WHERE (((IIf(IsNull([区域中心]),"""",IIf([区域中心] Like ""广州"" Or [区域中心] Like ""汕头"" Or [区域中心] Like ""梅州"",""gz"",""sz""))) Is Not Null) AND ((接触清单.呼叫日期)>=Date()-5)) ORDER BY 接触清单.呼叫流水号 DESC")
    
    If Not rst.EOF Then
        If rst.RecordCount = 1 Then
            Dim lastRowNumber As Long
            lastRowNumber = rst("呼叫流水号").Value
            
            hasMoreData = lastRowNumber > currentRowNumber
        End If
    End If
    
    rst.Close
End Function

3. 将代码中的“query_name”替换为实际的查询名称。

4. 保存并关闭VBA编辑器。

5. 打开“导航窗格”，选择“宏”选项卡，右键单击“export_data_to_excel”宏，选择“设计视图”，然后在“宏设置”对话框中选择“启用步骤按钮”。

6. 点击“运行”按钮，然后按步骤执行导出数据的宏操作，直到所有数据都被导出为止。

注意：为了避免出现“查询太复杂”的错误，你需要在查询设计视图中将SQL语句分解为多个子查询，每个子查询最多返回10000条记录。然后，使用“并排查询”将这些子查询合并为一个查询。最后，将该查询名称替换为上面提到的“query_name”。