学步园

改了一大堆，，终于搞出来第一个可以用的程序了，，感激涕零。。

Sub mm()
    Application.ScreenUpdating = False
    Dim files
    files = Application.GetOpenFilename("所有喵喵哒(*.xls*),*.xls*", , "喵喵哒", , True)
    For i = LBound(files) To UBound(files)
        Set wb = Workbooks.Open(files(i))
        With wb.Worksheets("sheet1")
            maxrow = .Cells(Rows.Count, 1).End(xlUp).Row
            maxcolumn = .Cells(1, Columns.Count).End(xlToLeft).Column
            ir = ThisWorkbook.Sheets("Sheet1").Range("A1048576").End(xlUp).Row + 1
            .Range("a1").Resize(maxrow, maxcolumn).Copy ThisWorkbook.Sheets("sheet1").Range("a" & ir)
            wb.Close False
        End With
    Next i
End Sub