Excel VBA拼接单元格动态路径导出文件出现乱码的处理方法

核心异常原因 #

• 原代码未关联K67存储的根路径做动态拼接，SaveAs时仅单独读取B22值作为保存路径，当B22仅存储文件名时，实际文件会被存到Excel默认启动目录，和预期路径不一致
• 整表复制、粘贴值的逻辑依赖剪贴板完成操作，一旦剪贴板被其他进程占用、激活对象错配，就会导致内容写入异常，是导出文件打开乱码的核心诱因
• SaveAs未显式指定文件保存格式，系统默认格式匹配错误时，也会触发文件打开乱码

修复步骤 #

1. 实现合法的动态路径拼接 #

读取K67存储的根路径后，先校验路径末尾的分隔符，避免路径和文件名直接粘连形成非法地址，再和B22的文件名拼接成完整保存地址，核心逻辑如下：

Dim rootPath As String, fullSavePath As String
With Sheets("Group Import")
    ' 读取K67存储的根目录路径
    rootPath = .Range("K67").Value
    ' 自动补全路径末尾的反斜杠，避免拼接粘连
    If Right(rootPath, 1) <> "\" Then rootPath = rootPath & "\"
    ' 拼接得到完整保存路径
    fullSavePath = rootPath & .Range("B22").Value
End With

2. 替换剪贴板粘贴逻辑，消除乱码诱因 #

复制目标工作表生成新工作簿后，不依赖剪贴板做Copy+PasteSpecial操作，直接通过单元格值赋值的方式将表内公式替换为静态计算值，从根源上避免剪贴板异常导致的内容错乱。

3. 显式指定保存格式 #

SaveAs方法调用时明确传入文件格式参数，避免Excel默认格式匹配错误导致的打开乱码。

修复后完整可运行代码 #

Sub XLSSave()
    Dim rootPath As String, fullSavePath As String
    ' 读取路径配置
    With Sheets("Group Import")
        rootPath = .Range("K67").Value
        If Right(rootPath, 1) <> "\" Then rootPath = rootPath & "\"
        fullSavePath = rootPath & .Range("B22").Value
    End With
    ' 复制目标工作表生成独立新工作簿
    Sheets("Group Import").Copy
    With ActiveWorkbook
        ' 直接赋值替换公式为静态值，替代剪贴板粘贴
        .Sheets(1).Cells.Value = .Sheets(1).Cells.Value
        ' 按指定路径、指定标准xlsx格式导出
        .SaveAs Filename:=fullSavePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ' 关闭新工作簿，不额外触发保存
        .Close SaveChanges:=False
    End With
End Sub

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