按照条件将多个CSV文件合并成一个Excel文件

guoct003

将同一目录下多个CSV文件合并为一个Excel文件已经在“zldccmx ”的帮助下实现了！
在此表示感谢 。也感谢Excel Home大家庭的热线帮助。谢谢！
但希望能够实现合并的时候能够按照条件选择来实现！
合并的代码(“zldccmx ”提供)
Sub zldccmx()
    Application.DisplayAlerts = False
    Dim WK As Workbook, CSV As Workbook, MyPath$, MyName$
    MyPath = ThisWorkbook.Path & "\csv\"
    MyName = Dir(MyPath & "*.csv")
    If MyName <> "" Then Set WK = Workbooks.Add
    Do While MyName <> ""    ' 开始循环。
       Set CSV = Workbooks.Open(MyPath & MyName): WK.Sheets.Add
        WK.ActiveSheet.Name = Split(MyName, ".")(0)
        CSV.ActiveSheet.UsedRange.Copy WK.ActiveSheet.[A1]
        CSV.Close False
        MyName = Dir
    Loop
   
    WK.SaveAs MyPath & "aaa.xls"
End Sub
现在希望能够在合并的同时选择满足条件的复制，

具体如附件所示。

[ 本帖最后由 guoct003 于 2008-10-29 21:21 编辑 ]

lsftest

你在全部合并以后把不要的删掉不久行了吗？

zldccmx

Sub zldccmx()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim WK As Workbook, CSV As Workbook, MyPath$, MyName$
    MyPath = ThisWorkbook.Path & "\csv\"
    MyName = Dir(MyPath & "*.csv")
    If MyName <> "" Then Set WK = ThisWorkbook Else Exit Sub
    For Each sh In WK.Worksheets
        If sh.Name <> "Sheet1" Then sh.Delete
    Next
    Do While MyName <> ""    ' 开始循环。
        Set CSV = Workbooks.Open(MyPath & MyName): WK.Sheets.Add
        WK.ActiveSheet.Name = Split(MyName, ".")(0)
        With CSV.ActiveSheet
            ro = .UsedRange.Rows.Count
            co = .UsedRange.Columns.Count
            .Cells(1, co + 1).Resize(ro, 1) = "=if(RC[-" & co & "]=""b"",0,1/0)"
            .Columns(co + 1).SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
            .Columns(co + 1) = ""
            .UsedRange.Copy WK.ActiveSheet.[A1]
            CSV.Close False
        End With
        MyName = Dir
    Loop
    WK.Save    'As MyPath & "aaa.xls"
    MsgBox MyPath & "下所有的CSV文件 均已经汇总到工作簿" & WK.Name & "中!" & vbLf & vbLf & "汇总完成，现在退出!"
    Application.EnableEvents = True
End Sub

zldccmx

求助“按要求合并多个CSV文件.rar (10.75 KB, 下载次数: 414)

2008-10-29 22:19 上传

点击文件名下载附件

这是附件，以及汇总效果!
请楼主验收!

guoct003

收到！要的就是这样的效果！非常感谢zldccmx的热线帮助！

向 EXCEl Home 的热线人敬礼！

谢谢！

tx50dj

同名的两个CSV文件如何合并？？？

soonracer

多谢多谢！

soonracer

请问zldccmx大侠和楼主，这样所有CSV合并起来的是一个EXCEL工作簿，可以把工作簿中所有工作表再合并成一个工作表吗 ？
非常感谢！！！

fliger

为什么我运行 提示91错误 对象变量或with块变量未设置啊
求教...

hangye

原帖由 soonracer 于 2010-2-8 22:07 发表
请问zldccmx大侠和楼主，这样所有CSV合并起来的是一个EXCEL工作簿，可以把工作簿中所有工作表再合并成一个工作表吗 ？
非常感谢！！！

同样问题请教大侠