如何把多个Excel工作簿合并成一个新的工作簿

  Dimpath           As String
   DimFileName       As String
   DimLastCell       As Range
   DimWkb            As Workbook
   DimWS             As Worksheet
   DimThisWB         As String
 
 
   Dim MyDir AsString
   MyDir =ThisWorkbook.path & ""
   'ChDriveLeft(MyDir, 1) 'find all the excel files
  'ChDir MyDir
   'Match =Dir$("")
  
   ThisWB =ThisWorkbook.Name
  Application.EnableEvents = False
  Application.ScreenUpdating = False
   path =MyDir
   FileName =Dir(path & "*.xls", vbNormal)
   Do UntilFileName = ""
      If FileName <> ThisWB Then
          Set Wkb = Workbooks.Open(FileName:=path & ""& FileName)
          For Each WS In Wkb.Worksheets
              Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
              If LastCell.Value = "" And LastCell.Address = Range("$A$1").AddressThen
              Else
                  WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
              End If
          Next WS
          Wkb.Close False
      End If
      FileName = Dir()
   Loop
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  
   Set Wkb =Nothing
   Set LastCell= Nothing
End Sub