vbaは.quitで実行時エラー438を実行します。

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