VBA IDE中导出模块生成的64位字符串每72字符换行问题咨询

嘿，这个问题我之前在处理VBA代码导出导入的时候也碰到过，咱们来拆解一下到底是怎么回事～

为什么会出现每72字符换行？ #

其实主要有两种可能性，结合你的描述，大概率是第一种：

1. Base64编码本身自带换行符 #

大多数Base64编码工具（包括你导出VBA模块时用到的处理逻辑）都会遵循RFC 2045的规范——每76个字符就插入一个换行符（vbCrLf或者vbLf），目的是让超长的Base64字符串更易读。你从导出文件里读取的Base64字符串，本身就包含这些换行符，所以当你用InsertLines把它插入到模块中时，这些换行符会被保留在字符串常量里，IDE自然会显示成每一段70多字符的换行效果。

而你用String(500,"a")生成的字符串是纯连续的字符，没有任何内置的换行符，所以IDE不会显示换行。

2. VBA IDE的自动行格式化（次要原因） #

如果你的Base64字符串本身没有换行，但IDE还是自动折行了，那就是VBA编辑器的自动格式化行为——当代码行长度超过默认的阈值（通常是72或80字符），编辑器会自动把长字符串常量折行显示。不过这种折行只是IDE的显示效果，不会给字符串本身添加任何换行符，运行时字符串还是完整的，不会影响功能。但这种情况的换行不会是精准的每72字符，所以更可能是第一种原因。

怎么解决这个问题？ #

如果你希望插入的字符串常量在IDE里没有换行（或者说字符串本身不含换行符），只需要在读取文件后，先把所有换行符去掉就行：

' 先写个读取文件内容的辅助函数
Function ReadFileContent(filePath As String) As String
    Dim fileNum As Integer
    fileNum = FreeFile()
    Open filePath For Binary Access Read As #fileNum
    ReadFileContent = Space(LOF(fileNum))
    Get #fileNum, , ReadFileContent
    Close #fileNum
End Function

' 读取Base64内容并去除换行符
Sub InsertBase64AsConstant()
    Dim base64Str As String
    base64Str = ReadFileContent("你的导出文件路径.bas")
    ' 去除所有回车和换行符
    base64Str = Replace(Replace(base64Str, vbCr, ""), vbLf, "")
    
    ' 插入到目标模块的第一行
    ThisWorkbook.VBProject.VBComponents("TargetModule").CodeModule.InsertLines 1, _
        "Const ExportedCode As String = """ & base64Str & """"
End Sub

另外，如果你是自己实现的Base64编码逻辑，可以直接在编码时禁用自动换行。比如有些VBA的Base64编码器会有LineLength属性，把它设为0就不会自动添加换行了。

怎么验证问题根源？ #

你可以用下面的代码快速判断字符串本身是否包含换行符：

Debug.Print "字符串中的换行符数量：" & UBound(Split(base64Str, vbLf))

如果输出的数字大于0，说明字符串本身带换行，需要用上面的方法去除；如果输出是0，那就是IDE的显示问题，完全不影响运行，不用处理。

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