Eingabetext in IE mit Excel-VBA-Fehler

Question

Ive zur Eingabe von Text in IE versucht, VBA, aber ich halte Objekt immer tut diese Eigenschaft die URL unterstützen, um Eingabetest ich versuche http://www.smartsurvey.co.uk/s/2XKL1/

mein Code

Sub inputusername() 
Dim IE As Object 
Dim name As String 


With Application 
    .ScreenUpdating = False 
    .EnableEvents = False 
End With 

currenttime = Hour(Now()) 

If currenttime < 12 Then 
    g01 = "Morning" 
ElseIf currenttime >= 18 Then 
    g01 = "Evening" 
Else 
    g01 = "Afternoon" 
End If 
'Me.embtn.Visible = True 
'MsgBox (g01 & " " & Application.UserName) 
If MsgBox(g01 & " " & Application.UserName & " Please input your name on the website?", vbYesNo + vbQuestion) = vbNo Then 
    name = InputBox("Please type in your name") 
Else 
    name = Application.UserName 
End If 
'MsgBox (Name) 
Set IE = CreateObject("InternetExplorer.Application") 
With IE 

    .Visible = True 
    .Navigate ("http://www.smartsurvey.co.uk/s/2XKL1/") 
    Do While IE.Busy: DoEvents: Loop 

    IE.doucment.getelementsByName("t31092740").innertext = name 
    IE.document.getelementsByName("cmdGo").Item.Click 
End With 
' cleaning up memory 
IE.Quit 
Set IE = Nothing 

MsgBox "Yippy Thanks" 

End Sub 

ich habe versucht, IE.doucment.getelementsByName("t31092740").innertext mit IE.doucment.getelementsByName("t31092740").innerhtml ersetzt wird; IE.doucment.getelementsByID("t31092740").innertext aber halten Objekt Geting nicht diese Eigenschaft oder Methode

Answer 1

1- Need verwenden Artikel (oder erste Element unter Verwendung von ... ("t31092749") (0) .Value)

2- Need unterstützt Value-Eigenschaft zu verwenden

Versuchen:

IE.document.getElementsByName("t31092740").Item.Value = name 

Hinweis: Es ist "Dokument" natürlich. Ich nehme an, es ist ein Tippfehler in Ihrem Code.