我太懂这种每天粘数据格式炸锅的痛苦了！之前也踩过一模一样的坑，给你分享几个我亲测好用的方案，从快速解决到一劳永逸的都有：

别再复制粘贴了！SSMS本身就有靠谱的导出功能，直接绕过格式失真问题：

• 执行完查询后，点击顶部菜单栏的「结果」→「另存为」，选择CSV (逗号分隔)或者Excel (*.xlsx)格式
• 如果选CSV，打开时别直接双击，用Excel的导入向导更稳妥：
  1. 打开Excel，选「数据」→「自文本/CSV」，找到导出的文件
  2. 在导入对话框里选「分隔符」，然后点击「转换数据」进入Power Query编辑器
  3. 在这里把金额列设为「货币」、长字符串列设为「文本」、数字列设为「小数」，再加载到Excel
• 优势：零配置，直接解决所有格式问题，还能保存导入规则下次复用

如果还是习惯复制粘贴的操作流程，改一下SSMS的默认设置就能从根源解决：

1. 打开SSMS，点击「工具」→「选项」→「查询结果」→「SQL Server」→「以网格显示结果」
2. 勾选「复制或保存时保留单元格格式」
3. 再切换到「以文本显示结果」，把「每行最大字符数」调大（比如设为8000），避免长字符串被截断换行
4. 保存设置后，再用「Copy with Headers」粘贴，90%的格式问题都会消失

• 补充：如果还是遇到金额变日期的情况，先把Excel目标列设为「文本」或「货币」格式，再用「选择性粘贴」→「值和数字格式」粘贴

如果必须用VBA，不用每个查询都写新代码！整个通用模板就行，能自动导入数据并设置格式：

Sub ImportSQLResults()
    Dim conn As Object
    Dim rs As Object
    Dim sqlStr As String
    Dim targetSheet As Worksheet
    Dim targetRange As Range
    Dim i As Integer
    
    ' 自定义目标工作表和起始单元格
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetRange = targetSheet.Range("A1")
    
    ' 输入查询语句（也可以改成从Excel单元格读取，更灵活）
    sqlStr = InputBox("请输入SQL查询语句：")
    If sqlStr = "" Then Exit Sub
    
    ' 建立数据库连接（Windows身份验证用下面的注释行）
    Set conn = CreateObject("ADODB.Connection")
    ' conn.Open "Provider=SQLOLEDB;Data Source=你的服务器名;Initial Catalog=你的数据库名;Integrated Security=SSPI;"
    conn.Open "Provider=SQLOLEDB;Data Source=你的服务器名;Initial Catalog=你的数据库名;User ID=你的账号;Password=你的密码;"
    
    ' 执行查询
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sqlStr, conn
    
    ' 写入表头并设置格式
    For i = 0 To rs.Fields.Count - 1
        targetRange.Offset(0, i).Value = rs.Fields(i).Name
        ' 根据字段类型自动设置格式
        Select Case rs.Fields(i).Type
            Case 5, 6 ' 数字/货币类型
                targetRange.Offset(0, i).NumberFormat = "$#,##0.00"
            Case 200 ' 长文本类型
                targetRange.Offset(0, i).NumberFormat = "@"
            Case Else
                targetRange.Offset(0, i).NumberFormat = "General"
        End Select
    Next i
    
    ' 写入数据
    targetRange.Offset(1, 0).CopyFromRecordset rs
    
    ' 自动调整列宽
    targetSheet.UsedRange.EntireColumn.AutoFit
    
    ' 清理资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    
    MsgBox "数据导入完成！"
End Sub

• 用法：把代码粘贴到Excel的VBA编辑器，修改服务器、数据库等连接信息（优先用Windows身份验证的连接字符串，不用输密码更安全）
• 进阶优化：可以把查询语句存在Excel的某个单元格（比如A1），然后把sqlStr = InputBox(...)改成sqlStr = targetSheet.Range("A1").Value，这样不用每次弹窗输入，直接改单元格内容就行

如果每天要跑固定的几个查询，Power Query绝对是天花板级的解决方案，一次配置好，下次刷新就行：

1. 打开Excel，选「数据」→「获取数据」→「从数据库」→「从SQL Server数据库」
2. 输入服务器名和数据库名，选择「导入」，要么直接选表，要么在「高级选项」里输入自定义查询
3. 进入Power Query编辑器后，批量设置列格式：金额列设为「货币」、长字符串设为「文本」、数字列设为「小数」
4. 点击「关闭并上载」，把数据加载到Excel
5. 下次更新数据只需要右键点击数据区域→「刷新」，所有格式都会完美保留

• 优势：完全可视化操作，不用写代码，还能设置定时自动刷新，甚至可以把多个查询整合到一个Excel文件里，一键刷新所有数据

总结一下选择建议： #

• 临时应急：方案1或方案2最快
• 偶尔需要VBA：方案3的通用模板足够用
• 长期固定查询：方案4的Power Query最省心，一劳永逸

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