帮我优化以下代码并以每份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\流水分割";

可以将该SQL语句封装成存储过程，然后在存储过程中使用游标，每次取出10000条记录，并将这些记录导出到EXCEL文件中。具体实现步骤如下：

1. 创建一个存储过程，输入参数为导出文件夹路径和文件名前缀，例如：

CREATE PROCEDURE export_data_to_excel 
    @folder_path VARCHAR(100),
    @file_prefix VARCHAR(50)
AS
BEGIN
    ...
END

2. 在存储过程中定义一个游标，执行该SQL语句，并每次取出10000条记录：

DECLARE @sql NVARCHAR(MAX) = N'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))'

DECLARE @cursor CURSOR
SET @cursor = CURSOR FOR 
    SELECT ROW_NUMBER() OVER (ORDER BY 录音流水号) AS row_number, 录音流水号, 区域
    FROM (
        SELECT TOP 10000 *
        FROM (
            SELECT ROW_NUMBER() OVER (ORDER BY 接触清单.呼叫流水号) AS row_number, 接触清单.呼叫流水号 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))
        ) AS sub_query
        WHERE row_number > @current_row_number
        ORDER BY 录音流水号
    ) AS sub_query2

3. 定义一个变量来存储当前取数据的行数，初始值为0：

DECLARE @current_row_number INT = 0

4. 循环游标，每次取出10000条记录，将这些记录导出到EXCEL文件中。导出的文件名格式为“文件名前缀_行号.xlsx”。

OPEN @cursor
FETCH NEXT FROM @cursor INTO @current_row_number, @录音流水号, @区域

WHILE @@FETCH_STATUS = 0
BEGIN
    IF @current_row_number % 10000 = 1 -- 每10000行生成一个新的文件
    BEGIN
        DECLARE @file_name VARCHAR(100) = @file_prefix + '_' + CAST(@current_row_number AS VARCHAR) + '.xlsx'
        DECLARE @full_path VARCHAR(100) = @folder_path + '\' + @file_name
        
        -- 导出数据到EXCEL文件中
        EXEC sp_export_data_to_excel @full_path, @sql
    END
    
    FETCH NEXT FROM @cursor INTO @current_row_number, @录音流水号, @区域
END

CLOSE @cursor
DEALLOCATE @cursor

5. 在存储过程中定义一个导出数据到EXCEL文件的过程，使用OPENROWSET和Microsoft.ACE.OLEDB.12.0提供程序将数据导出到EXCEL文件中：

CREATE PROCEDURE sp_export_data_to_excel 
    @file_path VARCHAR(100),
    @sql NVARCHAR(MAX)
AS
BEGIN
    DECLARE @excel_query VARCHAR(MAX)
    SET @excel_query = 'SELECT * FROM OPENROWSET(''Microsoft.ACE.OLEDB.12.0'', ''Excel 12.0;Database=' + @file_path + ';HDR=YES;IMEX=1'', ' + '''' + @sql + ''')'
    
    EXECUTE sp_executesql @excel_query
END

最后，调用存储过程，传入导出文件夹路径和文件名前缀：

EXECUTE export_data_to_excel 'C:\Users\icd\Desktop', 'export_data'