Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];

Вниз

Определение координат ячейки в Excel   Найти похожие ветки 

← →
Knob ©   (2007-07-16 22:33) [0]

Помогите! Как определить координаты ячейки? И как можно открыть Excel файл в Delphi?

---

← →
Сергей М. ©   (2007-07-17 08:43) [1]

> Как определить координаты ячейки?


Какой ячейки ? И что значит "как" ?


> как можно открыть Excel файл в Delphi?


Точно так же как и любой другой файл.

---

← →
Knob ©   (2007-07-17 08:53) [2]

Надо найти все ячейки с текстом "12" и записать их координаты

---

← →
evvcom ©   (2007-07-17 09:22) [3]

А какие у тебя самого есть идеи?

---

← →
Сергей М. ©   (2007-07-17 09:25) [4]

Range.Row - номер строки
Range.Column - номер столбца

---

← →
Anatoly Podgoretsky ©   (2007-07-17 14:53) [5]

> Knob  (17.07.2007 08:53:02)  [2]

Дык это же поиск.

---

← →
umbra ©   (2007-07-17 15:46) [6]

uses ...., ComObj, Excel97, ...;

{............................}
var
 XLApp, mybook, myrange, mycell: Variant;
 myaddress, firstcell: string;

{........................................}

 XLApp := Unassigned;
 mycell := Unassigned;
 XLApp := CreateOLEObject("Excel.Application");
 if not VarIsEmpty(XLApp) then
   try
     mybook := XLApp.Open(Filename:="c:\test.xls");
     myrange := mybook.Worksheets[1].Cells;
     mycell := myrange.Find(What:="12", LookIn:=xlValues);
     if not VarIsEmpty(mycell) then
       firstcell := mycell.Address;
     while not VarIsEmpty(mycell) and (mycell.Address <> firstcell) do
        begin
          ShowMessage(mycell.Address);
          myrange.FindNext;
        end;
   finally
     mycell := Unassigned;
     myrange := Unassigned;
     mybook.Close(SaveChanges:=False);
     mybook := Unassigned;
     XLApp.Quit;
     XLApp := Unassigned;
   end;


---

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

Форум: "Начинающим";
Текущий архив: 2007.08.12;
Скачать: [xml.tar.bz2];

Наверх

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