Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.055 c
1-1181045623
Kolan
2007-06-05 16:13
2007.08.12
Какие могут быть причины не попасть в код потока после Resume?


9-1157313285
_Razor_
2006-09-03 23:54
2007.08.12
Текстурирование ландшафтов


1-1180536447
Unknown user
2007-05-30 18:47
2007.08.12
Создание большого Bitmap a


2-1184158240
AZIZE
2007-07-11 16:50
2007.08.12
перегрузка операций


15-1184232418
boriskb
2007-07-12 13:26
2007.08.12
Ничего лучшего, чем "Офигеть!!!" придумать не могу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский