Как использовать workbook.saveas с автоматической перезаписью

Question

Как использовать workbook.saveas с автоматической перезаписью

43

В этом разделе кода Excel ALWAYS предлагает: "Файл уже существует, вы хотите перезаписать?"

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?

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

bob.mazzo 31 янв. 2013, в 18:59

Источник

Теги:

vba

excel-vba

excel

excel-2010

2 ответа

3

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

If Dir("f:ull\path\with\filename.xls") <> "" Then
    Kill "f:ull\path\with\filename.xls"
End If

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

Uttam 05 июль 2018, в 10:59

0

Имейте в виду, что если файл открыт в другом процессе. это бросит исключение
MurWade 03 окт. 2018, в 03:26

Ещё вопросы

Имейте в виду, что если файл открыт в другом процессе. это бросит исключение

Sorceri · Accepted Answer · 2013-01-31T21-10-00.000Z

65

Лучший ответ

Чтобы не увидеть приглашение xls.DisplayAlerts = False

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

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)

Sorceri 31 янв. 2013, в 21:10

0

по какой-то причине мне все еще предлагают перезаписать файл: Application.DisplayAlerts = False wb.SaveAs fullfilePath, ConflictResolution: = Excel.xlLocalSessionChanges
bob.mazzo 04 фев. 2013, в 21:37
3

вам нужно указать рабочую книгу, над которой вы работаете, чтобы не отображать предупреждения. Я обновил код выше .... Просто посмотрите на Application.DisplayAlerts должно быть wb.Application.DisplayAlerts
Sorceri 04 фев. 2013, в 22:09
0

спасибо @Sorceri. Я пойду с этим и считаю, что ответили. Спасибо за ваше время ! -Bob
bob.mazzo 05 фев. 2013, в 20:33
0

Нужно ли wb.Application.DisplayAlerts = False ниже значения Set wb = xls.Workbooks.Add ?
user533832 07 июнь 2013, в 12:36
4

@JackDouglas - как написано, вы правы - строка DisplayAlerts=False должна быть после установки объекта Workbook. Однако вы можете установить его глобально, используя только Application.DisplayAlerts . И вам, вероятно, следует также изменить его на True после того, как вы закончите блокировать оповещения.
Kevin Pope 25 июнь 2013, в 17:08
0

+1 за использование wb.Application.DisplayAlerts. Я не знал, что существует.
Chuck The Nerd 26 март 2014, в 19:21
1

@Sorceri ваш ответ имеет много ошибок, пожалуйста, подумайте о пересмотре! Прежде всего, ConflictResolution не имеет ничего общего с приглашением SaveAs перезаписать. (Подробнее см. Здесь - речь идет о конфликтах между несколькими редакторами в общем файле Excel.) Во-вторых , Application.DisplayAlerts является членом объекта Application , а не объекта Workbook . Поэтому после создания нового экземпляра приложения Excel используйте xls.DisplayAlerts = False команду: xls.DisplayAlerts = False . (Это реальная причина, почему код OP не работал.)
vacip 03 дек. 2015, в 11:34
1

В вашем коде wb.application.displayalerts дает тот же результат, что и xls.displayalerts . Смотрите здесь для получения подробной информации о Applicaion VS Workbook.Application . Таким образом, хотя wb.application технически верен, на мой взгляд, он вводит в заблуждение (как видно из некоторых комментаторов, предлагающих использовать Application.Displayalerts ...) Но независимо от того, что вы используете, переместите код в правильную позицию, то есть после создание самого объекта. Теперь ваш код выдает ошибку.
vacip 03 дек. 2015, в 11:49
0

@vacip Хороший улов на дисплее предупреждает перед настройкой объекта. Я удалил ссылку WB. Я предлагаю вам взглянуть на метод saveas объекта книги. msdn.microsoft.com/en-us/library/...
Sorceri 03 дек. 2015, в 15:25
0

@Sorceri спасибо за желание вернуться к этой вековой теме! MSDN говорит о ConflictReslution метода SaveAs: «Возвращает или задает способ разрешения конфликтов при каждом обновлении общей книги ». Речь идет о рабочих книгах с несколькими редакторами. Это не влияет на перезапись существующих файлов.
vacip 05 дек. 2015, в 09:11
2

В этом конкретном вопросе OP создает новый экземпляр Excel (который бесполезен и является плохой идеей, но в любом случае он это делает). Из-за этого вам нужно установить свойство DisplayAlerts для нового экземпляра Excel следующим образом: xls.DisplayAlerts = False сразу после xls.DisplayAlerts = False Set xls = CreateObject("Excel.Application") , а не до этого. Спасибо за ваше терпение и открытость! Это важно, так как ваш ответ находится на первой странице Google для многих поисков. :)
vacip 05 дек. 2015, в 09:15

Показать ещё 9 комментариев