none
打开excel出现VB编译错误,显示此函数为定义 RRS feed

全部回复

  • 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
    2017年4月15日 0:35
  • 你好,
    请检查代码中是否引用了没有定义过的自定义函数名,如果存在未定义的函数名,请注释掉无用的函数调用或者重新定义改方法。
    2017年4月19日 9:45