Здравствуйте,
У меня есть файл Excel, который программно нужно обработать и перезаписать...
Но проблема.
При перезаписи файла Excel автоматически выдает окно с предложением этот файл сохранить. При этом на окне есть кнопочка "Отменить", при нажатии на которую возникает ошибка метода "Close".
Подскажите, плз,
1) Можно ли как-нибудь сохранять автоматически, чтоб не спрашивалось?
2) При сохранении желательно иметь возможность сохранить файл под другим именем, и вообще, со своим диалогом записи...
Заранее спасибо.
Перезапись файла Excel
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
-
- Сообщения: 340
- Зарегистрирован: 22 ноя 2004, 19:15
- Откуда: Минск
- Контактная информация:
Как ты с ним работаешь?
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
//Перезапись 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;
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;
-
- Сообщения: 340
- Зарегистрирован: 22 ноя 2004, 19:15
- Откуда: Минск
- Контактная информация:
У exl есть функция что-то типо message которая отключает все сообщения
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
... Попробовала тупо:
Exl.Application.save;
Так теперь он спрашивает про сохранение "Resume.xlw" ... Мрак.
Методом тыка ищу что-то типо message.
Exl.Application.save;
Так теперь он спрашивает про сохранение "Resume.xlw" ... Мрак.
Методом тыка ищу что-то типо message.