Заменить существующий файл. - Microsoft Office Excel

agregator · 08.11.2010, 09:12

Здравствуйте уважаемые программисты. При сохранении файла как "Y:\Папка\Путевки.xls"

Код:

ActiveWorkbook.SaveAs Filename:="Y:\Папка\Путевки.xls", FileFormat:= _
        xlNormal
    ActiveWorkbook.Close

Появляется окно. "Файл ‘Путевки.xls’ уже существует. Заменить его? Да Нет"
Напишите пожалуйста код, который сохраняет существующий файл без необходимости нажимать Да.

VictorM · 08.11.2010, 09:26

Код:

Sub Сохранить()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Temp\Сохранить.xls", FileFormat:= _
                          xlNormal
    Application.DisplayAlerts = True
    ActiveWorkbook.Close
End Sub

SAS888 · 08.11.2010, 09:27

Перед процедурой сохранения файла, запретите вывод сообщений с помощью

Код:

Application.DisplayAlerts = False

agregator · 08.11.2010, 09:37

Спасибо, всем за помощь. Работает как надо.

08.11.2010, 09:12	#1
agregator Форумчанин Регистрация: 09.05.2009 Сообщений: 369	Заменить существующий файл. Здравствуйте уважаемые программисты. При сохранении файла как "Y:\Папка\Путевки.xls" Код: `ActiveWorkbook.SaveAs Filename:="Y:\Папка\Путевки.xls", FileFormat:= _ xlNormal ActiveWorkbook.Close` Появляется окно. "Файл ‘Путевки.xls’ уже существует. Заменить его? Да Нет" Напишите пожалуйста код, который сохраняет существующий файл без необходимости нажимать Да.

08.11.2010, 09:26	#2
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Код: `Sub Сохранить() Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Temp\Сохранить.xls", FileFormat:= _ xlNormal Application.DisplayAlerts = True ActiveWorkbook.Close End Sub` "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

08.11.2010, 09:27	#3
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Перед процедурой сохранения файла, запретите вывод сообщений с помощью Код: `Application.DisplayAlerts = False` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
заменить kbhit()	kaljan775	Общие вопросы C/C++	8	16.10.2010 18:50
найти и заменить	smallfish	Microsoft Office Word	2	15.05.2010 22:50
Как заменить файл на сайте?	jekaz	Работа с сетью в Delphi	7	08.05.2010 21:33
Открыть файл как Hex найти там некий участок кода, заменить его и сохранить	AstraZak	Общие вопросы C/C++	10	05.03.2010 18:58
Заменить	lubov_morkov	Помощь студентам	4	07.02.2010 20:38

08.11.2010, 09:37	#4
agregator Форумчанин Регистрация: 09.05.2009 Сообщений: 369	Спасибо, всем за помощь. Работает как надо.