Excel обработка прайса VB

[Osferon]

Есть прайс пример (price.xls), нтмл файлы больше 10 000 пример (.asp@cd=54075.html). Нужен макрос для автоматической обработки с таким алгоритмом:

1. Удаление позиций с отсутствующим товаром. Проверяем столбец "F" (файл "price.xml"), если "-" удаляем строку и переходим на следующую пока не достигнем конца прайса.
2. Поиск имени файла с нужной картинкой. На каждый товар в прайсе, есть нтмл файл в каталоге "d:/html",в котором указано имя файла с картинкой. Переходим в начало прайса и проверяем столбец "С", если в текущей ячейке цифровой код, ищем в имени которого есть такой же код (".asp@cd=54075.html" соответствует товару в "price.xml" поле "Код" которого "54075"), если такой файл не найден, переходи к следующей строке, если найден, тогда ищем в этом файле первое вхождение указывающее на имя файла с изображением pa9f8306oj.jpeg"
3.Ставим ссылку на файл изображение в столбце "Н" в файле "price.xls" ссылка должна состоять из двух частей: первая неизменная указывающая путь к файлам вида "http://sayt.com/",вторая часть имя файла которое мы искали в пункте 2.

В результате должен получиться прайс с заполненным столбцом "Н" ссылками на изображение товара пример в файле "priceout.xls"

Возможно ли это на VB?

[doober]

Возможно.
Вам в помощь функция для получения ссылки на картинку,дабы не играться с DOM,а читать файл HTML как текст.
На остальное сейчас времени нет.

Public Function Get_Img(ByVal s) As String
        Dim n As Integer, m As Integer, sl As String
        s = Trim(s)
        bRes = False
        Set RegExp = CreateObject("VBScript.RegExp")
        RegExp.Global = False
        RegExp.IgnoreCase = True
        RegExp.Pattern = "<img[^>]+(src)\s*=\s*""?([^ "">]+)"
        bRes = RegExp.test(s)
        If bRes Then
                Set oMatches = RegExp.Execute(s)
                Get_Img = "http://sayt.com/" & oMatches(0).SubMatches(1)
        End If
End Function

[Osferon]

Очень благодарен за помощь, но к сожалению я далек от VB и не понимаю, что мне делать с этой функцией. Если, возможно дайте полное решение задачи. Возможна в качестве благодарности небольшая оплата.

[doober]

Пишите на strojservis_собака_nxt.ru,я думаю договоримся.