Перезапись файла Excel

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
ElenaA
Сообщения: 15
Зарегистрирован: 09 июн 2006, 10:00

Здравствуйте,

У меня есть файл Excel, который программно нужно обработать и перезаписать...
Но проблема.
При перезаписи файла Excel автоматически выдает окно с предложением этот файл сохранить. При этом на окне есть кнопочка "Отменить", при нажатии на которую возникает ошибка метода "Close".

Подскажите, плз,
1) Можно ли как-нибудь сохранять автоматически, чтоб не спрашивалось?
2) При сохранении желательно иметь возможность сохранить файл под другим именем, и вообще, со своим диалогом записи...

Заранее спасибо.
Лелик_1044
Сообщения: 340
Зарегистрирован: 22 ноя 2004, 19:15
Откуда: Минск
Контактная информация:

Как ты с ним работаешь?
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
ElenaA
Сообщения: 15
Зарегистрирован: 09 июн 2006, 10:00

//Перезапись excel-файла
if Nzamen>0 then
begin
Exl:=createoleobject('Excel.Application');
Exl.WorkBooks.Open(fileName);
Exl.Application.Worksheets.Item[1].Select;
Sheet:=Exl.Application.Worksheets.Item[1];
Sheet.Cells.SpecialCells(xlCellTypeLastCell,emptyParam).activate;
x:=Exl.ActiveCell.row+10;
y:=Exl.ActiveCell.column+10;
Exl.Application.Range['A1',Exl.Cells.item[x,y]].value:=RangeM;
Exl.Application.Range['A1','A1'].activate;
Exl.WorkBooks.close;
Exl.Application.Quit;
end;
Лелик_1044
Сообщения: 340
Зарегистрирован: 22 ноя 2004, 19:15
Откуда: Минск
Контактная информация:

У exl есть функция что-то типо message которая отключает все сообщения
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
ElenaA
Сообщения: 15
Зарегистрирован: 09 июн 2006, 10:00

... Попробовала тупо:
Exl.Application.save;
Так теперь он спрашивает про сохранение "Resume.xlw" ... Мрак.
Методом тыка ищу что-то типо message.
Ответить