如何在VBA中打开用不正确的字符编码编写的Excel文件

Question

我使用文本编辑器阅读 Excel 2003 文件来查看一些标记语言。 当我在 Excel 中打开该文件时，它显示不正确的字符。检查文件后，我发现编码是 Windows 1252 或类似的编码。如果我手动将其替换为 UTF-8，我的文件可以正常打开。好的，到目前为止一切顺利，我可以手动纠正这个问题。

现在的技巧是这个文件是自动生成的，我需要使用桌面上有限的工具（没有 perl 或其他脚本语言）自动处理它（没有人工交互）。

有没有简单的方法可以使用正确的编码在 VBA 中打开此 XL 文件（并忽略文件中指定的编码）？

请注意，Workbook.ReloadAs 对我不起作用，它会在错误时退出（并且需要手动操作，因为文件已经打开）。

或者是纠正文件以经历一些麻烦的唯一方法？要么：输入文本，检查编码字符串行，如果需要则替换，将每一行写入新文件...；或者导出到csv，然后使用特定编码再次从csv导入，另存为xls？

任何提示表示赞赏。

编辑：

ADODB 对我不起作用（XL 表示用户定义类型，而不是定义）。

我通过解决方法解决了我的问题：

name2 = Replace(name, ".xls", ".txt")
Set wb = Workbooks.Open(name, True, True) ' open read-only
Set ws = wb.Worksheets(1)
ws.SaveAs FileName:=name2, FileFormat:=xlCSV
wb.Close False                    ' close workbook without saving changes
Set wb = Nothing                  ' free memory
Workbooks.OpenText FileName:=name2, _
                   Origin:=65001, _
                   DataType:=xlDelimited, _
                   Comma:=True

Answer 1

嗯，我认为您可以从另一个工作簿中完成。添加对 AcitiveX 数据对象的引用，然后添加此子程序：

Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8")

    Dim stream As ADODB.stream
    Set stream = New ADODB.stream

    With stream
        .Open
        .LoadFromFile sPath ' Loads a File
        .Charset = SetChar  ' sets stream encoding (UTF-8)
        .SaveToFile sPath, adSaveCreateOverWrite
        .Close
    End With

    Set stream = Nothing
    Workbooks.Open sPath
End Sub

然后使用关闭编码的文件路径调用此子程序。