从MS Access和SQL Server数据源导出Excel时将DateTime转为Date

排查方向 #

• 检查Access链接表的字段映射：打开Access中连接SQL Server的链接表设计视图，确认原SQL Server的date类型字段在Access中被识别为Date/Time类型后，是否自动附加了00:00:00的时间戳。
• 审查交叉表查询的字段定义：查看交叉表查询中日期字段的表达式，是否使用了会保留时间部分的转换函数，或是直接引用链接表字段未做处理。
• 区分数据类型与显示格式：通过Excel单元格编辑栏判断问题本质——若编辑栏显示2024/05/20 00:00:00则是数据本身带时间；若仅显示日期则是单元格格式设置导致的显示问题。

解决方案 #

1. 在交叉表查询中显式提取纯日期 #

修改查询中的日期字段表达式，用Access的Date()函数强制剥离时间部分：

TRANSFORM Sum([Amount]) AS TotalAmount
SELECT Date([OrderDate]) AS OrderDate  -- 提取纯日期
FROM Linked_SQL_Table
GROUP BY Date([OrderDate])
PIVOT [Category];

此方法让查询返回的日期字段仅保留日期部分，导出到Excel时不会携带时间戳。

2. 调整Access链接表的字段格式 #

打开链接表的设计视图，找到目标日期字段，将其格式属性设置为短日期（或自定义格式yyyy/mm/dd）。虽然链接表无法修改字段数据类型，但设置格式后，导出时Access会按指定格式输出数据，避免附加时间。

3. 导出时指定Excel字段类型 #

使用Access导出向导时，点击高级按钮，在弹出的对话框中为日期字段指定数据类型为日期（而非日期/时间），确认后完成导出。

4. 用VBA控制导出过程（适合批量/自动化场景） #

编写VBA代码，先转换查询结果的日期字段，再导出到Excel并设置单元格格式：

Sub ExportQueryToExcel()
    Dim rs As Recordset
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
    Dim i As Integer
    
    ' 打开交叉表查询记录集
    Set rs = CurrentDb.OpenRecordset("Your_Crosstab_Query")
    
    ' 启动Excel并创建工作簿
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlWB = xlApp.Workbooks.Add
    Set xlWS = xlWB.Sheets(1)
    
    ' 写入表头并设置日期列格式
    For i = 0 To rs.Fields.Count - 1
        xlWS.Cells(1, i + 1).Value = rs.Fields(i).Name
        If rs.Fields(i).Type = dbDate Then
            xlWS.Columns(i + 1).NumberFormat = "yyyy/mm/dd"
        End If
    Next i
    
    ' 写入数据并再次确认格式
    xlWS.Range("A2").CopyFromRecordset rs
    For i = 0 To rs.Fields.Count - 1
        If rs.Fields(i).Type = dbDate Then
            xlWS.Columns(i + 1).NumberFormat = "yyyy/mm/dd"
        End If
    Next i
    
    ' 清理对象
    rs.Close
    Set rs = Nothing
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

内容的提问来源于stack exchange，提问作者Josh F