多Excel文件数据合并至指定CSV的VBA示例代码请求

嘿，作为VBA新手，这个需求完全没问题！我给你准备了一段开箱即用的宏代码，你只需要简单调整下CSV文件的路径，就能实现每个Excel文件一键把数据追加到指定CSV里啦。

操作步骤 #

• 打开你的Excel文件，按下Alt+F11打开VBA编辑器
• 右键点击当前工作簿，选择「插入」→「模块」
• 把下面的代码粘贴进去，修改代码里的CSV路径为你自己的目标路径
• 回到Excel界面，你可以直接按F5运行宏，或者给工作表加个按钮绑定这个宏，点击就能执行

完整VBA代码 #

Sub AppendToCSV()
    ' 定义变量
    Dim userName As String, department As String, mailAddr As String
    Dim csvPath As String
    Dim fileNum As Integer
    Dim isFirstWrite As Boolean
    
    ' --------------------------
    ' 这里改成你的目标CSV文件路径！
    ' --------------------------
    csvPath = "C:\YourTargetFolder\user_data.csv"
    
    ' 获取当前Excel文件里的固定单元格数据
    userName = ThisWorkbook.Sheets(1).Range("B3").Value ' 假设数据在第一个工作表，如果你是其他表，改成Sheets("Sheet名称")
    department = ThisWorkbook.Sheets(1).Range("B4").Value
    mailAddr = ThisWorkbook.Sheets(1).Range("B5").Value
    
    ' 检查必填数据是否为空（可选，防止空数据写入）
    If userName = "" Or department = "" Or mailAddr = "" Then
        MsgBox "B3/B4/B5单元格不能有空值哦，请检查后重试！", vbExclamation
        Exit Sub
    End If
    
    ' 判断CSV文件是否存在，不存在的话需要先写表头
    isFirstWrite = Dir(csvPath) = ""
    
    ' 打开CSV文件准备写入（ForAppend表示追加模式）
    fileNum = FreeFile()
    Open csvPath For Append As #fileNum
    
    ' 如果是第一次写入，先写表头
    If isFirstWrite Then
        Print #fileNum, "UserName,Department,Mail address"
    End If
    
    ' 写入当前用户的数据，用逗号分隔符合CSV格式
    Print #fileNum, """" & userName & """,""" & department & """,""" & mailAddr & """"
    
    ' 关闭文件
    Close #fileNum
    
    ' 提示操作完成
    MsgBox "数据已成功追加到CSV文件！", vbInformation
End Sub

关键细节说明 #

• CSV路径修改：一定要把代码里的csvPath改成你实际的文件路径，比如放在桌面就是"C:\Users\你的用户名\Desktop\user_data.csv"
• 工作表选择：代码里默认取第一个工作表的数据，如果你的数据在其他工作表，把Sheets(1)改成Sheets("你的工作表名称")，比如Sheets("用户信息")
• 空值检查：代码里加了必填项的空值判断，避免无效数据写入，如果你不需要可以删掉这部分
• CSV格式兼容：用双引号包裹每个字段，防止字段里有逗号导致格式错乱（比如部门名称带逗号的情况）

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