| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
экспорт в excel [D7, XP]
Sergey2 © (2010-04-13 15:13:00)Выгружаю в эксель.
Примерно вот так:
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 от экселя ?
MsGuns (2010-04-15 00:16:00) [1]Презентация компонент ?
:)
V (2010-04-14 20:14:00) [2]отличный компонент VTKExport... если память не подводит.
YurikGL (2010-04-14 19:23:00) [3]Кстати, cxGrid позволяет делать xls-файл без екселя. Прямо табличку создает.
YurikGL (2010-04-14 19:22:00) [4]Проще в екселовский xml чем в их формат.
Dennis I. Komarov (2010-04-14 08:59:00) [5]Вроде МелкоМягкие открыли формат... Методичку в зубы и ...
Leonid Troyanovsky (2010-04-13 18:09:00) [6]
> Sergey2 (13.04.10 15:13)
> пишет, класс не зарегистрирован. Нельзя как нибудь безболезненно
> выйти из этого ?
Грузи в html, авось, найдется читалка.
--
Regards, LVT.
Leonid Troyanovsky (2010-04-13 18:05:00) [7]
> 12 © (13.04.10 17:30) [5]
> зачем им, тем, где нет екселя выгрузка в него?
Например, денежку на оный копят.
И потом все сразу прочитают.
Есть, ЕМНИП, и б/п ридеры by MS.
--
Regards, LVT.
12 (2010-04-13 17:30:00) [8]зачем им, тем, где нет екселя выгрузка в него?
Anatoly Podgoretsky (2010-04-13 16:46:00) [9]> Игорь Шевченко (13.04.2010 16:43:02) [2]
И прямое тоже не гарантируется.
Anatoly Podgoretsky (2010-04-13 16:46:00) [10]Удалено модератором
Игорь Шевченко (2010-04-13 16:43:00) [11]
> Переношу на машину где нет экселя - нифига не работает
Было бы странно обратное
Сергей М. (2010-04-13 15:16:00) [12]
> безболезненно
Не получится.
| |
