如何让SQL Server的SELECT *自动转所有列为文本并适配Excel显示？

一、SQL Server端自动转换所有列为文本 #

SQL Server不支持直接SELECT CONVERT(varchar, *)的写法，但可以通过动态SQL自动生成所有列的转换语句，匹配SSMS默认显示格式：

动态SQL示例 #

DECLARE @TableName NVARCHAR(128) = N'Company';
DECLARE @SQL NVARCHAR(MAX) = N'SELECT ';

SELECT @SQL += 
    CASE 
        -- 日期时间类型用121格式匹配SSMS默认显示（yyyy-mm-dd hh:mi:ss.mmm）
        WHEN DATA_TYPE IN ('datetime', 'datetime2', 'smalldatetime', 'datetimeoffset') 
            THEN N'CONVERT(NVARCHAR(23), ' + QUOTENAME(COLUMN_NAME) + N', 121) AS ' + QUOTENAME(COLUMN_NAME) + N', '
        -- 数值类型保留默认转换逻辑
        WHEN DATA_TYPE IN ('int', 'bigint', 'smallint', 'tinyint', 'decimal', 'numeric', 'float', 'real')
            THEN N'CONVERT(NVARCHAR(MAX), ' + QUOTENAME(COLUMN_NAME) + N') AS ' + QUOTENAME(COLUMN_NAME) + N', '
        -- 其他类型直接转文本
        ELSE N'CONVERT(NVARCHAR(MAX), ' + QUOTENAME(COLUMN_NAME) + N') AS ' + QUOTENAME(COLUMN_NAME) + N', '
    END
FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = @TableName
ORDER BY ORDINAL_POSITION;

-- 移除末尾多余逗号
SET @SQL = LEFT(@SQL, LEN(@SQL) - 1);
SET @SQL += N' FROM ' + QUOTENAME(@TableName);

EXEC sp_executesql @SQL;

这段代码会自动遍历目标表的所有列，根据数据类型生成对应转换语句，确保输出格式和SSMS默认显示完全一致。

二、Excel VBA端优化：强制以SSMS格式写入文本 #

现有VBA代码的parseMethod=2用CStr转换，但CStr对日期时间的转换逻辑和SSMS不一致，建议完善parseMethod=3的自定义转换逻辑，同时强制单元格为文本格式：

修改后的VBA代码（完善Case 3分支） #

Case 3
    ' 自定义类型转换，严格匹配SSMS显示格式
    Set flds = rs.fields
    ' 提前将数据区域设置为文本格式，避免Excel自动转换
    destCell.Offset(1, 0).Resize(sqlRowCnt, sqlColCnt).NumberFormat = "@"
    For rowIdx = 1 To sqlRowCnt ' 偏移1行跳过表头
        For colIdx = 0 To sqlColCnt - 1
            Set fld = flds.item(colIdx)
            var = fld.Value
            If Not VBA.IsNull(var) Then
                Set cel = destCell.Offset(rowIdx, colIdx)
                vt = fld.type
                Select Case vt
                    Case DataTypeEnum.adVarWChar, DataTypeEnum.adWChar, DataTypeEnum.adChar, DataTypeEnum.adVarChar
                        str = VBA.CStr(var)
                    Case DataTypeEnum.adDate, DataTypeEnum.adDBTime, DataTypeEnum.adDBTimeStamp
                        ' 完全匹配SSMS的datetime显示格式：yyyy-mm-dd hh:mm:ss.000
                        str = VBA.Format(var, "yyyy-mm-dd hh:mm:ss.000")
                    Case DataTypeEnum.adInteger, DataTypeEnum.adBigInt, DataTypeEnum.adSmallInt, DataTypeEnum.adTinyInt
                        str = VBA.CStr(var)
                    Case DataTypeEnum.adDecimal, DataTypeEnum.adNumeric, DataTypeEnum.adDouble, DataTypeEnum.adSingle
                        str = VBA.CStr(var)
                    ' 其他数据类型可按需扩展转换逻辑
                    Case Else
                        str = VBA.CStr(var)
                End Select
                cel.Value = str
            End If
        Next
        DoEvents ' 防止Excel假死
        rs.MoveNext
    Next

核心优化点 #

• 提前锁定文本格式：在写入数据前，将目标区域单元格格式设为@（纯文本），从根源避免Excel自动转换数据类型
• 定制日期转换规则：针对日期时间类型，用Format函数生成和SSMS完全一致的格式字符串
• 分类型处理：针对不同数据类型定制转换逻辑，确保输出格式统一

三、解决SSMS复制到Excel的格式差异问题 #

SSMS复制时会携带数据类型元信息，即使Excel单元格设为文本，粘贴时仍会自动转换。解决方法：

• 粘贴时选择选择性粘贴 → 文本
• 或者在SSMS中先将查询结果导出为文本文件，再导入Excel

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