excel - 如何使用带有自动覆盖功能的 workbook.saveas

Question

在这一段代码中，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)

如果我有 DisplayAlerts = False，为什么 db.SaveAs 总是提示我覆盖现有文件？

Answer 1

隐藏提示集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)