如何使用VBA将Excel中的工作表保存到CSV中，并将文件另存为用户名和日期？

Sub SaveSheetAsCSV()
    Dim ws As Worksheet
    Dim savePath As String
    Dim fileName As String
    
    ' 获取当前工作表
    Set ws = ActiveSheet
    
    ' 获取保存路径
    savePath = "C:\保存路径\" ' 替换为你想要保存的路径
    
    ' 获取用户名
    Dim userName As String
    userName = Environ("USERNAME")
    
    ' 获取日期
    Dim currentDate As String
    currentDate = Format(Date, "yyyymmdd")
    
    ' 构建文件名
    fileName = userName & "_" & currentDate & ".csv"
    
    ' 保存为CSV文件
    ws.SaveAs savePath & fileName, xlCSV
    
    ' 关闭Excel警告提示框
    Application.DisplayAlerts = False
    
    ' 关闭工作簿
    ThisWorkbook.Close
    
    ' 恢复Excel警告提示框
    Application.DisplayAlerts = True
End Sub