VBA Excel运行时错误438带有.quit

Question

运行时间错误438-对象不支持此属性或方法。

上周，每个事情都很好，而本周获得了错误的弹出窗口。

另外，我还有另一个与相同细节效果很好的例程。...我不知道为什么

但是，我正在发布代码以询问您解决方案

   Sub ProcessFiles()    Dim Filename, Pathname As String 
    Dim wb As Workbook 

    Pathname = "C:Userstecnico2Desktoprevisione prova" 
    Filename = Dir(Pathname & "*.xlsm") 
    Do While Filename <> "" 
        Set wb = Workbooks.Open(Pathname & Filename) 
        DoWork wb 
        wb.Save 
        wb.Quit '<-------------- **the error appears here-**----------
        Filename = Dir() 
    Loop 
    End Sub 


    Sub DoWork(wb As Workbook) 
    With wb 
        Call AddDBFasi 
    End With 
    End Sub 

Answer 1

取决于您想做的事情：
您想关闭工作簿吗？然后是wb.close（如果您使用wb.Close True，它将保存工作簿，并且可以摆脱wb.Save）。
您想完全关闭Excel吗？使用Application.Quit