Excel + Delphi 7

[lastalert]

Всем привет.
Совсем недавно начал разбираться с редактированием информации в таблице экселя с помощью прог сделанных в делфи... В общем, пишу программу, которая открывает уже существующую на диске экселевскую книгу и производит обмен данными (прога <=> эксель). В данный момент редактирование производится по одной ячейке, т.е. в эдите указываю адрес, а в мемо - значение. Столкнулся с такой проблемой: когда повторно открываю книгу, то выкидывает ошибку
Access violation at address 0045A54E in module 'Excelfi.exe'. Read of address 00000000.
Открываю так:

if openDialog1.Execute
    then
      begin
        path := OpenDialog1.FileName;
        Excel := CreateOleObject('Excel.Application');
        Excel.Workbooks.Open[path];
        openDialog1.Free;
      end
     else
        ShowMessage('Вы не выбрали документ для редактирования.');

Так же необходимо сделать подсчет суммы в столбце таблицы и поиск по определенному критерию. Как это сделать я пока не знаю :-(
Если кто-нибудь делал подобную программу или знает, как это организовать, напишите ответ пожалуйста.
Заранее благодарен.
С ув. lastalert

[DarkEvil]

а Вы уничтожаете указатели на созданый екземпляр Excel после закрытия книги? )

[Necro]

почитай тут

[lastalert]

DarkEvil, книжку закрываю так:
Excel.ActiveWorkbook.Close;
Excel.Application.Quit;
Мне говорили что-то по поводу Excel.Free или Excel.Destroy, но оно не сработало. Я не знаю синтаксис этой команды.

Necro, спасибо за ссылку, действительно полезная инфо.

[DarkEvil]

собственно посмотрите вложения, как бы здесь все работает с вашими строчками ))))
может проблема заложена где-то в ином участке кода )

[lastalert]

не могу придумать алгоритм поиска по экселевской таблице. Т.е. в один Edit пишем что нужно найти, а в другом Edit"е - выдать результат поиска или сообщение о том, нет того что ищем. Думаю что нужно как-то считать все в массив, а потом искать по очереди... Других оригинальных идей пока нету.
Поделитесь пожалуйста идеями

Исправил ошибку с повторным открытием эксель документа...
Проблема была в этой строке: openDialog1.Free;
----------------------------------
Поиск пытался сделать так:

procedure TForm1.Button7Click(Sender: TObject);
var i, j   : integer;
    search : array[1..100, 1..100] of string;
    srch   : string;
begin
  srch := Edit4.Text;    // то, что нужно найти
  for i := 1 to Excel.ActiveCell.Row do
    for j := 1 to Excel.ActiveCell.Column do
      begin
        search[i, j] := Excel.Range[i, j];  // в массив все значения ячеек экселя
        if search[i, j] = srch              // поиск в массиве
          then
            Edit5.Text := 'Адрес: ' + IntToStr(i) + IntToStr(j)
          else
            Edit5.Text := 'Не найдено';
      end;
end;

Выкинуло "OLE Error"

Что не так в коде? Помогите... Уже не знаю как иначе переписать исходник.

[lastalert]

И снова всем привет. Опять поднимаю тему с поиском по таблице...
Осталось сделать смену столбцов при поиске.

for j := 1 to Excel.ActiveCell.Row do
   begin
         if Excel.Range['A' + IntToStr(j), EmptyParam].Value2 = srchval
            then
              begin
                Flag := TRUE;
                Break;
              end
            else
              // здесь как-то сменить столбец. Т.е. в Excel.Range['B'  => 'C' =>...
   end;

Надеюсь получить в ответ оригинальный алгоритм смены столбцов. (Сейчас же в мыслях символьный массив от А..Z, элементы которого менять в цикле).