方法存在且不被识别.“未定义的子函数或函数”

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..."