VBA workbooks.Đóng ra mà không được nhắc nhở nếu người dùng muốn lưu?

Question

Tôi đang viết chương trình VBA chuyển đổi các tệp .xls thành các tệp .csv. Vấn đề là sẽ trả về hộp thoại "Do you want to save the changes to myFile.csv?".

Dưới đây là một đoạn mã của tôi:

currentBook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges  
currentBook.Close SaveChanges:=False 

gì tôi cần phải thêm vì vậy mà tôi không nhận được "? Bạn có muốn lưu các thay đổi myFile.csv" Hộp thoại?

Answer 1

Hãy thử sử dụng ThisWorkbook.Saved = True

 Application.DisplayAlerts = False 
     currentBook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges 
     currentBook.Saved = True    
     currentBook.Close SaveChanges:=False 
     Application.DisplayAlerts = True 

Answer 2

Đây là những gì tôi đã làm trong quá khứ và nó làm việc cho tôi:

Application.DisplayAlerts = False 
    ActiveWorkbook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, conflictResolution:=xlLocalSessionChanges 
Application.DisplayAlerts = True 
ActiveWorkbook.Close False 

Bạn cũng có thể thử đặt Đóng trước DisplayAlerts được đặt lại đúng ...

Answer 3

Set XC = NTSGetExcell(True) 
XC.Visible = True 
XC.Application.DisplayAlerts = False 
XC.IgnoreRemoteRequests = True 
XC.ActiveWindow.Close False 
XC.Quit 
Set XC = Nothing