Excel

← →
_MAD_ © (2003-04-09 15:33) [0]

помогите мне лиз у меня есть файл типа Excel так вот в нем еть всякая разная информация вот мне и надо ее проверить на уникальность. тоесть узнать есть ли в этом столбце строка со значение которое уже встречалось. и соответственно ее удалить. если это вообше возможно то где можно нарыть примерчик

← →
Андреев Павел (2003-04-09 15:51) [1]

Для работы с Excel есть компоненты типа ExcelApplication, ExcelWorksheet, ExcelWorkbook на вкладке Servers. Они в принципе просто дают интерфесы которые предоставляет Excel (их можно получить и без этих компонент). О самих этих интерфесах можно почитать в справке по VBA в самом Excel"е. На Delphi все методы будут выглядеть анологично (или почти анологично).

Там через ExcelWorksheet.Range[frange,frange].value получаем/изменяем значения ячеек. Где-то недалеко были и методы для удаления/добавления.

← →
MalkoLinge © (2003-04-09 15:53) [2]

Да можно...Зайди
на
Www.delphikingdom.com и найди цикл статей "По волнам интеграции"

← →
_MAD_ © (2003-04-09 16:02) [3]

в общем понятно но если вдруг кто примерчик найдет работающий напишите плиз

← →
_MAD_ © (2003-04-09 16:02) [4]

в общем понятно но если вдруг кто примерчик или компонент найдет работающий напишите плиз

← →
Андреев Павел (2003-04-09 16:14) [5]

ExcelApp.Connect;
ExcelApp.Workbooks.Open("1.xlt",EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);
ExcelWorksheet.ConnectTo(ExcelApp.ActiveWorkbook.Sheets[1] as _Worksheet);

...
if ExcelWorksheet.Range["CN4","CN4"].value := val1
then ExcelWorksheet.Range["CN4","CN4"].value := "";
...

ExcelApp.caption := "12345";
ExcelApp.Visible[0] := true;
ExcelWorksheet.Activate;

ExcelWorksheet.Disconnect;
ExcelApp.Disconnect;

Что там еще надо было ?

спасибо

Excel Найти похожие ветки