TXT文档导入单元格汉字变乱码

xiaochaoniunai

   大家好，
  TXT文档导入单元格汉字变乱码，TXT文档一个是UTF-8，一个是ANSI，UTF-8导入汉字正常，ANSI格式导入汉字变乱码，请大神帮忙解决下，谢谢。

xiaochaoniunai

有大神帮忙解决一下么，感谢 。

gwjkkkkk

可提前通过函数对文本文件进行编码判断，再做后续处理
Function GetFileCode(ByVal FilePath As String) '判断txt文件的编码
    Dim intFile As Integer
    Dim arrTmp(2) As Byte
    Dim i As Long
    intFile = FreeFile
    Open FilePath For Binary Access Read As #intFile
    Get #intFile, 1, arrTmp
    Close #intFile
    Select Case arrTmp(0) & arrTmp(1)
        Case "255254"
            GetFileCode = "Unicode"
        Case "254255"
            GetFileCode = "Unicode"
        Case "239187"
            GetFileCode = "UTF-8"
        Case Else
            GetFileCode = "ANSI or Other"
    End Select
End Function

你地铁图

直接改后缀为csv

xiaochaoniunai

gwjkkkkk 发表于 2023-4-19 22:14
可提前通过函数对文本文件进行编码判断，再做后续处理
Function GetFileCode(ByVal FilePath As String) ' ...

感谢，辛苦了，这是函数，如何加到代码当中？直接复制粘贴还是要先调用？

xiaochaoniunai

你地铁图 发表于 2023-4-19 22:21
直接改后缀为csv

要读取进EXCEL，不是导出

xiaochaoniunai

gwjkkkkk 发表于 2023-4-19 22:14
可提前通过函数对文本文件进行编码判断，再做后续处理
Function GetFileCode(ByVal FilePath As String) ' ...

方便写到附件当中吗？ 谢谢

你地铁图

xiaochaoniunai 发表于 2023-4-20 09:45
要读取进EXCEL，不是导出

改为csv 打开，再处理成要的格式然后复制粘贴不就好了

perfect131

这里的 ANSI 不是 UTF-8 而是 系统默认编码，所以解码会出错
先判断编码 ，按照正确编码 解码就可以

编码判断：https://club.excelhome.net/thread-1646478-1-1.html

xiaochaoniunai

perfect131 发表于 2023-4-20 10:40
这里的 ANSI 不是 UTF-8 而是 系统默认编码，所以解码会出错
先判断编码 ，按照正确编码 解码就可以

非常感谢，已经测试，完美解决了，感谢您。