VBA Excel将文件导出为.csv，并将数据保留在适当的列中

Sub ExportToCSV()
    Dim filePath As String
    Dim ws As Worksheet
    Dim rng As Range
    Dim cellData As Range
    Dim csvData As String
    
    ' 设置导出文件路径
    filePath = "C:\path\to\export.csv"
    
    ' 设置要导出的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要导出的数据范围
    Set rng = ws.Range("A1:D10") ' 例如，导出A1到D10范围的数据
    
    ' 遍历数据范围，构建CSV数据
    For Each cellData In rng
        csvData = csvData & cellData.Value & ","
    Next cellData
    
    ' 移除最后一个逗号
    csvData = Left(csvData, Len(csvData) - 1)
    
    ' 将CSV数据写入文件
    Open filePath For Output As #1
    Print #1, csvData
    Close #1
    
    MsgBox "文件已成功导出为.csv格式。"
End Sub