vba excel 런타임 오류 438 with .quit

Question

런타임 오류 438 - 개체가이 속성 또는 메서드를 지원하지 않습니다.

지난 주 모든 것이 잘 작동했지만 이번 주에는 오류 팝업이 표시되었습니다. 또한

, 난 내가 코드를 게시하고 그러나

당신에 따라 솔루션

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


    Pathname = "C:\Users\tecnico2\Desktop\revisione 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