VBS转换XLSX为CSV后Python读取数字变字符串的调整方案问询

问题根因 #

原VBS调用Excel内置SaveAs方法导出CSV时，默认导出的是单元格格式化后的显示文本，不是单元格实际存储的原始数值，因此货币符号、千位分隔符、显示小数截断都会被写入CSV，导致Python读取时识别为字符串类型，丢失部分精度。

方案1：修改VBS导出原始数值（推荐） #

以下是调整后的VBS代码，直接读取单元格无格式原始值写入CSV，完全避免格式干扰：

if WScript.Arguments.Count < 2 Then
    WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv"
    Wscript.Quit
End If
Dim oExcel, oBook, oSheet, fso, ts, row, col, cellValue
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
' 默认处理第一个工作表，需处理其他工作表可修改此处索引
Set oSheet = oBook.Worksheets(1)

' 创建文件流写CSV
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile(WScript.Arguments.Item(1), True, -1) ' -1为UTF-8编码

For row = 1 To oSheet.UsedRange.Rows.Count
    Dim lineContent
    lineContent = ""
    For col = 1 To oSheet.UsedRange.Columns.Count
        cellValue = oSheet.Cells(row, col).Value2 ' 读取无格式原始值
        ' 处理逗号、换行等特殊字符，符合CSV规范
        If InStr(cellValue, ",") > 0 Or InStr(cellValue, """") > 0 Or InStr(cellValue, vbCrLf) > 0 Then
            cellValue = """" & Replace(cellValue, """", """""") & """"
        End If
        If col > 1 Then lineContent = lineContent & ","
        lineContent = lineContent & cellValue
    Next
    ts.WriteLine lineContent
Next

ts.Close
oBook.Close False
oExcel.Quit
Set oExcel = Nothing
Set fso = Nothing
WScript.Echo "Done"

调整说明 #

• 抛弃Excel原生CSV导出逻辑，逐单元格读取Value2属性，该属性返回的是单元格存储的无格式原始数值，不会携带货币符号、千位分隔符等格式内容
• 自动处理CSV特殊字符转义，避免字段错位
• 默认导出UTF-8编码的CSV，兼容Python读取编码问题

方案2：Python端兼容处理（无需修改VBS） #

如果不需要调整现有转换流程，可在Python读取时直接转换货币格式字符串为数值，pandas环境示例如下：

import pandas as pd
import re

def currency_to_num(s):
    # 提取字符串中的数字、小数点、负号
    num_str = re.sub(r'[^\d\.-]', '', s)
    return float(num_str) if num_str else None

# 读取时对目标列做转换
df = pd.read_csv('你的文件路径.csv', converters={'目标列名': currency_to_num})

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