如何从VBA创建单独的CSV文件？

Sub ExportToCSV()
    Dim FilePath As String
    Dim FileName As String
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim csvLine As String
    
    ' 设置文件路径和文件名
    FilePath = "C:\Users\YourUsername\Documents\"
    FileName = "ExportedData.csv"
    
    ' 获取活动工作表
    Set ws = ActiveSheet
    
    ' 获取数据范围（例如A1:D10）
    Set rng = ws.Range("A1:D10")
    
    ' 打开文件进行写入
    Open FilePath & FileName For Output As #1
    
    ' 写入标题行
    For Each cell In rng.Rows(1).Cells
        If cell.Value <> "" Then
            csvLine = csvLine & cell.Value & ","
        End If
    Next cell
    Print #1, Left(csvLine, Len(csvLine) - 1) ' 去掉最后一个逗号
    
    ' 写入数据行
    For Each cell In rng.Rows(2).Cells
        csvLine = ""
        For Each c In rng.Columns.Cells
            If c.Value <> "" Then
                csvLine = csvLine & c.Value & ","
            End If
        Next c
        Print #1, Left(csvLine, Len(csvLine) - 1) ' 去掉最后一个逗号
    Next cell
    
    ' 关闭文件
    Close #1
    
    MsgBox "CSV文件已成功创建！"
End Sub