Как можно при помощи VB проверять изменения в прайс листах?

[VePr]

Люди добрые! Поможите кто чем может!!!

Я думаю, этот вопрос будет многим интересен. Ежедневно получаю по 20-30 прайсов от поставщиков. В экселе. Ежедневно приходится проверять их - цены могут менятся по два раза на дню.

Может кто подскажет как можно при помощи VB проверять изменения? Позиции могут как добавлятся, так и исчезать. В названиях могут быть изменения вплоть до одной буквы.

[alibek]

Есть ли какой-нибудь однозначный идентификатор (код, артикул или что-нибудь еще)? Если нет, то автоматизировать не получится.

[VePr]

есть код товара
прайс выглядит так:
|код|наименование|гарантия|цена|наличие кол-во|

[alibek]

Коды товара сквозные у всех поставщиков?

Если да, то я подобную задачу сделал за 40 минут, правда я это делал у непосредственного клиента, себе копии не оставил, поэтому поделиться не могу.

Суть следующая.
Вначале создаешь сводную таблицу с колонками "Номер товара", "Название товара", "Цена поставщика 1", "Цена поставщика 2", ..., "Цена поставщика N".
Затем создаешь массив такого типа:

Код: Выделить всё

Type GoodType
  Code As String
  Name As String
  Row As Long
End Type
Dim arrGoods() As GoodType


Code - это код товара, Name - его название, Row - в какой строке сводной таблицы он будет содержаться.

Затем по очереди проходишься по всем файлам прайсов, считываешь строки и ищешь номер элемента arrGoods(). Если в массиве не найден товар с таким кодом, то добавляешь его в таблицу и присваиваешь очередной номер строки сводной таблицы.

[uhm]

Мэйби можно через ВПР()? Без всякого ВБА?
И еще, если нет кода, но названия меняются не сильно, была у меня функция нечеткого сравнения строк...

[VePr]

Что такое ВПР()? функция нечеткого сравнения строк
напиши пожалста как реализовать оба способа

[uhm]

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

Что касается нечеткого сравнения: это функция, которая по двум строкам говорит не "равны или не равны", а "насколько похожи" (в процентах, 100% - полное совпадение, но может быть ответ 98%, и это значит, что строки отличаются очень мало). Соответственно, если в названии товаров поменялась одна буковка, ВПР работать перестанет, но функция нечеткого сравнения даст ответ, что строки очень похожи. Здесь, правда, уже без макроса не обойтись.

[alibek]

ИМХО, в данном случае (что некоторые позиции могут отсутствовать в первом прайсе и присутствовать в остальных) без VBA не обойтись.