VBA Internet Explorer Automation - Setting an element contained within a frame

[mulligan2k]

Morning all

 

as the title suggests im having some fun learning how to control internet explorer from within excel using vba

 

I can create an internet explorer object fine, can navigate etc, the tricky part is controlling elements on the webpage

 

I've managed to set and edit text box elements on some webpages fine, but I cant seem to do the same if the text boxes are in frames, the code wont find them

 

this is the website im playing around with: http://marstonstaverns.purchase.emea1.fourth.com/

 

and here is my code so far

 

Dim objShell As Object          'shell object
Dim objShellWindows As Object   'shell windows object
Dim objIE As Object             'Internet explorer object
Dim intTemp As Variant          'Temp integer for working
Dim docIE As HTMLDocument       'Document for Internet Explorer - the page contents?
Dim elIE As IHTMLElement        'Element for Internet Explorer - the element to control

Set objShell = CreateObject("shell.application")
Set objShellWindows = objShell.Windows
Set objIE = New InternetExplorer

'Create shells and internet explorer - note i already have ie open so dont need to make this new one visible

For intTemp = 0 To objShellWindows.Count - 1

    On Error Resume Next

    If objShellWindows.Item(intTemp) = objIE Then
        If Not InStr(0, objShellWindows.Item(intTemp).LocationURL, "marstonstaverns") = 0 Then
            Set objIE = objShellWindows.Item(intTemp)
        End If
        
    End If
    
    'loop through current ie applications until find the one for the website i want to automate
        
Next

    Set docIE = objIE.Document
    'set document to current page contents
    
    Set elIE = docIE.getElementById("txtUsername")
    'this would work if the txtusername control was not in a frame
    
    Set elIE = objIE.Document.getElementsByid(0).contentDocument.getElementsByid("txtUsername")
    'this is what im struggling to get to work

    elIE.Value = "hello"
    'this is my test line

 

 

if anyone who is more experienced with vba internet explorer can help it would be much appreciated

 

 

Cheers

Phil