如何用一个简单的宏把同一目录下的多个文件内容拷贝在一起

William_Lou

公司每个月底都有来自不同部门的报表，格式都是相同的。比如第一行都是说明。第二行开始都是数据。如何用一个简单的宏把这些个文件从第二行开始复制到一个新的文件中。
数据文件见附件。

AVEL

Option Explicit
Sub L()
    Dim sh As Worksheet, Mypath$, Myname$, arr
    Set sh = ActiveSheet
    Mypath = ThisWorkbook.Path & "\"
    Myname = Dir(Mypath & "*.xls")
    Application.ScreenUpdating = False
    Range("a1").CurrentRegion.Offset(1).ClearContents
    Do While Myname <> ""
        If Myname <> ThisWorkbook.Name Then
            With GetObject(Mypath & Myname)
                .Sheets(1).UsedRange.Copy sh.[a65536].End(3).Offset(1)
                .Close False
            End With
        End If
        Myname = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

phz1234

不记得是哪位前辈做的模板，对你要求一定能满足！
在此对原作者表示歉意了。{:soso_e183:}

AVEL

EH(AVEL)-汇总 12-07-17 01-28.rar (19.76 KB, 下载次数: 117)

2012-7-17 01:28 上传

点击文件名下载附件

luckyxm

{:soso_e179:}

八号岛

没看懂。。。

qyxsd

顶......叹为观止.....

jdhuang

看不懂，需要借用了，谢谢！{:soso_e100:}{:soso_e183:}

rakehell78

是excel的，有word的么？

272767951

我有一个相似的问题，同一目录下，多个excel工作簿，我需要将每个工作簿的固定几列（例如D：H）删掉，请问有办法办到吗？
有点特殊的是这些工作簿的扩展名不尽相同，有.xls,xlsx,csv三种格式。
我刚开始学VBA，所以上面的代码好多看不懂。