Страница 1 из 1
Экспорт в Excel
Добавлено: 28 сен 2005, 19:53
Zroman
Как вообще генерировать фалы Excel в Delphi? По какому слову искать в хелпе? Что об этом можно почитать в Сети?
P.S. Понимаю что вопрос ламерский, но ума не приложу, с какой стороны к нему подойти.
Добавлено: 29 сен 2005, 08:15
LAngel
Можно посмотреть модуль ExcelXP,
а если проще - CreateOleObject('Excel.Application');
Добавлено: 29 сен 2005, 08:52
UUU
Можно еще проще. Если это просто текстовая таблица.
Выводишь данные в текстовый файл с разделителями табуляции и ставишь ему расширение xls.
Ексель сам разобъет :-)
Добавлено: 29 сен 2005, 09:44
Dr_Grizzly
Хошь код брошу???
Код: Выделить всё
Uses ...., comobj;
.....
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
DocExcel:Variant;
implementation
{$R *.dfm}
......
procedure TForm1.Button1Click(Sender: TObject);
begin
DocExcel:=CreateOleObject('Excel.Application');
DocExcel.Workbooks.Open('C:\Книга1.xls');
If vartype(DocExcel)=varDispatch then
DocExcel.visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If vartype(DocExcel)=varDispatch then
begin
DocExcel.Displayalerts:=false;
DocExcel.Quit;
DocExcel:=Unassigned;
end;
end;
Не бейте сильно, т.к. списывал с коленки у соседки!Но тут пример открытия уже готового документа. А если надо создать... гм... у нее не было написано...
Добавлено: 29 сен 2005, 12:07
Naeel Maqsudov
После "DocExcel." можно писать все, что найдется в справке по VBA в MSOffice.
Для создания: DocExcel.Workbooks.Add;
Для записи в ячейки: DocExcel.ActiveWorkbook.Cells[r,c]:="qwe";
Для сохранения: DocExcel.Workbooks.Save; {тут можно и параметры задать}
PS
Есть еще соедний форум по VBA, так что сильно тут не увлекайтесь.
Добавлено: 29 сен 2005, 13:46
Zroman
Большое спасибо всем. Щас буду пробовать.