excel

← →
suslic (2002-07-29 12:36) [0]

Хочу работать из своей программки с Excel файлом:
1) читать из него
2) писать в него.
Подскажите как сделать. А именно:
какую компоненту использовать для связи,
какую для отоброжения в моей программке,
как обращаться к ячейкам.

Спасибо.

← →
BAY (2002-07-29 12:53) [1]

Как вариант ранее связывание:
Компонента TExcelApplication
Затем:
var WB : _WorkBook; WS : _WorkSheet; //Процедура открывает xls файл Procedure OpenWB(N : String); begin If Assigned(FExcel.Excel) then WB := FExcel.Excel.WorkBooks.Open(N,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0); end; //Переводит фокус на n-й лист Procedure SelectWS(n : Integer); begin if Assigned(WB) then WS := WB.WorkSheets.Get_Item(n) as _WorkSheet; end;

begin
OpenWB(<имя файла>);
SelectWS(<Номер листа>);
//Теперь доступ к ячейкам чз WS.Cells.Item[i,j] :
WS.Cells.Item[i,j].Value := MyVar;
MyVar := WS.Cells.Item[i,j].Value;
end;

← →
suslic (2002-07-29 16:36) [2]

Спасибо, но:
1)при компиляции пишет
[Error] Unit1.pas(32): Undeclared identifier: "FExcel"

2)ему не нравиться адрес файла OpenWB(c:\aa\1.xls);
пишет
[Error] Unit1.pas(47): Undeclared identifier: "c"
[Error] Unit1.pas(47): "END" expected but ")" found

3)и как мне отобразить содержимое ячеек с A1 по c10.
Через какую компоненту отображать,
с помощью какой компоненты связать, и с чем связать???

← →
koks (2002-07-29 17:22) [3]

Зайди на сайт "Королевство Delphi". Читай там статьи "По волнам интеграции I , II , III). Там есть все ответы на твои вопросы.

← →
3JIA9I CyKA (2002-07-29 20:10) [4]

Можно так

uses ComObj; procedure Phuck; var EA, WB, WS : Variant; begin EA := CreateOleObject("Excel.Application"); WB := EA.WorkBooks.Add; WS := WB.WorkSheets[1]; WS.Range["A1:bB4"].ColorIndex := 3; WS.Cells[1,1].Value := 1.2345; end;

← →
ValWhite (2002-08-04 15:35) [5]

megadethВот тут про Delphi&Excel: http://www.afalinasoft.com/rus/tips/index.html
достаточно хорошо и с примерами.

← →
BAY (2002-08-05 07:38) [6]

suslic (29.07.02 16:36)
1)FExcel - название формы, где лежит Excel : TExcelApplication
2)В кавычки взять надо: OpenWB("c:\aa\1.xls");

Удачи.

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