Excel VBA scraping a nested table

[Justas]

Hi,

I'm pretty newbie in excel vba. I have this problem:

I want excel to check the availability of an item @ BGS technic

for instance "1195"
I wrote this vba:

Sub ImportMyData()

Dim IE As New InternetExplorer

IE.Visible = False

IE.navigate "http://www.bgstechnic.com/availability?processed&F1244467957750MNRHTT=_"

Do

DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE

IE.document.getElementById("item-numbers").Value = "1195"

Set goBtn = IE.document.getElementById("bgs-submit")
goBtn.Click

Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE




Dim sdd As String
sdd = IE.document.getElementById("availability-results").innerText

MsgBox sdd


End Sub

My problem is, that I only need the part "Item in in stock, more than 50 pcs. available" to be showed/ inserted in excel, but i don't manage to get it, as it has no separate ID.[TABLE="class: table table-striped"]
<thead>[TR]
[/TR]
</thead><tbody>[TR="class: px"availability-results-row""]
[TD="class: art-id"][/TD]
[TD="class: availability-desc"][/TD]
[/TR]
</tbody> [/TABLE]

Could anybody help me please?

 

[pbornemeier]

I got my answer in German: 1195 Artikel am Lager, mehr als 50 Stück verfügbar
using the following:

Option Explicit

Sub ExtractDataFromTables()
    'Modification of
    'http://www.mrexcel.com/forum/excel-questions/259738-general-q-regarding-using-visual-basic-applications-xl-pass-through-ie.html
    
    Dim ie As Object
    Dim myTextField
    Dim doc     'Variant/Object/HTMLDocument
    Dim goBtn
    
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True
        .Navigate "http://www.bgstechnic.com/availability?processed&F1244467957750MNRHTT=_"
        Do Until .readyState = 4: DoEvents: Loop
        
        ie.document.getElementById("item-numbers").Value = "1195"
        
        Set goBtn = ie.document.getElementById("bgs-submit")
        goBtn.Click
        Stop
        
'        Set myTextField = .Document.all.Item("series_id")
'        myTextField.Value = "ECU11121I"
'        ie.Document.Forms(0).submit
'        Do Until .ReadyState = 4: DoEvents: Loop
'        Do While .Busy: DoEvents: Loop
        Set doc = ie.document
        GetAllTables doc
        .Quit
    End With
    
    Set doc = Nothing
    Set ie = Nothing
    
End Sub

Sub GetAllTables(d)

    Dim e   'Variant/Object/HTMLTable
    Dim t   'Variant/Object/HTMLTable
    Dim tabno As Long
    Dim nextrow As Long
    Dim rng As Range
    Dim r   'Variant/Object/HTMLTableRow
    Dim c   'Variant/Object/HTMLTableCell
    Dim i As Long
    
    For Each e In d.all
        If e.nodeName = "TABLE" Then
            Set t = e
    
            tabno = tabno + 1
            nextrow = nextrow + 1
            Set rng = Range("B" & nextrow)
            rng.Offset(, -1) = "Table " & tabno
            For Each r In t.Rows
                For Each c In r.Cells
                    rng.Value = c.innertext
                    Set rng = rng.Offset(, 1)
                    i = i + 1
                Next c
                nextrow = nextrow + 1
                Set rng = rng.Offset(1, -i)
                i = 0
            Next r
        End If
    Next e
    
    Set rng = Nothing
    Set t = Nothing
    
End Sub

 

[pbornemeier]

I could not figure out how to change the language via code, but a workaround is to add a

Stop

line after the

Do Until .readyState = 4: DoEvents: Loop

line then manually change the language to English and continue.

 

[Justas]

Thank you. Your code works, but i would like to keep it as simple as possible. and afterwards, the list of articles to be checked will run up to 5000-10000. I did try this:

sdd = IE.document.getElementsByTagName("tr")(1).getElementsByTagName("td")(1).innerText

. Unfortunately, when running the first time, it gives an runtime error 91. but then by clicking f5 (further running), it presents me the message with the quantity available. Any clou how to solve this?

and if I try to add

On Error Resume Next

, then i get an empty messagebox....