Delphi и и Excel

← →
KIE (2003-05-14 15:41) [0]

Как сделать:
1. Запизать имеющийся файл xls куда-нить с глаз далой, например в рес и экзешник.
2. Прочитать из рес-файла или экзешника данный xls файл.
3. Занести значения в некоторые ячейки, произвести обсчет (если есть на листе формулы)
4. Распечатать некоторые листы.

И Как сделать так, что бы этот xls лист был не видим, и управление им шло чисто программно?

← →
Dms (2003-05-14 15:43) [1]

XL.Visible:=False;

← →
KIE (2003-05-14 22:52) [2]

Вот ещще одна непридвиденность .... как вообще (какой компонент используя) можно работать с xls фалами??? попробовал через ком подрубить, а он .... говорит нет такого двайвера или метода. Все перепробовал ничего не выходит.

← →
gek © (2003-05-15 07:21) [3]

XLSReadWrite

← →
NewD (2003-05-15 10:26) [4]

ADO и DAO могут работать с Excel и без Excel.Application.

← →
KIE (2003-05-15 11:15) [5]

XLSReadWrite это что такой стандартный компонент??????? И в какой вкладке он есть ????

← →
Dms (2003-05-15 11:38) [6]

XL : Variant; ... XL:=CreateOleObject("Excel.Application");

← →
Vorobyev Sergey (2003-05-15 11:44) [7]

Есть хороший набор компонент FLExcel ( http://www.freewebs.com/flexcel/)
Позволяет:
- сформировывать отчеты в Excel (либо через OLE-адаптер, либо через встроенный (Native) адаптер, т.е. даже БЕЗ ПРИСУТСТВИЯ НА МАШИНЕ САМОГО EXCEL);
- формирование отчета на основе шаблона в том же Excel;
- хранить шаблоны в программе (т.е. в EXE);
- читать/записывать в/из Excel файлы;
и др.
И ВСЕ ЭТО ПОЛНОСТЬЮ С ИСХОДНИКАМИ.. Так что поменяешь что-нибудь, если надо будет..

← →
KIE (2003-05-16 14:54) [8]

Спасибо конечно всем за информацию, но у меня опять новый вопрос.
Для Vorobyev Sergey >> Как проинсталить компонент? не стает демон млин никак! Для DMS >> Это все нормально, но где достать инфу по его методам и т.д. ????

← →
Diouzshev © (2003-05-16 15:08) [9]

> Для DMS >> Это все нормально, но где достать инфу по его
> методам и т.д. ????

Import Type Library
http://delphi.vitpc.com - поищи статьи "по волнам интеграции..."
Excel VBA Help.

← →
asafr © (2003-05-16 15:16) [10]

Сайт "Королевство Дельфи", раздел "Hello word"... Там есть статьи, которые отвечают на все твои вопросы...
Самый лучший способ программировать в Office из под дельфи - создавай макросы в офисных приложениях, смотри код и переноси в Delphi...

← →
Dms (2003-05-16 17:49) [11]

> Это все нормально, но где достать инфу по его методам и
> т.д. ????

я купил книжецу по VBA - там все подробно написано. плюс такие книжки очень дешевые.

← →
Vorobyev Sergey (2003-05-17 10:21) [12]

> Как проинсталить компонент? не стает демон млин никак!

Вообще-то там есть описание как инсталлить.. (установка через пакеты *.dpk)
Но вроде помню, что сам что-то менял (не сложно, если понимаешь, что такое пакеты).
Если не получится, пиши.. Разберем подробно..

← →
KIE (2003-05-19 14:25) [13]

Vorobyev Sergey >> Как раз-то согласно описанию он и не встает :(

← →
Vorobyev Sergey (2003-05-21 17:43) [14]

> Как раз-то согласно описанию он и не встает :(

Опиши поподробней в чем именно проблема, а то угадать как-то трудно.. :-)

← →
KIE (2003-05-22 13:19) [15]

Он ругается на отсутствие библиотек и на то, что не может его просто откомпилить

← →
Vorobyev Sergey (2003-05-22 16:53) [16]

Ну что прямо поделаешь с тобой!!!!!
Пиши подробнее..

> Он ругается на отсутствие библиотек и на то, что не может
> его просто откомпилить

Каких библиотек? Как ругается? .............. и т.д.

← →
AbrosimovA (2003-05-23 10:35) [17]

Что касается компонентов FLExcel - у меня установилось без проблем по прилагаемой инструкции в Delphi6(win 98).
Думаю для Delphi5 должно быть аналогично.

1. Разархивировал FLEXCELD6.zip в папку Program Files.
2. В Delphi в меню "Инструменты->Параметры окружения" во вкладке
"Библиотека" добавил следующие пути для поиска библиотек:
C:\Program Files\FLEXCELD6\FlexCel
C:\Program Files\FLEXCELD6\Design
C:\Program Files\FLEXCELD6\XLSAdapter
C:\Program Files\FLEXCELD6\OLEAdapter
3. Запустил из папки C:\Program Files\FLEXCELD6\Packages файл
FlexCel60.dpk и затем нажал Install. Далее все время жал OK.
4. После всех манипуляций в палитре появилась вкладка
FlexCel со следующими компонентами:
FlexCelReport
FlexCelReportNoDB
XlsDBTemplateStore
TOLEAdapter
TFlxMemTable
TXLSAdapter
TXlsTemplateStore
TFlexCelGrid
TFlexCelPreview

← →
SnakeR © (2003-05-23 11:45) [18]

А вот как стандартными компонентами Д: ExcelApplication, ExcelWorkBokk и т.д. изменять ширину столбцов и высоту строк в Excel Ну и все остальное желательно, т.е. Объеденение ячеек, рамки, диограммы...

← →
AbrosimovA (2003-05-23 12:28) [19]

uses ...,Variants,ComObj,OleServer,Excel97,Excel2000,ActiveX;

type
TMainForm = class(TForm)
ExcelApplication: TExcelApplication;
ExcelWorkSheet: TExcelWorksheet;
ExcelWorkBook: TExcelWorkbook;
procedure ConnectExcel;
procedure DisconnectExcel;
procedure SaveDataToExcel;
private
{ Private declarations }
procedure SetExcel;

public
{ Public declarations }
end;

var
MainForm: TMainForm;
Excel,WorkBook,WorkSheet1:OleVariant;

implementation

procedure TMainForm.ConnectExcel;
begin
try
Excel:=CreateOleObject("Excel.Application");
// Отключаем реакцию Excel на события, чтобы ускорить вывод
// информации
Excel.Application.EnableEvents := false;
if Not FileExists(ExtractFilePath(Application.ExeName)
+"data.xls") then
begin
Workbook :=Excel.WorkBooks.Add;
WorkBook.SaveAs(ExtractFilePath(Application.ExeName)
+"data.xls");
WorkBook.Close;
end;
WorkBook:=Excel.WorkBooks.Open(ExtractFilePath
(Application.ExeName)+"data.xls");
WorkSheet1:=WorkBook.WorkSheets[1];
WorkSheet1.Name:="Данные";
WorkSheet1.Activate;
finally
SetExcel;
end;
end;

procedure TMainForm.SetExcel;
begin
WorkSheet1.Cells.Select;//Выбрать все ячейки
WorkSheet1.Cells.Clear;//Очистить содержимое ячеек
// Установка параметров шрифта всех ячеек
WorkSheet1.Cells.Font.Name:= "Arial";//Имя
WorkSheet1.Cells.Font.Size:= 10;//Размер
WorkSheet1.Cells.Font.Bold:= true;//Жирный
WorkSheet1.Cells.Font.Italic:= true;//Наклонный
WorkSheet1.Cells.Font.Color:= RGB(0,183,0); //Цвет
//Параметры всех столбцов
WorkSheet1.Cells.ColumnWidth:=11;// Ширина столбца
WorkSheet1.Cells.HorizontalAlignment:= xlCenter;//Выравнивание
по правому краю
//Параметры строки 1
WorkSheet1.Rows.Item[1].Font.Name:= "Arial";
WorkSheet1.Rows.Item[1].Font.Size:= 10;
WorkSheet1.Rows.Item[1].Font.Bold:= true;
WorkSheet1.Rows.Item[1].Font.Italic:= true;
WorkSheet1.Rows.Item[1].Font.Color:= RGB(0,0,0); //Цвет шрифта

//Параметры столбца 1
WorkSheet1.Columns.Item[1].Font.Name:= "Arial";
WorkSheet1.Columns.Item[1].Font.Size:= 10;
WorkSheet1.Columns.Item[1].Font.Bold:= true;
WorkSheet1.Columns.Item[1].Font.Italic:= true;
WorkSheet1.Columns.Item[1].ColumnWidth:=17.6;// Ширина столбца
WorkSheet1.Columns.Item[1].Font.Color:= RGB(0,0,0);
WorkSheet1.Columns.Item[1].HorizontalAlignment:=xlRight;
WorkSheet1.Range["A1","B1"].Merge; //Объединение ячеек A1 и B1

//параметры ячейки на пересечении столбца 1 и строки 1
WorkSheet1.Cells.Item[1,1].Font.Color:= RGB(0,0,255);
WorkSheet1.Cells.Item[1,1].Borders.LineStyle:=xlDouble;//Бордюр- непрерывная линия
WorkSheet1.Cells.Item[1,1].Borders.Weight:=xlMedium;//Ширина
бордюра
WorkSheet1.Cells.Item[1,1].Interior.Color:=RGB(220,220,220);
//цвет фона ячейки
WorkSheet1.Cells.Item[1,1].HorizontalAlignment:= xlCenter;
//Выравнивание по правому краю
WorkSheet1.Cells.Item[1,1].Select;
WorkSheet1.Cells.Item[1,1].Value:="aaaaaaaaaaa";//Запись в
ячейку
end;

и т.д. Все это есть в справке по Visual Basic к Excel. Например,
для Office 2000 файл справки называется Vbaxl9.chm.

← →
Пубертанец (2003-05-23 17:27) [20]

To Vorobyev Sergey
Когда запускаю FlexCelReport1.Run он у меня запрашивает *.pas файлы. я смотрю такие файлы, но dcu-шные есть в подпапке Flexcel, но он все равно просит *.pas

← →
Vorobyev Sergey (2003-05-24 14:01) [21]

>Пубертанец
А пути к папке, где находятся dcu/pas прописаны?
Проверь в Delphi: Tools->Enviroment options->Library->Library path должен быть прописан путь к твоим pas/dcu..

← →
Пубертанец (2003-05-26 10:48) [22]

Да, прописаны. Но в той папке лежат только dcu, а компонент запрашивает pas, не пойму почему.

← →
VAP (2003-05-26 11:42) [23]

У меня такая же ерунда. Пришлось ставить более раннюю версию.
Flexcel v2.5.3 С небольшим гемороем встала.

← →
Пубертанец (2003-05-26 12:02) [24]

Устанавливаю для 5-ой Делфи, и уже при установке пакета просит эти файлы. Че творить?

← →
VAP (2003-05-26 12:24) [25]

Скачай более раннюю версию, она еще с исходниками.

← →
Пубертанец (2003-05-26 12:57) [26]

Я скачал более раннюю версию, но исходников там нет. Может, их уже убрали оттуда. Будь добр, не скупись, если имеешь, кинь мне на мыло, пожалуйста.

← →
VAP (2003-05-26 13:28) [27]

Кинул.
Flexcel v2.5.3 - 1,7 Mb

Delphi и и Excel Найти похожие ветки