Сообщество Чайников

Вопрос

Как мне безоговорочно переписать существующий файл? Вот, что у меня есть:

 excelapp.Workbooks(1).SaveAs FileName:="c:\tmp.xls", AccessMode:=xlShared

  Сейчас, если файл c:\tmp.xls есть, то задается вопрос, переписать ли поверх. Мне же надо, чтобы он это не спрашивал, а сразу молча переписывал.

Ответ

Чтоб не выводились предупреждения в офисных приложениях, надо свойство DisplayAlerts установить в False:

excelapp.DisplayAlerts = False
…
excelapp.Workbooks(1).SaveAs FileName:="c:\tmp.xls", AccessMode:=xlShared
…
excelapp.DisplayAlerts = True

Kirill