Создание 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]

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

> turonix © (10.12.04 01:03)

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

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

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

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