[ColorDb]

Не могу нигде найти как можно найти фамилию например Иванов и вывести все данные об Иванове.
Есть строка. Фамилия, возраст, где работает, курит, пьет.
Мне надо найти Иванова и вывести в ListBox все строки.
И еще получить номер строки и все координаты строк.
Потому что потом надо поправить пьет или не пьет, курит или не курит.

E.Cells.Find('Фамилия'); Не катит. Находит только фамилию и тупо выводим мне ее, собстно нафиг мне только фамилия я и так знаю что она существет, мне надо ее координаты!!

[Страдалецъ]

Ну а почему-бы циклом по строкам, столбцам на листе не искать?

[ColorDb]

То есть тем же find но искать строго диапазон и буду знать где что лежит.
То есть range(A1:A1).find('Петя'); по возрастающей.
В принципе и так мона если работать будет!!

[ColorDb]

Не, непонимаю.
Достает выводом ошибки что не найден член группы и останавливается, по циклу не ищет зараза!

[Страдалецъ]

Нет не Find, а просто значение ячейки по конкретному адресу проверяйте.
Примерно так:

Код:

if Pos('Петя',WorkSheet.Range['A1']) <> 0 then ListBox1.Items.Add(WorkSheet.Range['A1'])

[ColorDb]

но мне поиск по маске желателен, например слово петь вводим а должно найтись петька

[Asinkrit]

Можно подключить excel-евский файл в виде таблицы бд через bde, и получать оттуда данные запросами SQL.

[Страдалецъ]

Ну и найдется. Почему нет?
Функция Pos() возвращает позицию вхождения S1 в S2
т.е. "Петь" будет найден в "послухай меня Петька хоть раз"

[Страдалецъ]

Сообщение от Asinkrit

Можно подключить excel-евский файл в виде таблицы бд через bde, и получать оттуда данные запросами SQL.

Можно и через SQL, но он через OLE это делает.

[ColorDb]

Сообщение от Страдалецъ

Нет не Find, а просто значение ячейки по конкретному адресу проверяйте.
Примерно так:

Код:

if Pos('Петя',WorkSheet.Range['A1']) <> 0 then ListBox1.Items.Add(WorkSheet.Range['A1'])

Ну что то сдвинулось с места, все заработало.
Вот только как чувствительность к заглавным убрать.
А то фамилию с маленькой буквы не ищет.

[ColorDb]

Блин скачал какую то книгу идиотскую совершенно, немогу даже по ней понять как записать например данные в exel.Cells[1,8];
exel.cells[1,8] := '123' не прокатывает.
Мне надо конкретно по координатам записывать.
Причем при закрытии программы эксель спрашивать сохранить или нет файл.
То есть изменения какие то есть но их не видно. Или сохраняется непонятно куда

[ColorDb]

разобрался!

[ColorDb]

Ура программа закончена только совершенно немогу понять как сделать так чтоб поиск был любыми буквами заглавными или нет. Чувствительность к регистру убрать?? Тоже какие то свойства Exel есть...