Submitting w/o Submit button (Web)

[Todd Bardoni]

I'm trying to query a webpage...

Excel enters the value into the field I want. To submit manually, I have to hit the Enter key since there is no command button on the webpage. How can I have Excel hit Enter automatically? Is this even clear?

 

[Von Pookie]

Well, what I use is the code from Juan I found here:
http://www.mrexcel.com/board2/viewtopic.php?p=290770#290770

This is what I mentioned previously and will copy everything. It could most likely be changed to copy only the necessary area, but I've never bothered. I just coded to delete the extra stuff and format as I needed on the sheet.

 

[Todd Bardoni]

Yeah, even if I could just get the source code then I could do somethig with that...

Just saw your porst Kristy...I'll take a look.
Whatever happened to Juan anyway?

 

[Norie]

Kristy

I've seen and tried adapting that code before, and just tried it on Todd's page.

It didn't work previously and doesn't work now.

The code runs fine but nothing is pasted.

Does it work for you?

This is what I tried.

Sub WebQuery()
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True
            .Navigate "http://www.xpresswayplus.com/webapp/magec/servlet/Production"
            Do Until .ReadyState = 4
                DoEvents
            Loop
            Set myTextField = .document.all.Item("txtPart")
            myTextField.Value = "1229G1619"
            ie.document.forms(0).submit
            Do Until .ReadyState = 4: DoEvents: Loop
            Do While .busy: DoEvents: Loop
            .ExecWB 17, 2
            .ExecWB 12, 2
            ActiveSheet.Paste Range("A1")
    End With
End Sub

 

[Todd Bardoni]

No, it does not work for me...

 

[Norie]

Todd

I can get the source code like this.

MsgBox ie.document.forms(0).innerHTML

You can also get the text like this.

MsgBox ie.document.forms(0).innerText

I tried putting the HTML in a cell hoping Excel might actually see it as HTML but no luck.

 

[Todd Bardoni]

Ya know, I tried copying the page manually and no luck. I wonder if they put code in there to prevent it from being copied?

Thanks, Norie, I'll try it...

 

[Todd Bardoni]

Norie, you're a genious! This will work just fine! Thanks.

But I'd still like to know why I can't copy the page. Turns out I can copy the table manually, but not not the entire page...

 

[Norie]

Todd

I can copy the entire table.

I've started on parsing the code.

strProductTable = ie.document.forms(0).innerHTML
            
pos1 = InStrRev(strProductTable, "TABLE")
pos1 = InStrRev(strProductTable, "TABLE", pos1)
pos2 = InStrRev(strProductTable, "TABLE", pos1)
strProductTable = Mid(strProductTable, pos2 - 1, pos1 - pos2 + 7)

This isolates the HTML code for the table.

I'm not 100% sure how to proceed from here, I'm going to look into the Split function,
or whether this would work with other tables.

 

[Todd Bardoni]

Norie, I will leave this up to you because it is very simple to extract the data I need from

MsgBox ie.document.forms(0).innerText

So, if you'd like to increase all of our knowledge then please proceed, but as for the task at hand, I think we're all set.

 

[Norie]

Todd

I probably will continue with it but with less emphasis as it's just a 'simple' parsing exercise now.

I've found it quite interesting looking into this, especially the HTML object stuff.

I'm kinda disappointed that there I can't seem to find anything in there where you could simply grab the table/data.

If I ever get a working solution I'll post back.