Привязка файла Excel

← →
Sonnetrut © (2006-03-16 12:42) [0]

Помогите пожалуйста привязать файл эксэля к моей программе для выборки информации оттуда

← →
Fay © (2006-03-16 12:44) [1]

2 Sonnetrut © (16.03.06 12:42)
"привязать" - это как?
"привязать...для выборки информации" - это как и зачем?

← →
balepa © (2006-03-16 12:48) [2]

procedure TForm1.Button3Click(Sender: TObject);
var
s: string;
Excel, WorkBook, Sheet: Variant;
begin
Excel := CreateOleObject("Excel.Application.8");
Excel.Visible := False;
//Excel.CoInitialize;
Excel.Workbooks.Open("c:\Мои документы\Книга1.xls");
Sheet := Excel.Workbooks[1].WorkSheets[1];
s:= sheet.cells[1,1]; //[строка, столбец]
label1.Caption:= s;
Excel.Workbooks.Close;
Excel.Quit;
end;
Между прочим есть в FAQ на сайте

← →
Fay © (2006-03-16 12:52) [3]

2 balepa © (16.03.06 12:48) [2]
> s:= sheet.cells[1,1]; //[строка, столбец]
> label1.Caption:= s;

Ага.

s:= sheet.cells[1,1]; //[строка, столбец]
s := StringReplace(s, " ", " ", [rfReplaceAll]) + StringReplace(s, "-", "-", []);
SetLength(s, Length(s) div 2);
label1.Caption:= s;

← →
balepa © (2006-03-16 13:09) [4]

> Fay © (16.03.06 12:52) [3]

Главное я наставил его на путь "истинный"

← →
Anatoly Podgoretsky © (2006-03-16 13:10) [5]

Ой ли, может он про защиту?

← →
balepa © (2006-03-16 13:14) [6]

> Anatoly Podgoretsky © (16.03.06 13:10) [5]
> Ой ли, может он про защиту?

Кто? От кого ? :)

Это автору виднее

Привязка файла Excel Найти похожие ветки