| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание Excel файла [Delphi, Windows]

turonix ©   (2004-12-10 01:03:00) 

Приветствую! у иеня тут возникла проблема. Как мне создать excel файл для записи информации в него если он не существаует?

       MyApp:=CreateOleObject('Excel.Application');
       MyApp.WorkBooks.Open('C\ProgramFiles\
Borland\Delphi7\Projects\test.xls');

       MyApp.Cells[1,1] := 'test';
       MyApp.Quit;

И еще. При закрытии файла всплывает диалоговое окно с предложением сохранить изменения. Как мне производить автосохранение чтобы это окно не всплывало?

---

turonix   (2004-12-15 02:20:00) [1]

Я тут обнаружил еще проблему. В Excel удается записывать строки не более 31 символа. иначе выдается ошибка. Можно ли как-нибудь обойти это правило?

---

YurikGL   (2004-12-12 22:11:00) [2]

> turonix ©   (10.12.04 01:03)  


> Как мне создать excel файл для записи информации в него
> если он не существаует?

Можно хранить где-нибудь шаблон файла (1.xl_) и просто копировать его в нужное место при необходимости.

---

GanibalLector   (2004-12-11 22:44:00) [3]

Эх,неуспел...

---

GanibalLector   (2004-12-11 22:43:00) [4]

Не трудно и самому догадаться...

XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.WorkBooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Name:='test ;)';
XLApp.WorkBooks[1].Sheets[1].Cells[3,2]:='GanibalLector';
XlApp.ActiveWorkbook.SaveAs('C:\fuck__.xls');
//XlApp.ActiveWorkbook.Close(1);  
XlApp.Quit;


---

GuAV   (2004-12-11 22:37:00) [5]


   XLApp:=CreateOleObject('Excel.Application');
   WB:=XLApp.Workbooks.Add;
   WB.WorkSheets[1].Name:='test ;)';
// etc

---

turonix   (2004-12-11 22:24:00) [6]

Спасибо автосохранение теперь работает. Но вот как же мне создать Excel файл? В данном примере подразумевается что файл уже создан...

---

GanibalLector   (2004-12-10 02:01:00) [7]


var XLAPP:OleVariant;
begin
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.WorkBooks.Open('C:\test.xls');
XLApp.WorkBooks[1].WorkSheets[1].Name:='test ;)';
XLApp.WorkBooks[1].Sheets[1].Cells[3,2]:='GanibalLector';
XlApp.ActiveWorkbook.Close(1);
XlApp.Quit;
end;

---

Наверх