如何在VB.NET中为Excel导出CSV正确设置分号分隔符？

你的需求是用 VB.NET 将 Excel 工作表转换为以;为列分隔符的 CSV 文件，在 Windows 10 中通过SaveAs方法设置Local参数为";"生效，但该方法在 Windows Server 2019 上无效。你的代码如下：

Friend Sub Export(PathOfTemplate As String, PathOfCopy As String)
    Try
        _Books = _excel.Workbooks
        _Book = _Books.Open(PathOfTemplate)
        _Sheets = _Book.Worksheets
        _Sheet = DirectCast(_Sheets(1), Excel.Worksheet)
        If File.Exists(PathOfCopy) Then File.Delete(PathOfCopy)
        _Sheet.SaveAs(PathOfCopy, Excel.XlFileFormat.xlCSVWindows, Type.Missing, Type.Missing, _
                      Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, ";")
    Finally
        _Book.Close()
        _Books.Close()
    End Try
End Sub

排查方向 #

1. 参数传递错误（核心问题） #

SaveAs方法的第10个参数Local是布尔类型，作用是控制是否使用系统本地区域设置保存，并非直接传入分隔符。你在代码中传入字符串";"属于错误用法：

• Windows 10 中可能因类型自动转换（非空字符串转为True），且系统区域的「列表分隔符」恰好是;，才偶然生效；
• Windows Server 2019 的系统区域列表分隔符大概率是默认的逗号,, 即使Local被转为True，也会使用系统默认分隔符。

2. 系统区域设置差异 #

检查 Windows Server 2019 的系统区域配置：

• 打开「控制面板 → 区域 → 其他设置」；
• 查看「列表分隔符」是否为;，若不是，修改为;后测试SaveAs方法（需将Local参数改为True）。

3. Excel 版本与 Interop 引用 #

• 确认 Win10 和 Server2019 上的 Excel 版本（32/64位、Office 版本）是否一致；
• 检查项目中引用的Microsoft.Office.Interop.Excel版本是否匹配服务器端 Excel 版本，版本不兼容可能导致参数行为异常。

4. 权限与文件操作问题 #

• 排查程序运行账号是否对目标路径有读写权限；
• 添加异常捕获日志，确认是否存在文件删除失败、写入被锁定等情况（比如File.Delete可能因文件被占用抛出异常，但你的代码未处理）。

5. 服务器端 Excel 自动化配置 #

Windows Server 环境下使用 Excel Interop 需要配置 DCOM 权限：

• 打开「组件服务 → 计算机 → 我的电脑 → DCOM 配置 → Microsoft Excel 应用程序」；
• 右键属性，配置「安全」选项卡的启动和激活权限、访问权限，确保运行账号有对应权限。

替代实现方法 #

方法1：修正 Excel Interop 参数，强制指定分隔符 #

通过修改 Excel 应用的区域列表分隔符，绕过系统区域限制：

Friend Sub Export(PathOfTemplate As String, PathOfCopy As String)
    Try
        _Books = _excel.Workbooks
        _Book = _Books.Open(PathOfTemplate)
        _Sheets = _Book.Worksheets
        _Sheet = DirectCast(_Sheets(1), Excel.Worksheet)
        
        ' 强制设置Excel的列表分隔符为;
        _excel.Application.International(Excel.XlInternational.xlListSeparator) = ";"
        
        If File.Exists(PathOfCopy) Then File.Delete(PathOfCopy)
        ' 正确设置Local参数为True，使用本地（已修改的）分隔符
        _Sheet.SaveAs(PathOfCopy, Excel.XlFileFormat.xlCSVWindows, 
                      Type.Missing, Type.Missing, Type.Missing, Type.Missing,
                      Type.Missing, Type.Missing, Type.Missing, True)
    Catch ex As Exception
        ' 添加日志记录异常信息
        Console.WriteLine(ex.Message)
    Finally
        _Book.Close()
        _Books.Close()
        _excel.Quit() ' 需确保Excel进程退出，避免内存泄漏
        System.Runtime.InteropServices.Marshal.ReleaseComObject(_Sheet)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(_Sheets)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(_Book)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(_Books)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(_excel)
    End Try
End Sub

方法2：使用第三方库（推荐，无需依赖Excel） #

使用 EPPlus、NPOI 等开源库直接读取 Excel 文件并生成 CSV，彻底避免 Excel Interop 的兼容性问题。以 EPPlus 为例：

1. 安装 EPPlus NuGet 包（Install-Package EPPlus）；
2. 实现代码：

Imports OfficeOpenXml
Imports System.Text

Friend Sub ExportWithEPPlus(PathOfTemplate As String, PathOfCopy As String)
    If File.Exists(PathOfCopy) Then File.Delete(PathOfCopy)
    
    ' 配置EPPlus许可证（仅EPPlus 5+需要）
    ExcelPackage.LicenseContext = LicenseContext.NonCommercial
    
    Using package As New ExcelPackage(New FileInfo(PathOfTemplate))
        Dim worksheet = package.Workbook.Worksheets(1)
        Dim csvBuilder As New StringBuilder()
        
        ' 遍历所有行和列
        For row = 1 To worksheet.Dimension.End.Row
            Dim rowValues As New List(Of String)()
            For col = 1 To worksheet.Dimension.End.Column
                Dim cellValue = worksheet.Cells(row, col).Value?.ToString()
                
                ' 处理包含分号或引号的内容，符合CSV规范转义
                If cellValue IsNot Nothing Then
                    If cellValue.Contains(";") OrElse cellValue.Contains("""") Then
                        cellValue = $"""{cellValue.Replace("""", """""")}"""
                    End If
                    rowValues.Add(cellValue)
                Else
                    rowValues.Add("")
                End If
            Next
            ' 用分号拼接行内容
            csvBuilder.AppendLine(String.Join(";", rowValues))
        Next
        
        ' 写入CSV文件
        File.WriteAllText(PathOfCopy, csvBuilder.ToString(), Encoding.UTF8)
    End Using
End Sub

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