VBA 将单张工作表保存为 CSV（不是整个工作簿）

VBA是一种用于Microsoft Office应用程序中的编程语言，可以帮助用户自动化执行各种任务。在Excel中，我们可以使用VBA将单张工作表保存为CSV文件，而不是保存整个工作簿。下面将为大家介绍如何使用VBA实现这一功能，并附上相应的案例代码。

vba
Sub SaveSheetAsCSV()
    Dim ws As Worksheet
    Dim savePath As String
    
    ' 获取当前活动工作表
    Set ws = ActiveSheet
    
    ' 设置保存路径
    savePath = "C:\path\to\save\file.csv" ' 替换为你希望保存的CSV文件的路径
    
    ' 关闭自动筛选
    ws.AutoFilterMode = False
    
    ' 保存工作表为CSV文件
    ws.SaveAs savePath, xlCSV
    
    ' 提示保存成功
    MsgBox "工作表已成功保存为CSV文件。"
End Sub

vba
Sub SaveSheetAsCSV()
    Dim ws As Worksheet
    Dim savePath As String
    
    ' 获取当前活动工作表
    Set ws = ActiveSheet
    
    ' 设置保存路径
    savePath = "C:\path\to\save\file.csv" ' 替换为你希望保存的CSV文件的路径
    
    ' 关闭自动筛选
    ws.AutoFilterMode = False
    
    ' 保存工作表为CSV文件
    ws.SaveAs savePath, xlCSV
    
    ' 提示保存成功
    MsgBox "工作表已成功保存为CSV文件。"
End Sub