Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Вниз

Сравнение 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.041 c
15-1168854689
Vlad Oshin
2007-01-15 12:51
2007.02.04
Как Вы получаете в свою программу(если получаете) курсы валют?


2-1169189968
sinys
2007-01-19 09:59
2007.02.04
fast report 2.33


2-1169048500
azl
2007-01-17 18:41
2007.02.04
Ctrl + Enter и Memo


2-1168952771
Artik
2007-01-16 16:06
2007.02.04
Мастера Delphi помогите!


2-1168690301
Garacio
2007-01-13 15:11
2007.02.04
ShellExecute (спрятать запущенный процесс)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский