改了一大堆,,终于搞出来第一个可以用的程序了,,感激涕零。。
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