vba判断文件编码格式_VBA学堂—无Bom文本编码判断

上一篇文章，介绍了文本编码判断，但这都是基于文本有BOM，如果是遇到没有BOM的文本，显然结果是不正确。所以在上一篇文章的基础上，增加对无BOM文本的判断。要百分百准确判断一个文件的编码是很难的，但是判断文本是否UTF-8编码就相对简单。用正则表达式遍历数据就可以判断，网上也有参考代码。

整理代码如下：

Sub Gc()

Dim myFileName$

myFileName = ThisWorkbook.Path & "\UTF8NoBom.txt"

MsgBox GetCode(myFileName)

End Sub

Function GetCode(ByVal myFileName As String)

Dim i As Long

Dim n As Long

Open myFileName For Binary Access Read As #1

n = LOF(1) - 1

ReDim Tmp(n) As Byte

ReDim tp(n)

Get #1, , Tmp

Close #1

For i = 0 To n

tp(i) = ChrW(Tmp(i)) '返回与ANSI 字符代码相对应的字符

Next

str1 = Tmp(0) & Tmp(1) '前二个

str2 = str1 & Tmp(2) '前三个

str3 = Join(tp, "")

If str1 = "255254" Then

GetCode