Как использовать книгу.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 ?

спасибо заранее!

40
excel excel-2010 excel-vba vba

2 ответов

чтобы не видеть быстрый набор xls.DisplayAlerts = False

ConflictResolution не является истинным или ложным собственность, он должен быть!--3--> - обратите внимание, что это не имеет ничего общего с отображением перезаписать хоть подскажут!

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)
62

Я рекомендую перед выполнением SaveAs удалить файл, который он существует.

If Dir("f:ull\path\with\filename - ... xls") "" тогда Убить "f:ull\path\with\filename - ... в XLS" Конец, Если

Это проще, чем установка DisplayAlerts выключен и включен, плюс если DisplayAlerts остается выключен из-за сбоя кода, это может вызвать проблемы, если вы работаете с Excel в том же сеансе.

0