通过VBA导入SQL文件时字符串出现异常方块字符求助

我之前也踩过这个坑！你看到的小方块其实是不可打印的控制字符（大概率是换行/回车符），问题出在SQL文件的换行格式和你VBA读取逻辑的不匹配上。

问题原因 #

不同操作系统的换行符标准不一样：

• Windows系统用的是vbCrLf（ASCII 13+10，即回车+换行）
• Unix/Linux用的是vbLf（ASCII 10，仅换行）
• 旧版Mac系统用的是vbCr（ASCII 13，仅回车）

你之前的SQL文件可能是Windows格式，VBA的处理逻辑刚好适配；但这次的SQL文件可能是其他格式，导致这些非Windows标准的换行符没被正确处理，就显示成了小方块。

解决方案 #

根据你的代码片段，我给你几个针对性的修复方案：

1. 统一替换所有换行符

在读取SQL文件内容后，手动替换掉所有类型的换行符（如果需要把SQL转成单行字符串，就替换成空或空格）：

Function ImportSQLText(FileExt, FileSQLName)
    '//需引用Microsoft Scripting Runtime
    '//以及microsoft active x data objects 2.8
    Dim ReadText As String, newLine As String
    Dim fso As FileSystemObject
    Dim ts As TextStream
    
    Set fso = New FileSystemObject
    Set ts = fso.OpenTextFile(FileSQLName, ForReading)
    ReadText = ts.ReadAll
    ts.Close
    
    ' 核心修复：替换所有类型的换行符
    ReadText = Replace(ReadText, vbCrLf, " ") ' 替换Windows换行
    ReadText = Replace(ReadText, vbLf, " ")   ' 替换Unix换行
    ReadText = Replace(ReadText, vbCr, " ")   ' 替换旧Mac换行
    
    ' 如果你不需要空格，直接替换成""即可
    ' ReadText = Replace(Replace(Replace(ReadText, vbCrLf, ""), vbLf, ""), vbCr, "")
    
    ImportSQLText = ReadText
    Set ts = Nothing
    Set fso = Nothing
End Function

2. 用ADODB.Stream读取（适配编码问题）

如果SQL文件是UTF-8带BOM或者其他编码格式，FileSystemObject的ReadAll可能会读入额外的控制字符，改用ADODB.Stream读取更稳定：

Function ImportSQLText(FileExt, FileSQLName)
    '//需引用microsoft active x data objects 2.8
    Dim ReadText As String
    Dim stream As ADODB.Stream
    
    Set stream = New ADODB.Stream
    stream.Charset = "utf-8" ' 根据你的SQL文件编码调整，比如gb2312
    stream.Open
    stream.LoadFromFile FileSQLName
    ReadText = stream.ReadText
    stream.Close
    
    ' 同样处理换行符
    ReadText = Replace(Replace(ReadText, vbLf, " "), vbCr, " ")
    
    ImportSQLText = ReadText
    Set stream = Nothing
End Function

3. 正则表达式批量清除不可打印字符

如果还有其他不可打印字符（比如制表符），可以用正则一次性清除：
先引用Microsoft VBScript Regular Expressions 5.5，然后：

Function ImportSQLText(FileExt, FileSQLName)
    '//需引用Microsoft Scripting Runtime
    '//以及Microsoft VBScript Regular Expressions 5.5
    Dim ReadText As String
    Dim fso As FileSystemObject
    Dim ts As TextStream
    Dim regEx As New RegExp
    
    Set fso = New FileSystemObject
    Set ts = fso.OpenTextFile(FileSQLName, ForReading)
    ReadText = ts.ReadAll
    ts.Close
    
    ' 匹配所有不可打印控制字符（ASCII 0-31、127）
    regEx.Global = True
    regEx.Pattern = "[\x00-\x1F\x7F]"
    ReadText = regEx.Replace(ReadText, " ")
    
    ImportSQLText = ReadText
    Set regEx = Nothing
    Set ts = Nothing
    Set fso = Nothing
End Function

排查小技巧 #

你可以先把读取后的ReadText输出到立即窗口，用Asc函数查看小方块对应的ASCII码：

Debug.Print Asc(Mid(ReadText, 出现小方块的位置, 1))

• 输出10 → 是vbLf（Unix换行）
• 输出13 → 是vbCr（旧Mac换行）
  这样就能精准定位问题啦！

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