如何通过VBA从SQL Server获取日期格式而非字符串格式的日期数据？

这个场景我之前处理过几次，核心是VBA和SQL Server之间的数据类型映射或者连接配置的小问题，给你几个实用的解决思路：

方法1：在SQL查询中显式指定日期类型返回 #

直接在查询里把日期列转换为SQL Server的标准日期类型，让ADODB记录集能正确识别为日期格式：

SELECT CAST(YourDateColumn AS DATETIME) AS FormattedDate
FROM YourTargetTable

如果需要更灵活的格式控制，也可以用CONVERT函数：

SELECT CONVERT(DATETIME, YourDateColumn, 120) AS FormattedDate
FROM YourTargetTable

这样在VBA里读取rs("FormattedDate")时，就能直接拿到Date类型的数据，不需要额外转换。

方法2：在VBA中手动转换字符串为日期 #

如果不想修改SQL查询，可以用VBA内置的CDate()函数把字符串转成日期类型：

Dim rs As ADODB.Recordset
Dim targetDate As Date

' 假设已经通过ADO连接获取到记录集
Set rs = YourADOConnection.Execute("SELECT YourDateColumn FROM YourTargetTable")

If Not rs.EOF Then
    ' 转换字符串为日期
    targetDate = CDate(rs("YourDateColumn"))
End If

⚠️ 注意：这个方法依赖系统的区域设置，如果SQL返回的日期格式和VBA所在系统的日期格式不匹配，可能会报错。遇到这种情况，可以先统一格式再转换：

targetDate = CDate(Format(rs("YourDateColumn"), "yyyy-mm-dd hh:mm:ss"))

方法3：调整ADODB连接字符串的配置 #

有时候是连接字符串的参数导致日期类型被转成字符串，你可以添加DataTypeCompatibility=80参数，强制SQL Server以兼容模式返回数据类型，让VBA能正确识别日期：

Dim connString As String
connString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
             "Initial Catalog=YourDatabaseName;Data Source=YourServerName;" & _
             "DataTypeCompatibility=80"

这个参数会让SQL Server的日期类型直接映射到VBA的Date类型，避免被转成字符串。

补充说明 #

SQL Server里带默认值的日期列本身是日期类型，之所以VBA拿到字符串，大多是因为OLEDB/ODBC驱动在数据传输时的自动类型转换，或者记录集的默认处理方式。上面的方法都能解决这个问题，你可以根据自己的场景选最方便的。

内容的提问来源于stack exchange，提问作者Raj Shekhar Singh