empty怎么读,myname＇sliiy怎么读？

Sub Macro1() Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m& Set sh = ActiveSheet MyPath = ThisWorkbook.Path & “\” MyName = Dir(MyPath & “*.xls”) Application.ScreenUpdating = False Cells.ClearContents Do While MyName <> “” If MyName <> ThisWorkbook.Name Then With GetObject(MyPath & MyName) For Each sht In .Sheets If IsSheetEmpty = IsEmpty(sht.UsedRange) Then m = m + 1 If m = 1 Then sht.[a1].CurrentRegion.Copy sh.[a1] Else sht.[a1].CurrentRegion.Offset(1).Copy sh.[a65536].End(xlUp).Offset(1) End If End If Next .Close False End With End If MyName = Dir Loop Application.ScreenUpdating = TrueEnd Sub