在“静默”模式下将Excel工作表另存为csv的VBA代码

Sub SaveAsCSV()
    Dim ws As Worksheet
    Dim savePath As String
    
    ' 设置要保存的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你要保存的工作表名称
    
    ' 设置保存路径和文件名
    savePath = "C:\path\to\save\file.csv" ' 将路径替换为你要保存的路径和文件名
    
    ' 关闭警告对话框
    Application.DisplayAlerts = False
    
    ' 保存为CSV文件
    ws.SaveAs savePath, xlCSV
    
    ' 恢复警告对话框
    Application.DisplayAlerts = True
End Sub