Не вполне понятна задача (т.е. как что будет происходить), но в коде страницы есть к чему привязаться:  
 
var shop_id="Kalibrierte Messgeräte";var product_brand="VOLTCRAFT";var product_id="121704"

{quote}{login=Hugo}{date=09.12.2011 11:28}{thema=}{post}Не вполне понятна задача (т.е. как что будет происходить){/post}{/quote}  
 
как я себе представляю схему (возможно, проще как-то по-другому):  
excel берет из одной таблицы артикул, идет с ним на сайт (возможно, самостоятельно генерируя ссылку), затем берет категорию со страницы и вставляет ее в новую таблицу (если категория новая) и добавляет рядом артикул или просто вставляет артикул в уже существующую категорию.  
 
а акак привязаться к коду страницы?

Привязаться к коду можно так (вернее получить текст страницы в sHtmlCode):  
 
Public sURL As String, sHtmlCode As String  
 
Private Sub URL2HTML()  
'Загружает Web-страницу, заданную переменной sURL, и помещает HTML в sHtmlCode  
   Dim objHttp As Object  
   On Error Resume Next  
   Set objHttp = CreateObject("MSXML2.XMLHTTP.3.0")  
   If Err.Number <> 0 Then  
       Err.Clear  
       Set objHttp = CreateObject("MSXML2.XMLHTTP")  
       If Err.Number <> 0 Then  
           Set objHttp = CreateObject("MSXML.XMLHTTPRequest")  
       End If  
   End If  
   If objHttp Is Nothing Then  
       MsgBox "Невозможно создать объект для подключения к интернет!", 48, "Ошибка"  
       End  
   End If  
   If objHttp Is Nothing Then Exit Sub  
   objHttp.Open "GET", sURL, False  
   On Error Resume Next  
   objHttp.Send  
   If Err.Number <> 0 Then  
       MsgBox "Отсутствует доступ в интернет!", 48, "Ошибка"  
       End  
   End If  
   On Error GoTo 0  
   sHtmlCode = objHttp.responseText  
   Set objHttp = Nothing  
End Sub  
 
 
 
Далее ищем нужное например так:  
 
   sRate = Mid(sHtmlCode, InStr(InStr(1, sHtmlCode, Currency_), sHtmlCode, "right>") + 6, 20)

С этого можно стандартным web-запросом взять, всю таблицу цен в одну колонку.  
Но вот как потом красиво разбить по колонкам - не вижу легкого способа...