方法存在且无法识别..."Sub or function not defined vba"

Question

我有一个名为"UsefulStuff"的模块，它有一个函数：

Public Sub SuspendUpdating(message As String)
    Application.StatusBar = message
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Application.Cursor = xlWait
End Sub

当我称之为另一个模块"modJira"时：

Public Sub ImportFromJira()
    Dim resultXml As MSXML2.DOMDocument, resultNode As IXMLDOMElement

    Dim nodeContainer As IXMLDOMElement
    Dim rowCount As Integer, colCount As Integer
    Dim fixVersionString As String
    Dim dumpRange As Range, tempValue As Variant
    'Dim usefulStuff As New usefulStuff
    Call SuspendUpdating("Getting data from Jira...")

如何解决这个问题？

Answer 1

注释

掉的行

'Dim usefulStuff As New usefulStuff

暗示usefulStuff是一个类模块。如果是这种情况，您将收到您提到的错误消息。

解决方法是取消注释掉该行，然后调用 sub 作为方法调用：

Dim usefulStuff As New usefulStuff
usefullStuff.SuspendUpdating "Getting data from Jira..."

如果这不能解决它，我的猜测是它在其他工作簿中。假设工作簿已打开并命名为 Mystery.xlsm则以下行应该有效

Application.Run "Mystery.xlsm!SuspendUpdating", "Getting data from Jira..."