Excel转CSV仅使用VBA打印特定列

Sub ConvertExcelToCSV()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim csvFilePath As String
    Dim csvFileNum As Integer
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置CSV文件路径和文件号
    csvFilePath = "C:\path\to\output.csv"
    csvFileNum = FreeFile
    
    ' 打开Excel文件
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Sheet1") ' 替换为要操作的工作表名称
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 打开CSV文件以供写入
    Open csvFilePath For Output As csvFileNum
    
    ' 循环遍历每一行并写入CSV文件
    For i = 1 To lastRow
        Print #csvFileNum, ws.Cells(i, 1) & "," & ws.Cells(i, 2) ' 替换为要打印的列
    Next i
    
    ' 关闭CSV文件
    Close csvFileNum
    
    ' 提示转换完成
    MsgBox "Excel转换为CSV并打印特定列完成！"
End Sub