Показать сообщение отдельно
  #9  
Старый 15.02.2010, 16:45
Аватар для Dead_Gigabit
Dead_Gigabit Dead_Gigabit вне форума
Начинающий
 
Регистрация: 20.10.2009
Адрес: Там где холодно и сыро.... брр
Сообщения: 135
Версия Delphi: Delphi XE
Репутация: 10
По умолчанию

Вот что получилось, указал куда иму выводить
код:
Код:
procedure TForm1.Button4Click(Sender: TObject);
var
 XL, WB, Sheet : Variant;
begin
 XL := CreateOLEObject('Excel.Application');
 XL.Application.EnableEvents := false;
 WB := XL.Workbooks.Open('F:\ARB\Doc\WorkBook.xls');
Sheet := WB.ActiveSheet;
Sheet.Cells[4, 1]:= DateTimePicker1.Date;
Sheet.Cells[12, 91]:=Edit1.Text;
Sheet.Cells[15, 20]:=Edit2.Text;
Sheet.Cells[19, 91]:=Edit3.Text;
XL.Save ('F:\ARB\Doc\WorkBook.xls');
XL.visible:=false;
XL.Ouit;
Админ: Где теги? Не забываем про оформление, иначе последуют санкции!

На что выходит 2 проблемы: он спрашивает куда сохронять и под каким именеи потому что прога открывает фаил WorkBook.xls под именем WorkBook1.xls с тем же содержимым, скорей всего что эти процессы Excel запущенные в памяти мешают открыть ему родной фаил WorkBook.xls так же при сохранении выскакивает ошибка, типа документ открыт тока для чтения, думаю тоже из-за этих процессов, подскажите как дальше быть...
Ответить с цитированием