急急急！Excel中VBA总是报错，所有方法都试过了，请高手帮忙看看什么情况？？

quqiyuan

代码如下。。。
Sub 合并当前目录下所有工作簿的全部工作表()
    Dim mypath, myname, awbname
    Dim wb As Workbook, wbn As String
    Dim g As Long
    Dim num As Long
    Dim box As String
    Application.ScreenUpdating = False
    mypath = ThisWorkbook.Path
    myname = Dir(mypath & "\" & "*.xls*")
    awbname = ThisWorkbook.Name
    num = 0
    ThisWorkbook.ActiveSheet.UsedRange.Clear            '清除活动工作表数据，请留意。
    Do While myname <> ""
        If myname <> awbname Then
            Set wb = Workbooks.Open(mypath & "\" & myname)
            num = num + 1
            With ThisWorkbook.ActiveSheet
                .Cells(.Range("a65536").End(xlUp).Row + 2, 1) = Left(myname, Len(myname) - 4)
                For g = 1 To Sheets.Count
                    wb.Sheets(g).UsedRange.Copy .Cells(.Range("a65536").End(xlUp).Row + 1, 1)
                Next
                wbn = wbn & Chr(13) & wb.Name
                wb.Close False
            End With
        End If
        myname = Dir
    Loop
    ThisWorkbook.ActiveSheet.Range("a1").Select
    Application.ScreenUpdating = True
    MsgBox "共合并了" & num & "个工作薄下的全部工作表。如下：" & Chr(13) & wbn, vbInformation, "提示"
End Sub

沈默00

沈默00

代码像AI写的，，，