将iPad带引号文本导入Access数据库时字符编码异常求助

问题分析 #

你遇到的乱码是典型的UTF-8带BOM编码不兼容问题：iPad导出的文本或经iCloud同步后的文件默认带UTF-8 BOM（字节顺序标记），但Access的DoCmd.TransferText使用代码页65001时，仅能识别不带BOM的UTF-8，导致编码被错误解析为Windows-1252，出现’、“这类乱码字符。

解决方案 #

以下两种VBA预处理方案可彻底解决该问题：

方案1：移除UTF-8 BOM后导入

通过VBA读取文件并移除开头的BOM标记，再保存为不带BOM的UTF-8文件后导入：

Sub RemoveUTF8BOMAndImport(filePath As String, tableName As String, importSpec As String)
    Dim fs As Object, ts As Object
    Dim fileContent As String
    Dim bom As String
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    ' 以Unicode模式读取文件
    Set ts = fs.OpenTextFile(filePath, 1, False, -1)
    fileContent = ts.ReadAll
    ts.Close
    
    ' 检查并移除UTF-8 BOM（对应Unicode字符ChrW(&HFEFF)）
    bom = ChrW(&HFEFF)
    If Left(fileContent, 1) = bom Then
        fileContent = Mid(fileContent, 2)
    End If
    
    ' 保存为不带BOM的UTF-8临时文件
    Set ts = fs.CreateTextFile(filePath & "_temp.txt", True, False)
    ts.Write fileContent
    ts.Close
    
    ' 导入处理后的文件
    DoCmd.TransferText acImportFixed, importSpec, tableName, filePath & "_temp.txt", 0, , 65001
    
    ' 清理临时文件
    fs.DeleteFile filePath & "_temp.txt"
    Set fs = Nothing
End Sub

' 调用示例
RemoveUTF8BOMAndImport "C:\Users\josmi\iCloudDrive\Events\" & txt_fileName, Txt_tableName, "TestSpec"

方案2：用ADODB.Stream转码后导入

利用ADODB流对象正确识别带BOM的UTF-8，转存为Access原生支持的UTF-16LE编码后导入：

Sub ImportUTF8WithBOM(filePath As String, tableName As String, importSpec As String)
    Dim stream As Object
    Dim tempPath As String
    
    Set stream = CreateObject("ADODB.Stream")
    tempPath = Environ("TEMP") & "\temp_import.txt"
    
    ' 读取带BOM的UTF-8文件
    stream.Charset = "UTF-8"
    stream.Open
    stream.LoadFromFile filePath
    ' 转存为UTF-16LE编码（Access直接支持）
    stream.SaveToFile tempPath, 2 ' adSaveCreateOverWrite
    stream.Close
    
    ' 导入转码后的文件，代码页指定为1200（UTF-16LE）
    DoCmd.TransferText acImportFixed, importSpec, tableName, tempPath, 0, , 1200
    
    ' 清理临时文件
    Kill tempPath
    Set stream = Nothing
End Sub

' 调用示例
ImportUTF8WithBOM "C:\Users\josmi\iCloudDrive\Events\" & txt_fileName, Txt_tableName, "TestSpec"

注意事项 #

• 两种方案都无需修改原始文件，通过临时文件中转处理，避免数据风险；
• 若导入规格（TestSpec）中定义了字段长度，需确保转码后的文本长度符合要求，避免截断。

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