workbook.saveasを自動上書きで使用する方法

質問

このセクションのコードでは、Excel は常に、"ファイルがすでに存在するので、上書きしますか、というプロンプトを表示します。

Application.DisplayAlerts = False
Set xls = CreateObject("Excel.Application")
Set wb = xls.Workbooks.Add
fullFilePath = importFolderPath & "\" & "A.xlsx"

wb.SaveAs fullFilePath, AccessMode:=xlExclusive, ConflictResolution:=True   

wb.Close(True)

なぜ db.SaveAs がある場合、常に既存のファイルを上書きするよう促されます。 DisplayAlerts = False ?

どのように解決するのですか？

プロンプトを非表示にするには xls.DisplayAlerts = False

ConflictResolution は true または false プロパティを使用する場合、それは xlLocalSessionChanges

ノート は、上書きプロンプトの表示とは関係ないことに注意してください。

Set xls = CreateObject("Excel.Application")    
xls.DisplayAlerts = False
Set wb = xls.Workbooks.Add
fullFilePath = importFolderPath & "\" & "A.xlsx"

wb.SaveAs fullFilePath, AccessMode:=xlExclusive,ConflictResolution:=Excel.XlSaveConflictResolution.xlLocalSessionChanges    
wb.Close (True)