如何使用VBA从XLS创建操作过的CSV文件

Sub CreateCSVFromXLS()
    Dim xlsFilePath As String
    Dim csvFilePath As String
    Dim xlsWorkbook As Workbook
    Dim xlsWorksheet As Worksheet
    Dim csvFile As Object
    Dim csvStream As Object
    Dim dataRange As Range
    Dim dataRow As Range
    Dim dataCell As Range
    
    ' 设置Excel文件路径和CSV文件路径
    xlsFilePath = "C:\path\to\input.xls"
    csvFilePath = "C:\path\to\output.csv"
    
    ' 打开Excel文件
    Set xlsWorkbook = Workbooks.Open(xlsFilePath)
    
    ' 选择要操作的工作表
    Set xlsWorksheet = xlsWorkbook.Worksheets("Sheet1")
    
    ' 读取数据范围
    Set dataRange = xlsWorksheet.UsedRange
    
    ' 创建CSV文件
    Set csvFile = CreateObject("Scripting.FileSystemObject")
    Set csvStream = csvFile.CreateTextFile(csvFilePath, True)
    
    ' 写入数据到CSV文件
    For Each dataRow In dataRange.Rows
        For Each dataCell In dataRow.Cells
            csvStream.Write dataCell.Value
            csvStream.Write ","
        Next dataCell
        csvStream.WriteLine
    Next dataRow
    
    ' 保存和关闭文件
    csvStream.Close
    xlsWorkbook.Close SaveChanges:=False
End Sub