使用Excel.Interop转换UTF-8格式.csv/.txt为.xlsx时特殊字符乱码问题

首先得说，你遇到的乱码问题根源很明确：Workbooks.Open默认的编码匹配逻辑不靠谱——当你的文件包含ü、ä、ö这类西欧特殊字符时，Excel会根据系统区域自动猜测编码，一旦猜错就会把这些字符转换成乱码。下面给你两个实用的解决方案：

方案一：用OpenText指定编码打开（推荐） #

放弃Workbooks.Open，改用Workbooks.OpenText方法，它可以明确指定文件编码，完美适配特殊字符：

Dim Exl As New Excel.Application()
' 用OpenText打开，指定编码为UTF-8（如果是旧版Windows西欧编码，把65001换成1252）
Exl.Workbooks.OpenText( _
    Filename:="C:\MyFile.txt", _
    Origin:=65001, ' 65001对应UTF-8，1252对应Windows-1252（德语常用旧编码）
    StartRow:=1, _
    DataType:=Excel.XlTextParsingType.xlDelimited, _
    TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _
    Comma:=True ' CSV用逗号分隔，TXT如果是制表符就改成Tab:=True
)
Dim wb1 As Excel.Workbook = Exl.ActiveWorkbook
wb1.SaveAs("C:\MyFile.xlsx", FileFormat:=Excel.XlFileFormat.xlOpenXMLWorkbook)
wb1.Close()
Exl.Quit()

常用编码对应值参考： #

• 65001：UTF-8（现代文件首选）
• 1252：Windows-1252（德语、西欧语言旧文件常用）
• 28591：ISO-8859-1（另一种西欧标准编码）

你可以根据自己文件的实际编码选择对应数值。

方案二：手动读取内容再写入Excel（适合复杂格式） #

如果OpenText还是搞不定（比如文件格式不规则），可以自己用正确编码读取文件内容，再逐行写入Excel：

Dim Exl As New Excel.Application()
Dim wb1 As Excel.Workbook = Exl.Workbooks.Add()
Dim ws1 As Excel.Worksheet = wb1.ActiveSheet

' 用UTF-8编码读取文件内容
Dim fileContent As String = System.IO.File.ReadAllText("C:\MyFile.txt", System.Text.Encoding.UTF8)
' 按行分割内容
Dim rows() As String = fileContent.Split(vbCrLf)

' 逐行逐列写入Excel
For i As Integer = 0 To rows.Length - 1
    If String.IsNullOrEmpty(rows(i)) Then Continue For
    ' CSV用逗号分割列，TXT请替换成对应分隔符（比如制表符vbTab）
    Dim cols() As String = rows(i).Split(","c)
    For j As Integer = 0 To cols.Length - 1
        ws1.Cells(i + 1, j + 1).Value = cols(j)
    Next
Next

wb1.SaveAs("C:\MyFile.xlsx", FileFormat:=Excel.XlFileFormat.xlOpenXMLWorkbook)
wb1.Close()
Exl.Quit()

这个方法完全由你掌控解析逻辑，适合格式奇葩的文件，但大文件的处理效率会比OpenText低一些。

补充：为什么原来的代码会乱码？ #

你之前用的Workbooks.Open方法，Format:=4只是告诉Excel这是个分隔符格式的文件，但没指定编码。Excel会默认用系统区域的编码去解析——比如你的系统是中文区域，就会用GB2312编码，德语特殊字符自然就被解析成乱码了。

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