使用VBA将Excel工作表的范围(部分)导出为CSV

Sub ExportRangeToCSV()
    Dim rng As Range
    Dim filePath As String
    
    ' 设置要导出的范围
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:C10")
    
    ' 设置导出文件的路径和名称
    filePath = "C:\Path\To\Your\File.csv"
    
    ' 导出范围为CSV文件
    rng.ExportAsFixedFormat Type:=xlCSV, Filename:=filePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub