Страница 1 из 1

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

Добавлено: 20 авг 2007, 12:46
ElenaA
Здравствуйте,

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

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

Заранее спасибо.

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

Добавлено: 20 авг 2007, 16:16
Лелик_1044
Как ты с ним работаешь?

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

Добавлено: 21 авг 2007, 09:10
ElenaA
//Перезапись 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;

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

Добавлено: 21 авг 2007, 10:38
Лелик_1044
У exl есть функция что-то типо message которая отключает все сообщения

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

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