新手求教 如何从一个网站的多个网页中抓取信息

新手求教 怎么从一个网站的多个网页中抓取信息。
我想从一个网站http://www.aloharag.com/eng的多个网页抓取信息，应该怎么设计。当我想抓取的description ,details and size 的 class name 都是“std"又该怎么抓取。

我在这里做了一点设计，试了一下，只能从一个页面抓取，比如这个设计只能抓到PRODUCT AND PRICE,请高手指点。多谢。
Sub test()
Dim eRow As Long
Dim ele As Object
Set sht = Sheets("Sheet1")
RowCount = 1

sht.Range("A" & RowCount) = " product"
sht.Range("B" & RowCount) = "price"
sht.Range("C" & RowCount) = "description"
sht.Range("D" & RowCount) = "details"
sht.Range("E" & RowCount) = "size"
eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Set objIE = CreateObject("InternetExplorer.Application")
mydesignername = InputBox("Enter name of designer")

With objIE
.Visible = True
.navigate " http://www.aloharag.com/eng"

Do While .Busy Or _
.readyState <> 4
DoEvents
Loop
Set what = .document.getElementsByName("q")
what.Item(0).Value = mydesignername
.document.getElementsbyTagname(“button”)(0).click
Do While .Busy Or _
.readyState <> 4
DoEvents
Loop
For Each ele In .document.all
Select Case ele.classname
Case “item last”
RowCount = RowCount + 1
Case “product-name”
sht.Range("A" & RowCount) = ele.innertext
Case  "price"
sht.Range("B" & RowCount) = ele.innertext

Case "std"
sht.Range("C" & RowCount) = ele.innertext
End Select
Next ele
End With
End Sub




------解决方案--------------------

Private Sub CommandButton1_Click()

    Set hf = CreateObject("htmlfile")

    With CreateObject("Microsoft.XMLHTTP")

        .Open "GET", "http://www.aloharag.com/eng/catalogsearch/result/?order=relevance&dir=desc&q=SATURDAYS", False