Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];
ВнизПривязка файла 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.038 c