Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Sonnetrut © (2006-03-16 12:42:00)
Помогите пожалуйста привязать файл эксэля к моей программе для выборки информации оттуда

balepa (2006-03-16 13:23:00) [1]

> Fay © (16.03.06 13:19) [8]
> 2 balepa © (16.03.06 13:09) [4]
> Не обращай внимания - я пошутил 8)

%) %) %) %) %) %)

Fay (2006-03-16 13:19:00) [2]
2 balepa © (16.03.06 13:09) [4]
Не обращай внимания - я пошутил 8)

Anatoly Podgoretsky (2006-03-16 13:15:00) [3]
Это автору виднее

balepa (2006-03-16 13:14:00) [4]

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

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

Anatoly Podgoretsky (2006-03-16 13:10:00) [5]
Ой ли, может он про защиту?

balepa (2006-03-16 13:09:00) [6]

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

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

Fay (2006-03-16 12:52:00) [7]
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 12:48:00) [8]
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:44:00) [9]
2 Sonnetrut © (16.03.06 12:42)
"привязать" - это как?
"привязать...для выборки информации" - это как и зачем?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »