Скачать: CL | DM;

Создание Excel файла   Найти похожие ветки 

← →
turonix ©   (2004-12-10 01:03) [0]

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

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

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

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

---

← →
GanibalLector ©   (2004-12-10 02:01) [1]


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;

---

← →
turonix ©   (2004-12-11 22:24) [2]

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

---

← →
GuAV ©   (2004-12-11 22:37) [3]


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

---

← →
GanibalLector ©   (2004-12-11 22:43) [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;


---

← →
GanibalLector ©   (2004-12-11 22:44) [5]

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

---

← →
YurikGL ©   (2004-12-12 22:11) [6]

> turonix ©   (10.12.04 01:03)  


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

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

---

← →
turonix ©   (2004-12-15 02:20) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.979 c