将Access表导出到Excel，但将列中的不同值拆分为不同的工作表

，可以通过以下步骤实现：

打开Access数据库，选择要导出的表。
在Access中，选择“外部数据”选项卡，然后点击“Excel”图标。
在“导出到Excel”对话框中，选择要导出的表和工作表的名称。
在“导出到Excel”对话框的“导出操作”部分，选择“导出数据”选项。
在“导出到Excel”对话框的“导出格式”部分，选择“Excel工作簿”选项。
点击“确定”按钮，Access将会将表导出到Excel文件中。

要将列中的不同值拆分为不同的工作表，可以使用VBA宏来实现。以下是一个示例的VBA代码：

Sub ExportToExcel()
    Dim rs As DAO.Recordset
    Dim ws As Excel.Worksheet
    Dim wb As Excel.Workbook
    Dim columnName As String
    Dim uniqueValues As Collection
    Dim value As Variant
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM YourTableName")
    Set uniqueValues = New Collection
    
    ' 获取列名
    columnName = "YourColumnName"
    
    ' 收集唯一值
    Do Until rs.EOF
        On Error Resume Next
        uniqueValues.Add rs.Fields(columnName).Value, CStr(rs.Fields(columnName).Value)
        On Error GoTo 0
        rs.MoveNext
    Loop
    
    ' 创建新的Excel工作簿
    Set wb = Excel.Application.Workbooks.Add
    Set ws = wb.Sheets(1)
    
    ' 在每个工作表中导出数据
    For Each value In uniqueValues
        rs.MoveFirst
        ws.Name = value
        
        ' 导出数据到当前工作表
        ws.Range("A1").CopyFromRecordset rs
        
        ' 创建新的工作表
        Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    Next value
    
    ' 删除最后一个空白工作表
    Application.DisplayAlerts = False
    wb.Sheets(wb.Sheets.Count).Delete
    Application.DisplayAlerts = True
    
    ' 保存Excel文件
    wb.SaveAs "YourFilePath\YourFileName.xlsx"
    
    ' 关闭Excel对象
    wb.Close
    Set wb = Nothing
    
    ' 清理资源
    rs.Close
    Set rs = Nothing
    Set uniqueValues = Nothing
End Sub

这段VBA代码将会将指定表中的数据按照指定列的不同值拆分为不同的工作表，并将结果导出到一个新的Excel文件中。你需要将代码中的"YourTableName"替换为你要导出的表的名称，"YourColumnName"替换为你要拆分的列的名称，"YourFilePath\YourFileName.xlsx"替换为你要保存的Excel文件的路径和文件名。

这是一个基本的实现方法，你可以根据实际需求进行修改和优化。