通过ODBC从HANA DB导入Excel时保留原格式的方案问询

我之前也碰到过一模一样的问题——ODBC导入默认生成表格对象，确实会把原有的条件格式、数据验证列表这些自定义设置全部冲掉，下面几个亲测有效的方法，你可以根据自己的使用场景来选：

方法1：用Power Query灵活控制数据导入（非编程友好） #

Power Query是Excel自带的工具，能帮你绕开“强制创建表格”的坑：

• 打开你的目标Excel文件，点击「数据」选项卡 → 获取数据 → 从其他源 → 从ODBC
• 在弹出窗口里选择你的HANA ODBC数据源，输入凭证完成连接
• 进入Power Query编辑器后，调整好需要导入的数据集（比如筛选需要补全enrichment的记录），然后点击「关闭并上载」旁边的下拉箭头，选择「仅创建连接」
• 回到目标工作表，选中要填充数据的起始单元格，再点击「数据」选项卡 → 现有连接 → 选中刚才创建的HANA连接 → 点击「打开」
• 在「导入数据」窗口里别选「表」，而是直接在Power Query编辑器里全选数据（Ctrl+A）复制，回到原工作表右键选择「粘贴特殊」→「值」，这样就完美保留原有格式了。

方法2：用VBA脚本自动化导入（适合频繁刷新） #

如果需要定期刷新数据，写个小脚本能彻底解放手动操作：

Sub ImportHANADataAsValues()
    Dim hanaConn As Object
    Dim dataRS As Object
    Dim queryStr As String
    Dim targetCell As Range
    
    ' 设置数据要粘贴的起始位置（根据你的实际工作表调整）
    Set targetCell = ThisWorkbook.Sheets("你的目标工作表名").Range("A2")
    
    ' 建立HANA连接
    Set hanaConn = CreateObject("ADODB.Connection")
    hanaConn.Open "DSN=你的HANA ODBC数据源名;UID=你的用户名;PWD=你的密码"
    
    ' 编写查询语句，筛选需要补全enrichment的新记录
    queryStr = "SELECT * FROM 你的HANA表名 WHERE 你的筛选条件"
    
    ' 执行查询获取结果
    Set dataRS = hanaConn.Execute(queryStr)
    
    ' 将结果以值的形式粘贴到目标区域，不破坏原有格式
    targetCell.CopyFromRecordset dataRS
    
    ' 清理连接资源
    dataRS.Close
    hanaConn.Close
    Set dataRS = Nothing
    Set hanaConn = Nothing
End Sub

• 把代码里的占位符（数据源名、工作表名、查询语句）换成你自己的信息
• 按Alt+F11打开VBA编辑器，插入模块粘贴代码，运行即可。数据会直接以纯值填充，原有的条件格式、数据验证完全不受影响。

方法3：临时工作表中转（手动应急方案） #

如果只是偶尔刷新数据，这个简单粗暴的方法最省事：

• 新建一个空白临时工作表（比如命名为「TempHANAData」）
• 通过ODBC把HANA数据导入到这个临时表（即使生成表格对象也没关系，不影响原工作表）
• 全选临时表的数据（Ctrl+A）复制，回到目标工作表，选中起始单元格右键 →「粘贴特殊」→「值」（或「值和数字格式」，按需选择）
• 用完删掉临时工作表就行，原工作表的格式纹丝不动。

这几个方法都能解决ODBC导入丢格式的问题，我自己日常用Power Query处理灵活需求，用VBA做批量自动化，你可以试试看。

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