VBA 判斷一個TXT編碼方式,再建立一個新的文件,複製數據進去

如題,先讀取一個文本文件判斷編碼(Unicode  ANSI),就這兩種編碼
而後將txt導入到excel表中,
最後處理完成,再建立一個相同編碼,不一樣文件名的txt文件,把新數據放進去

 

Sub test()
    TxtPath = "D:\2.txt"
    '導入excel，執行讀取和處理
    ReturnEncoding = GetEncoding(TxtPath)    '獲取編碼
    If ReturnEncoding = "Unicode" Then
        '====="當前文件是Unicode格式的。"========
        '處理後的excel文件直接另存爲"Unicode"編碼文件
        MsgBox "Unicode"
        ElseIf ReturnEncoding = "ANSI" Then
        '===== "當前文件是ANSI格式的。"=========
        '新建txt，系統默認就是ANSI格式的，把excel文件寫入txt
        MsgBox "ANSI"
    End If
End Sub
Public Function GetEncoding(FileName)
    Dim fBytes(1) As Byte
    Open FileName For Binary Access Read As #1
    Get #1, , fBytes(0)
    Get #1, , fBytes(1)
    Close #1
   GetEncoding = IIf(fBytes(0) = &HFF And fBytes(1) = &HFE, "Unicode", "ANSI")
End Function