Excel VBA保存为CSV UTF8代码本地正常他人运行失效，如何解决？

• Excel版本兼容问题：xlCSVUTF8 这个枚举值仅Excel 2016及更高版本支持，对方如果使用2013及更早版本的Excel，无法识别该参数，会直接触发报错。
• 路径权限问题：*如果对方将文件存放在受保护的目录（比如C盘根目录、Program Files文件夹、无写入权限的共享文件夹），ThisWorkbook.Path对应的路径没有写入权限，SaveAs操作会直接失败。
• 变量缺失问题：*代码中的变量C没有声明和赋值逻辑，如果你本地运行时C有预设值（比如之前的代码片段中已经赋值），但发给其他用户的文件中缺少这部分逻辑，对方运行时会出现变量未定义、空值拼接非法路径的问题。
• 工作表不存在：*对方打开的文件中不存在名为「Primis - Advertiser」的工作表，可能是被误改名、删除，Copy操作会直接失败。
• 宏安全设置问题：*对方的Excel宏安全级别设置过高，直接阻止VBA代码运行，代码根本没有执行。
• 文件未本地保存就运行：*如果对方直接从邮箱、聊天工具中打开文件没有保存到本地，ThisWorkbook.Path会返回空值，拼接出来的保存路径非法。
• 字符串拼接符号问题：*代码中路径拼接使用了+号，VBA中+号默认是数值运算符，如果拼接的变量存在数值类型时会触发类型不匹配报错，字符串拼接推荐使用&符号。
• 备份文件创建失败：*如果目标路径下已经存在同名的CSV文件，且文件被其他程序占用，或者用户没有权限创建备份文件，CreateBackup参数会导致保存操作失败。

方案1：全版本兼容的UTF-8 CSV导出方案 #

该方案不依赖高版本Excel的xlCSVUTF8参数，手动处理编码和特殊字符，兼容所有主流Excel版本：

Sub ExportToCSV_UTF8_Compatible()
    Dim strSourceSheet As String, strFullname As String
    Dim ws As Worksheet
    Dim fNum As Integer
    Dim rowNum As Long, colNum As Long
    Dim lineContent As String, cellContent As String
    ' 配置参数，可根据需求修改变量C的赋值逻辑
    Dim C As String: C = Environ("username") ' 示例：取当前系统登录用户名
    strSourceSheet = "Primis - Advertiser"
    ' 校验文件是否已保存到本地
    If ThisWorkbook.Path = "" Then
        MsgBox "请先将本文件保存到本地文件夹后再运行"
        Exit Sub
    End If
    strFullname = ThisWorkbook.Path & "\Primis Advertiser Import By " & C & ".csv"
    
    Set ws = ThisWorkbook.Sheets(strSourceSheet)
    fNum = FreeFile()
    Open strFullname For Output As #fNum
    ' 写入UTF-8 BOM头，保证Excel打开时可正确识别编码
    Print #fNum, Chr$(239) & Chr$(187) & Chr$(191);
    ' 逐行写入单元格内容，自动处理带逗号、引号的特殊内容
    For rowNum = 1 To ws.UsedRange.Rows.Count
        lineContent = ""
        For colNum = 1 To ws.UsedRange.Columns.Count
            cellContent = Replace(ws.Cells(rowNum, colNum).Value, """", """""")
            If InStr(cellContent, ",") > 0 Or InStr(cellContent, """") > 0 Then
                cellContent = """" & cellContent & """"
            End If
            lineContent = lineContent & cellContent & IIf(colNum = ws.UsedRange.Columns.Count, "", ",")
        Next colNum
        Print #fNum, lineContent
    Next rowNum
    Close #fNum
    MsgBox "导出完成，文件路径：" & strFullname
End Sub

方案2：原有逻辑优化版 #

如果要保留原生SaveAs逻辑，可增加版本判断、异常校验逻辑，降低报错时自动适配不同运行环境：

Sub ExportCSV_Improved()
    Dim strSourceSheet As String, strFullname As String
    Dim C As String: C = Environ("username") ' 补充变量C的赋值逻辑，可按需修改
    strSourceSheet = "Primis - Advertiser"
    ' 校验文件是否已保存
    If ThisWorkbook.Path = "" Then
        MsgBox "请先将本文件保存到本地后再运行代码"
        Exit Sub
    End If
    ' 校验目标工作表是否存在
    On Error Resume Next
    Dim testWs As Worksheet
    Set testWs = ThisWorkbook.Sheets(strSourceSheet)
    If Err.Number <> 0 Then
        MsgBox "未找到指定工作表：" & strSourceSheet
        Exit Sub
    End If
    On Error GoTo 0
    strFullname = ThisWorkbook.Path & "\Primis Advertiser Import By " & C & ".csv"
    ' 版本兼容判断
    Dim fileFormat As XlFileFormat
    If Application.Version >= 16 Then ' Excel 2016及以上版本
        fileFormat = xlCSVUTF8
    Else
        MsgBox "您的Excel版本较低，将使用兼容模式导出"
        ' 低版本可直接调用方案1的全兼容导出逻辑
        Call ExportToCSV_UTF8_Compatible
        Exit Sub
    End If
    ThisWorkbook.Sheets(strSourceSheet).Copy
    ActiveWorkbook.SaveAs Filename:=strFullname, fileFormat:=fileFormat, CreateBackup:=False
    ActiveWorkbook.Close SaveChanges:=False
    MsgBox "导出完成"
End Sub

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