[Dzer]

Помогите кто знает как, я не спец в Delphi и у меня проблема.
В одной папке лежат несколько книг Excel с разными названиями но одинаковыми листами и одинаковыми формами таблиц и различными цифровыми значениями в них, и есть точно такая же таблица вне этой папки но пустая. Надо что бы нажатием одной кнопки программа брала и в пустую таблицу заносила суммы соответствующих ячеек из всех файлов в папке и желательно отображала процент выполнения операции.

[Kailon]

Думаю эта статья тебе поможет... В ней описаны два компонента для работы с Word и Excel.

[Dzer]

Спасибо за совет и теперь новая проблема, программа с 97-2000 офисом работает нормально в 2010 офисе вылетает ошибка:
Project ....exe raised exception class EOLeSysError with message 'Член группы не найден'. ...
Вот код с местом где вылетает ошибка:

Код:

            For i := 0 to Form1.Files.Items.Count - 1 do
              begin
                TBook := XLApp.Workbooks.Open(Form1.Files.Items.Strings[i]);
                TBook.Worksheets[1].SaveAs[Path + 'tmp1',3,False];
                TBook.Worksheets[2].SaveAs[Path + 'tmp2',3,False];
                TBook.Close[False];
                ReadFile(1,Xn1,Yn1,Xk1,Yk1,0,0,0,0);
                ReadFile(2,Xn2,Yn2,Xk2,Yk2,0,0,0,0);
              end;

Bargest: не забываем про оформление кода!

Я так понимаю для 2010 офиса как то по другому надо переписать обращение к Екселевской книге, как?

[Kailon]

Вот с MS Office 2010 я не проверял, так нет него (и не собираюсь даже его ставить ). С 2007 работает нормально.

[Dzer]

C предыдущей ошибкой разобрался, после SaveAs вместо [ скобочек поставил ( скобочки, но теперь другая ошибка. Какой параметр надо добавить в строке
TBook := XLApp.Workbooks.Open(Form1.Files.Items.Strings[i]);
что бы при открытии книг Excel убирались все разделители групп разрядов (в русской версии это пробелы)?