работа с Excel

← →
Demon Ltd (2002-06-06 23:03) [0]

Допустим, у меня уже создан экселевский файл - my.xls. Как програмно загрузить
Excel с этим файлом.

← →
Sergey Novoselow (2002-06-07 05:56) [1]

Посмотри так я открывал уже созданный шаблон или файл и экспортировал данные из базы данных.
Использовал компонент на страничке Servers TExcelApplication унего свойство name := ExcelApp;

Если че пиши...

procedure TFrm_Pf_Excel.Btn_ExcelClick(Sender: TObject);
var
work_b : _WorkBook; {Определяем рабочую книгу}
work_s : _WorkSheet; {Определяем рабочий лист}
wsIndex : OleVariant; {Определяем Item рабочей книги}
i : Integer; {Определяем индекс строки в странице}
A, B, C, D, J, K, L, M, O, R, S, T, U, V, W, AA, AB, AC, AD :String; {Определяем используемые ячейки}
begin
wsIndex := 1;
i := 8;
ExcelApp.Connect; {Соеденяемся с сервером ExcelApplication}
ExcelApp.Workbooks.Open(ExtractFilePath(Application.ExeName)+"plan_fact.xlt",EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0); {Добавляем книгу}
work_b := ExcelApp.Workbooks.Item[wsIndex]; {Выбираем первую рабочую книгу}
work_s := work_b.Worksheets.Get_Item(1) as _WorkSheet; {Определяем первую рабочую страницу}
Dm.Query_Raznoe.First;
while not Dm.Query_Raznoe.Eof do
begin
inc(i);
A := "A"+IntToStr(i); {Определяем координаты ячеек}
B := "B"+IntToStr(i);
C := "C"+IntToStr(i);
D := "D"+IntToStr(i);
J := "J"+IntToStr(i);
K := "K"+IntToStr(i);
L := "L"+IntToStr(i);
M := "M"+IntToStr(i);
O := "O"+IntToStr(i);
R := "R"+IntToStr(i);
S := "S"+IntToStr(i);
T := "T"+IntToStr(i);
U := "U"+IntToStr(i);
V := "V"+IntToStr(i);
W := "W"+IntToStr(i);
AA := "AA"+IntToStr(i);
AB := "AB"+IntToStr(i);
AC := "AC"+IntToStr(i);
AD := "AD"+IntToStr(i);

work_s.Range[A, A].Value := i; {Номер П/П}
work_s.Range[B, B].Value := "p"+Dm.Query_Raznoe.Fields[0].AsString; {Код}
work_s.Range[C, C].Value := Dm.Query_Raznoe.Fields[1].AsString; {Наименование}
work_s.Range[D, D].Value := Dm.Query_Raznoe.Fields[2].Value; {Всего}
work_s.Range[J, J].Value := Dm.Query_Raznoe.Fields[3].Value; {Начисления}
work_s.Range[K, K].Value := Dm.Query_Raznoe.Fields[4].Value; {Сальдо}
work_s.Range[L, L].Value := Dm.Query_Raznoe.Fields[5].Value; {Оплат из *.dbf}
work_s.Range[M, M].Value := Dm.Query_Raznoe.Fields[6].Value; {Оплата / начисление}
work_s.Range[O, O].Value := Dm.Query_Raznoe.Fields[7].Value; {... / 32000}
work_s.Range[R, R].Value := Dm.Query_Raznoe.Fields[8].Value; {...}
work_s.Range[S, S].Value := Dm.Query_Raznoe.Fields[9].Value; {...}
work_s.Range[T, T].Value := Dm.Query_Raznoe.Fields[10].Value; {...}
work_s.Range[U, U].Value := Dm.Query_Raznoe.Fields[11].Value; {...}
work_s.Range[V, V].Value := Dm.Query_Raznoe.Fields[12].Value; {...}
work_s.Range[W, W].Value := Dm.Query_Raznoe.Fields[13].Value; {...}
work_s.Range[AA, AA].Value := Dm.Query_Raznoe.Fields[14].Value; {Примечание}
work_s.Range[AB, AB].Value := Dm.Query_Raznoe.Fields[15].AsString; {...}
work_s.Range[AC, AC].Value := Dm.Query_Raznoe.Fields[16].AsString; {...}
work_s.Range[AD, AD].Value := Dm.Query_Raznoe.Fields[17].AsString; {...}

Dm.Query_Raznoe.Next;
Gauge1.Progress := i;
end;
{Обрамление ячеек -------------------------------------------------------------}
with work_s.Range["A9", AC].Borders do
begin
LineStyle := xlContinuous;
Weight := xlThin;
ColorIndex := xlAutomatic;
end;
{Обрамление ячеек -------------------------------------------------------------}
{Свойства WorkSheet------------------------------------------------------------}
work_s.Name := "План-Факт";
work_s.Columns.HorizontalAlignment := xlLeft; {Определяем позицию записи в ячейке т.е. лево, центр, право}
//work_s.Columns.AutoFit; {Определяем ширину всех колонок в странице Автоматически}
{Свойства WorkSheet------------------------------------------------------------}
ExcelApp.Visible[0] := true; {Показываем Excel}
ExcelApp.Disconnect; {Разрываем связь с Excel сервером}
end;

работа с Excel Найти похожие ветки