VBA导出Excel指定单元格到CSV文件仅输出第2行问题求助

• 核心错误是循环内的字符串赋值逻辑为覆盖模式而非累加模式：每次循环都会清空whatever变量之前存储的内容，替换为当前行的拼接结果，循环结束后whatever仅保留了最后一次循环（第10000行）的内容，若后续行对应列无数据，就会出现仅导出第2行的假象
• 输出语句Print #file, whatever放在了循环外，仅执行1次，没有逐行写入内容
• 代码未指定工作表，Cells默认取当前活动工作表的内容，若运行时活动表非目标表，也会出现数据读取错误
• 写死循环上限10000行，既会冗余遍历空行，也可能出现数据行数超过10000时漏导出的问题

Option Explicit ' 开启强制变量声明，避免拼写错误
Sub Eksporter()
    Dim file As Integer
    Dim filepath As String
    Dim Filename As String
    Dim lastRow As Long
    Dim i As Long ' 不建议用row作为变量名，和VBA内置属性重名容易冲突
    
    file = FreeFile
    filepath = "" ' 此处填写实际保存路径，例如 "C:\导出文件\"
    Filename = filepath & "X.csv"
    
    ' 动态获取当前工作表C列最后一行有数据的行号，避免遍历空行
    lastRow = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row
    
    Open Filename For Output As #file
    For i = 2 To lastRow
        ' 逐行写入，无需拼接大字符串，运行效率更高
        Print #file, Cells(i, 3) & ";;" & Cells(i, 12)
    Next i
    Close #file
    
    MsgBox "导出完成，文件保存至：" & Filename
End Sub

• 显式指定目标工作表：例如把ActiveSheet替换为Sheet1（目标表的代码名称）或者Worksheets("你的表名")，避免活动表选错的问题
• 过滤空行：可加判断If Trim(Cells(i, 3).Value) <> "" Then再执行写入逻辑，避免导出多余空行
• 编码适配：如果导出的CSV打开有乱码，可改用ADODB.Stream对象写入，指定UTF-8编码

内容的提问来源于stack exchange，提问作者sensir