Question

excel 求批量合并csv文件的宏

多个csv文件存放于一个目录，格式相同，列数相同，要求合并成一个xlsx文件

Answer 1

@echo off
E:
cd xls
dir
copy *.csv all_keywords.csv
echo @@@@@@@@@@@@@合并成功！@@@@@@@@@@@@@'
pause

新建文本文件，打开，复制以下代码到文件中保存为 “合并.bat”批处理文件。运行即可

E: 是盘符

xls是文件夹

Answer 2

代码如下：

Sub test()
Dim wb As Workbook, mary, f As String, mPath As String
'数据环境初始化
If Workbooks.Count > 1 Then MsgBox "关闭其他工作簿后重试": Exit Sub
'设置路径
MsgBox "选择原始数据所在的文件夹！"
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count = 0 Then MsgBox "你放弃了操作！": Exit Sub
    mPath = .SelectedItems(1)
End With
Application.ScreenUpdating = False
f = Dir(mPath & "\*.csv")
Do While f <> ""
    Set wb = Workbooks.Open(mPath & "\" & f)
    mary = wb.Worksheets(1).[a1].CurrentRegion
    wb.Close 0
    With ThisWorkbook.Worksheets(1)
        mrow = Application.CountA(.Range("A:A")) + 1
        .Cells(mrow, 1).Resize(UBound(mary, 1), UBound(mary, 2)) = mary
    End With
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "处理完成!"
End Sub