Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

экспорт в excel   Найти похожие ветки 

 
Sergey2   (2010-04-13 15:13) [0]

Выгружаю в эксель.
Примерно вот так:


var
 ExcelApplication: TExcelApplication;
 ExcelWorkBook: TExcelWorkbook;
 ExcelWorkSheet: TExcelWorksheet;
 LCID: Integer;
 I: OleVariant;
begin
 try
   Screen.Cursor := crHourGlass;
   Visible := True;

   ExcelApplication := TExcelApplication.Create(Self);
   ExcelWorkBook := TExcelWorkbook.Create(Self);
   ExcelWorkSheet := TExcelWorksheet.Create(Self);
   ExcelApplication.ConnectKind := ckNewInstance;
   ExcelWorkBook.ConnectKind := ckRunningOrNew;
   ExcelWorkSheet.ConnectKind := ckRunningOrNew;
   ExcelApplication.Connect;

   ExcelWorkbook.ConnectTo(
     ExcelApplication.Workbooks.Open(AFileNameSource, EmptyParam, EmptyParam, EmptyParam,
     EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
     EmptyParam, EmptyParam, EmptyParam, LCID));

   ExcelWorkSheet.ConnectTo(ExcelWorkbook.Worksheets.Item[1] as _Worksheet);

   ExcelWorkSheet.Cells.Item[1, 1] := "test";

 finally
   if FileExists(AFileNameDest) then
     DeleteFile(AFileNameDest);

   ExcelWorkBook.SaveAs(AFileNameDest, xlNormal, "", "", False, False, xlNoChange,  EmptyParam, EmptyParam, EmptyParam, EmptyParam, LCID);

   ExcelApplication.Quit;

   ExcelWorkSheet.Disconnect;
   ExcelWorkSheet.Free;

   ExcelWorkBook.Disconnect;
   ExcelWorkBook.Free;

   ExcelApplication.Disconnect;
   ExcelApplication.Free;

   Screen.Cursor := crDefault;
 end;


Переношу на машину где нет экселя - нифига не работает. пишет, класс не зарегистрирован. Нельзя как нибудь безболезненно выйти из этого ? - типа подкинуть рядом с exe какую нибудь dll от экселя ?


 
Сергей М. ©   (2010-04-13 15:16) [1]


> безболезненно


Не получится.


 
Игорь Шевченко ©   (2010-04-13 16:43) [2]


> Переношу на машину где нет экселя - нифига не работает


Было бы странно обратное


 
Anatoly Podgoretsky ©   (2010-04-13 16:46) [3]

> Игорь Шевченко  (13.04.2010 16:43:02)  [2]

И прямое тоже не гарантируется.


 
Anatoly Podgoretsky ©   (2010-04-13 16:46) [4]

Удалено модератором


 
12 ©   (2010-04-13 17:30) [5]

зачем им, тем, где нет екселя выгрузка в него?


 
Leonid Troyanovsky ©   (2010-04-13 18:05) [6]


> 12 ©   (13.04.10 17:30) [5]

> зачем им, тем, где нет екселя выгрузка в него?

Например, денежку на оный копят.
И потом все сразу прочитают.

Есть, ЕМНИП, и б/п ридеры by MS.

--
Regards, LVT.


 
Leonid Troyanovsky ©   (2010-04-13 18:09) [7]


> Sergey2   (13.04.10 15:13)  

> пишет, класс не зарегистрирован. Нельзя как нибудь безболезненно
> выйти из этого ?

Грузи в html, авось, найдется читалка.

--
Regards, LVT.


 
Dennis I. Komarov ©   (2010-04-14 08:59) [8]

Вроде МелкоМягкие открыли формат... Методичку в зубы и ...


 
YurikGL ©   (2010-04-14 19:22) [9]

Проще в екселовский xml чем в их формат.


 
YurikGL ©   (2010-04-14 19:23) [10]

Кстати, cxGrid позволяет делать xls-файл без екселя. Прямо табличку создает.


 
V   (2010-04-14 20:14) [11]

отличный компонент VTKExport... если память не подводит.


 
MsGuns ©   (2010-04-15 00:16) [12]

Презентация компонент ?
:)



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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.058 c
15-1269507983
iZEN
2010-03-25 12:06
2010.08.27
Локальный линуксокапец


15-1268600721
XXL
2010-03-15 00:05
2010.08.27
Тупой вопрос про тельавидение


15-1273985187
Учащийся
2010-05-16 08:46
2010.08.27
А как вы разрабатываете программы?


15-1272463529
@!!ex
2010-04-28 18:05
2010.08.27
Кем пойти работать?


3-1241791675
Rimdus
2009-05-08 18:07
2010.08.27
MSDE использование osql.exe