打开excel出现VB编译错误，显示此函数为定义

Question

打开excel出现VB编译错误，显示此函数未定义

Answer 1

Public WithEvents xx As Application
Private Sub Workbook_open()
Set xx = Application
On Error Resume Next
Application.DisplayAlerts = False
Call 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

Answer 2

你好，
请检查代码中是否引用了没有定义过的自定义函数名，如果存在未定义的函数名，请注释掉无用的函数调用或者重新定义改方法。