Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];
Вниз
экспорт в 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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.059 c
