Текущий архив: 2007.08.12;
Скачать: CL | DM;
Вниз
Определение координат ячейки в 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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.017 c
