VBA打开含逗号数值的XLS文件时，带逗号数值被识别为文本触发格式警告

这个导出的所谓XLS文件本质是带定界符的纯文本内容，并非真正的BIFF格式XLS二进制工作簿，只是文件后缀被手动改成了.XLS，两种打开方式的解析逻辑差异直接导致了异常：

• 手动双击打开时，Excel会自动探测文件的真实文本结构，触发内置的文本导入流程：自动剥离值两侧的双引号包裹，按照系统区域规则（逗号作为小数分隔符）正确识别数值类型，因此不会弹出「单元格内数字为文本格式」的警告
• VBA调用Workbooks.Open直接打开时，默认按照标准二进制XLS的规则解析文件，完全跳过文本结构探测逻辑，把整段带引号的原始文本原封不动写入单元格，才会触发格式警告
• 之前尝试的三类常规转换方案失效，核心原因是单元格实际存储的是带双引号的文本值（比如实际内容为"7,98"，而非肉眼看到的7.98），普通的单元格值重赋值、CDbl强转、默认参数下的分列操作，都没有处理“剥离两侧引号、将逗号识别为小数分隔符”的关键逻辑，因此无法生效

方案1：从打开环节修正解析逻辑（根源解决，无后续转换成本） #

修改原VBA打开代码，显式指定文本解析规则，完全复刻手动双击时的处理流程，从源头避免格式异常：

Dim WorkBookImport As Workbook
Dim FilePath As Variant
FilePath = Application.GetOpenFilename()
If FilePath <> False Then
    Set WorkBookImport = Workbooks.Open( _
        Filename:=FilePath, _
        Format:=xlDelimited, _ ' 强制按定界符文本格式解析
        Separator:=" ", _ ' 匹配原文件的空格分隔符
        TextQualifier:=xlDoubleQuote, _ ' 自动剥离值两侧的双引号
        DecimalSeparator:=",", _ ' 指定逗号为小数分隔符，正确识别数值
        ThousandsSeparator:="." _ ' 匹配导出文件的千位分隔符规则
    )
End If

这个方案打开后的文件格式和手动双击打开的效果完全一致，不会触发格式警告，也不需要额外做后续的数值转换。

方案2：针对已打开的工作簿做批量格式修正 #

如果已经通过默认参数打开了文件，可以通过带正确参数的分列操作完成格式转换，之前分列方案失效的原因是没有指定关键解析参数，正确的代码示例：

' 对第三列（存储数值的目标列）执行格式修正
WorkBookImport.Sheets(1).Range("C:C").TextToColumns _
    Destination:=WorkBookImport.Sheets(1).Range("C1"), _
    ConsecutiveDelimiter:=True, _ ' 自动合并连续的空格分隔符
    TextQualifier:=xlDoubleQuote, _ ' 自动剥离双引号包裹
    DecimalSeparator:=',' ' 指定逗号为小数分隔符，避免拆列

• 不要依赖VBA环境下的默认文本识别逻辑，该逻辑和用户手动交互打开时的自动探测规则存在差异，必须显式指定文本限定符、分隔符、小数分隔符参数，才能得到和手动打开一致的效果
• 执行分列操作时如果没有显式指定小数分隔符，Excel会默认把逗号当成分列符，把原本的单个数值拆成两列，反而引入新的格式错误

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