求助：VBA移除SAP导出.xls文件双引号时丢失大量数据的解决方法

方法1：Python脚本逐行处理（推荐大文件场景） #

SAP导出的.xls本质大多是制表符分隔的文本文件，未闭合双引号会导致Excel解析时合并多行。Python逐行读取处理能避免丢行，同时精准移除双引号：

1. 将SAP导出的文件重命名为data.txt（方便识别处理）
2. 新建Python文件（如remove_quotes.py），写入以下代码：

with open('data.txt', 'r', encoding='utf-8') as infile, open('cleaned_data.txt', 'w', encoding='utf-8') as outfile:
    for line in infile:
        # 移除所有双引号，保留制表符分隔符
        cleaned_line = line.replace('"', '')
        outfile.write(cleaned_line)

3. 运行脚本，生成的cleaned_data.txt可直接用Excel导入（选择制表符作为分隔符）。

方法2：PowerShell命令行处理 #

适合不想写代码的场景，利用PowerShell逐行替换：
打开PowerShell，切换到文件所在目录，执行命令：

Get-Content .\data.txt | ForEach-Object { $_ -replace '"', '' } | Set-Content .\cleaned_data.txt -Encoding UTF8

该命令逐行读取文件，替换所有双引号后写入新文件，不会破坏列结构或丢失行数据。

方法3：修复VBA代码（解决原脚本丢行问题） #

原VBA丢行大概率是一次性读取文件时，未闭合双引号导致解析错误。改用逐行读取的代码：

Sub RemoveAllQuotes()
    Dim inFile As Integer, outFile As Integer
    Dim lineText As String
    Dim filePath As String, newFilePath As String
    
    filePath = "C:\你的文件路径\data.txt" '替换为实际文件路径
    newFilePath = "C:\你的文件路径\cleaned_data.txt"
    
    inFile = FreeFile()
    Open filePath For Input As #inFile
    outFile = FreeFile()
    Open newFilePath For Output As #outFile
    
    Do Until EOF(inFile)
        Line Input #inFile, lineText
        lineText = Replace(lineText, """", "")
        Print #outFile, lineText
    Loop
    
    Close #inFile
    Close #outFile
    MsgBox "处理完成"
End Sub

注意：先将SAP导出文件转成txt格式再处理，避免Excel格式干扰。

额外提示 #

• 处理前务必备份原文件，防止数据丢失
• 导入Excel时，选择「数据」选项卡的「自文本/CSV」，指定分隔符为制表符，确保列结构正确

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