excel
合个并当前文件夹下所有
excel文件的代码，求大佬看一下有没有问题：Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long, Num As Long Dim BOX As String Dim x As Long, y As Long Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & & *.xls) AWbName = *.Name Num = 0 Do While MyName If MyName AWbName Then Set Wb = *.Open(MyPath & & & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range(B65536).End(xlUp).Row + 1, 1) = MyName For Each Sht In Wb.Sheets For x = 1 To 2 If x = 1 Then WbN = ActiveWorkbook.Name Workbooks(WbN).Activate Sht.Select Range(A1).Select Selection.CurrentRegion.Select Selection.Copy Wb.Activate Sht.Activate Range(A1).PasteSpecial Paste:=xlPasteValues Range(A1).PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False End If Next Next End With Wb.Close SaveChanges:=False End If MyName = Dir Loop MsgBox 都整完了，一共搞了 & Num & 个文件！ Application.ScreenUpdating = TrueEnd Sub有没有大佬看看这段代码是不是写得太乱了？有没有啥可以优化的地方？特别是那个嵌套循环那里，感觉有点多余但又不知道咋改。谢谢各位大佬指点一下！
