Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.04;
Скачать: CL | DM;

Вниз

Сравнение 2х файлов Excel   Найти похожие ветки 

 
Numark   (2007-01-15 10:00) [0]

Здравствуйте мастера!
Возникла необходимость сравнить 2 файла Excel по содержанию.
Они оба имеют похожий контекст вида столбец A-УРЛ, B-Тип, C-Содержание.
Различия лишь в том, что во 2ом файле 982 записей, а в 1ом 514.

Мне необходимо из 2го файла удалить все записи, которые дублируются в 1ом.

Предположительно, я думаю сравнивать столбец A 1го и 2го файла.
Если текст столбца А, в 1ом файле, совподает с текстом столбца А во 2ом файле, тогда удаляем А,В,С этой строки.

Вот только как именно это реализовать, я недогадываюсь. Подскажите пожалуйста. Спасибо.


 
Megabyte ©   (2007-01-15 13:12) [1]

Если через Дельфи, то используй COM/OLE, сравнивай поячеечно.


 
Numark   (2007-01-16 00:31) [2]


> Megabyte ©   (15.01.07 13:12) [1]

Я написал, полцяилось так:

excel1  := CreateOleObject("excel.application"); //514
excel2 := CreateOleObject("excel.application"); //996
excel1.workbooks.open("X:\excel\Îò÷¸ò.xls");
excel2.workbooks.open("X:\excel\Îò÷¸ò_2.xls");
for i:=2 to 916 do
for j:=2 to 514 do
if excel2.sheets[1].cells[i,1].value = excel1.sheets[1].cells[j,1].value then
Memo1.Lines.Add(IntToStr(i));

Form1.Caption :="Ãîòîâî.";

excel1.quit;
excel2.quit;


Подскажите, как можно удалить эту строчку? Т.Е. её обнулить, а на её место, поставить следующюю?
Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2007.02.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
2-1169072764
InfraRed
2007-01-18 01:26
2007.02.04
Не могу добиться от функции работы


2-1169102897
Mr.Devil
2007-01-18 09:48
2007.02.04
Использование встроеных ресурсов


15-1169042609
Рамиль
2007-01-17 17:03
2007.02.04
Я, конечно, понимаю, авторское право и все такое...


3-1163418732
john81
2006-11-13 14:52
2007.02.04
Crystal Reports


15-1168904668
vasIzmax
2007-01-16 02:44
2007.02.04
Забыл, как...