Экспорт в Excel

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Zroman
Сообщения: 75
Зарегистрирован: 20 апр 2005, 19:23
Откуда: Киев

Как вообще генерировать фалы Excel в Delphi? По какому слову искать в хелпе? Что об этом можно почитать в Сети?
P.S. Понимаю что вопрос ламерский, но ума не приложу, с какой стороны к нему подойти.
Аватара пользователя
LAngel
Сообщения: 277
Зарегистрирован: 30 мар 2005, 08:19
Откуда: Ульяновск
Контактная информация:

Можно посмотреть модуль ExcelXP,
а если проще - CreateOleObject('Excel.Application');
С уважением, Lost Angel...
UUU
Сообщения: 310
Зарегистрирован: 17 фев 2004, 09:27
Откуда: Иваново
Контактная информация:

Можно еще проще. Если это просто текстовая таблица.
Выводишь данные в текстовый файл с разделителями табуляции и ставишь ему расширение xls.
Ексель сам разобъет :-)
Dr_Grizzly
Сообщения: 407
Зарегистрирован: 13 сен 2004, 12:05
Откуда: Курган
Контактная информация:

Хошь код брошу???

Код: Выделить всё

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;

Не бейте сильно, т.к. списывал с коленки у соседки!Но тут пример открытия уже готового документа. А если надо создать... гм... у нее не было написано...
:)
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

После "DocExcel." можно писать все, что найдется в справке по VBA в MSOffice.

Для создания: DocExcel.Workbooks.Add;
Для записи в ячейки: DocExcel.ActiveWorkbook.Cells[r,c]:="qwe";
Для сохранения: DocExcel.Workbooks.Save; {тут можно и параметры задать}

PS
Есть еще соедний форум по VBA, так что сильно тут не увлекайтесь.
Zroman
Сообщения: 75
Зарегистрирован: 20 апр 2005, 19:23
Откуда: Киев

Большое спасибо всем. Щас буду пробовать.
Ответить