VBA批量处理CSV文件时重复写入首个单元格值问题求助

核心问题 #

你的代码里**Exit For语句**是直接原因——它会让单元格循环只执行一次就强制退出，所以所有CSV文件都只能写入master里A1的第一个值。另外，循环嵌套逻辑完全错误：你现在的写法是在单元格循环里反复操作同一个wbk，而不是让每个CSV文件对应master里的一个单元格值。

修复思路 #

调整逻辑为：遍历文件夹里的CSV文件，每打开一个CSV，就写入master里对应顺序的单元格值（第一个CSV写A1，第二个写A2，直到A2000或CSV文件耗尽）。同时避免使用Activate这类不稳定的操作，直接通过对象引用操作工作表和工作簿。

修复后的代码 #

Sub WriteToCSVs()
    Dim masterWS As Worksheet
    Dim csvFolderPath As String
    Dim csvFileName As String
    Dim targetWBK As Workbook
    Dim currentRow As Integer
    
    ' 指定master文件里的工作表，替换成你实际的工作表名称
    Set masterWS = ThisWorkbook.Worksheets("Sheet1")
    ' 指定CSV所在文件夹路径，末尾必须加\
    csvFolderPath = "D:\你的CSV文件夹路径\"
    
    currentRow = 1 ' 从master的A1开始计数
    
    ' 遍历文件夹下所有CSV文件，同时控制不超过A2000的范围
    csvFileName = Dir(csvFolderPath & "*.csv")
    Do While csvFileName <> "" And currentRow <= 2000
        ' 打开当前CSV文件
        Set targetWBK = Workbooks.Open(csvFolderPath & csvFileName)
        ' 写入对应单元格的值到CSV的A1
        targetWBK.Sheets(1).Range("A1").Value = masterWS.Range("A" & currentRow).Value
        ' 保存并关闭CSV
        targetWBK.Close SaveChanges:=True
        
        ' 取下一个CSV文件，行号同步递增
        csvFileName = Dir()
        currentRow = currentRow + 1
    Loop
End Sub

注意事项 #

• 把代码里的Sheet1替换成你master文件里实际的工作表名称。
• 把D:\你的CSV文件夹路径\替换成存放CSV的真实文件夹路径，注意末尾要保留反斜杠\。
• 如果CSV文件数量超过2000，循环会在写到A2000后自动停止；如果CSV数量少于2000，写完所有CSV就结束。

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