Populating List from Items on the Web

[Adroitking]

I hope this is possible but not sure. I have a macro inside a userform that logs me onto a secure website. I would now like to import all the account names from the combobox on the website to the combobox on the userform.

Is this possible?

Looking at the source code from the website. this is what I can see

<select id="AcctList" name="AcctList" class="bodytext" onChange="javascript:SelectAcct()">

<option selected value="">Select an Account</option>

<option value='Account Name 1'> Account Name 1
<option value='Account Name 2'> Account Name 2

 

[Joe Was]

You may be able to change this to fit your page, the key is to find a tag in the HTML then count the characters to the right of that tag to your data.

You may add a loop to this to get the whole list?


Sub TickerVal()
'Run from Sheet Module!
Dim xmlhttp, Quote$, myDT$

'Create the XML document type reference.
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")

'Get my range of call letters one-at-a-time from this sheet.
'Change this data range as needed!
Set rng = Range("A:A")

For Each c In rng
'Check for the last call letters in list.
If IsEmpty(c.Value) Then Exit For

'Open a connection to the server and get the call letter's web page text.
strURL = "http://finance.yahoo.com/q?s=" & Trim(c.Value) & "&d=t"
'http://finance.yahoo.com/q?s=IBM&d=t
xmlhttp.Open "GET", strURL, False, "", ""

'Send for the information needed!
xmlhttp.Send
'Return the html code page information for the call letters used.
RtnPage = xmlhttp.ResponseText

'If call letters are missing: get the next set or exit!
On Error GoTo myEnd

'If the lay-out of the web page is changed you must update the search below!
'Find the "Last Trade:" label on the web page for the current set of call letters:
myStart = InStr(RtnPage, "Last Trade:")
'The Ticker value is "52" characters right of the found label.
myDatStart = myStart + 52
'Get the actual text value from the web page!
Quote = Mid(RtnPage, myDatStart, 5)
'Print the call letters ticker value on this sheet.
c.Offset(0, 1).Value = Quote
'Print Time and date next to price.
myDT = Format(Time, "Medium Time") & " on: " & Format(Date, "General Date")
c.Offset(0, 2).Value = myDT

myEnd:
Next
End Sub