| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Определение координат ячейки в Excel [D5, XP]

Knob ©   (2007-07-16 22:33:00) 

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

---

umbra   (2007-07-17 15:46:00) [1]

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;


---

Anatoly Podgoretsky   (2007-07-17 14:53:00) [2]

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

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

---

Сергей М.   (2007-07-17 09:25:00) [3]

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

---

evvcom   (2007-07-17 09:22:00) [4]

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

---

Knob   (2007-07-17 08:53:00) [5]

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

---

Сергей М.   (2007-07-17 08:43:00) [6]

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


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


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


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

---

Наверх