Скачать: CL | DM;

Привязка файла 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]
> Ой ли, может он про защиту?

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

---

← →
Anatoly Podgoretsky ©   (2006-03-16 13:15) [7]

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

---

← →
Fay ©   (2006-03-16 13:19) [8]

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

---

← →
balepa ©   (2006-03-16 13:23) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.046 c