Diclosure: I'm just an office clerk and very-very new to VBA and HTML. Hopefully you will be patient with me. I would really appreciate any guidance and help. Hopefully I'm formatting it correctly.
I spent whole day yesterday trying to import information from intranets web-page to automate routing copying and pasting. This will really help in the long run.
Since power-query doesn't seem to see the table I need, I figured the only option is using VBA. MsServer tool grabs page perfectly, but to my disappointment page came out with error, since it needs to authorize before access it first.
I figured with the use of IE it should work, since IE have login information in cookies.
Here where I got so far.
Sub ExtractFromEndeca() Dim ie As InternetExplorer Dim html As
IHTMLDocument Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False
ie.Navigate "intranet address"
While ie.Busy
DoEvents Wend While ie.ReadyState < 4
DoEvents Wend
Set Doc = CreateObject("htmlfile")
Set Doc = ie.document
Set Data = Doc.getElementById("findSimilarOptions2")
Sheet1.Cells(1, 1) = Data
ie.Quit Set ie = Nothing
ThisWorkbook.Sheets(1).Cells(1, 1) = Data
End Sub
Result is [object] in Cell A1 and that's it and I can't understand if I got past login or not.
Here is a page fragment I'm trying to grab. Ideally this data will be output as a table.
<td valign="top" id="findSimilarOptions2">
<div class="subtitle">Part Attributes</div>
<input type="checkbox" id="n_200012" value="-19192896" NAME="n_200012">
<b>
ASSY TYPE</b> >
Component<br>
<input type="checkbox" id="n_200013" value="-18148519" NAME="n_200013">
<b>
PARAMETER I NEED(1)</b> >
VALUE I NEED(1)<br>
<input type="checkbox" id="n_200006" value="-20823731" NAME="n_200006">
<b>
PARAMETER I NEED(2)</b> >
VALUE I NEED(2)<br>
<input type="checkbox" id="n_200006" value="-20823618" NAME="n_200006">
<b>
PARAMETER I NEED(3)</b> >
VALUE I NEED(3)<br>
<input type="checkbox" id="n_200006" value="-20823586" NAME="n_200006">
<b>
PARAMETER I NEED(4)</b> >
VALUE I NEED(4)<br>
...