执行Application.Screenupdating时找不到方法或数据成员？

Question

我按钮调用以下过程：

Sub ImportData()
    Dim currentCalculationMethod As Integer

    Application.ScreenUpdating = False

    currentCalculationMethod = Application.Calculation
    Application.Calculation = xlCalculationManual

    Call ClearData
    Call LoopFiles

    Sheets("Start").Activate

    Application.Calculation = currentCalculationMethod        
    Application.ScreenUpdating = True

End Sub

突然间，我收到一条错误消息，指出＆＃34;方法或数据成员未找到＆＃34;并且VBE为我突出.ScreenUpdating = False。可能导致这个问题的原因是什么？

我正在运行Excel 2013。

其他文件中似乎不存在此问题。我不知道这个文件中发生了什么导致了这个。

编辑：

当我尝试跑步时：

Sub GetFolder()
    Dim f As Office.FileDialog
    Set f = Application.FileDialog(msoFileDialogFolderPicker)
    With f
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        If .Show Then
            ThisWorkbook.ActiveSheet.Range("folderPath") = .SelectedItems(1) & "\"
        End If
    End With
End Sub

然后我收到相同的错误消息，Excel突出显示.FileDialog。

Answer 1

我弄清楚导致问题的原因。我有另一个名为application的模块。我想Excel并不是这样的。我能理解这一点，但本来希望VBE提供更好的指导。