get element by name not working in excel vba
<p>this is the HTML code:</p>

<pre><code>&lt;table&gt;
&lt;tr&gt;&lt;td&gt;Date:&lt;/td&gt;&lt;td&gt;&lt;input type='text' name='d' value=''&gt;&lt;br&gt;(Example: Oct. 8)&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td&gt;Teams:&lt;/td&gt;&lt;td&gt;&lt;input type='text' name='away' value=''&gt; at &lt;input type='text' name='home' value=''&gt;&lt;br&gt;(Example: Florida at Buffalo)&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td&gt;Time:&lt;/td&gt;&lt;td&gt;&lt;input type='text' name='t' value=''&gt;&lt;br&gt;(Example: 7:00 PM)&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&lt;br&gt;&lt;input type='submit' value='Submit'&gt;"
</code></pre>

<p>I am using this code to:</p>

<pre><code>Sub extractdata()
    Dim x As Long
    Dim objie As Object
    Set objie = CreateObject("internetexplorer.application")
    objie.Top = 0
    objie.Left = 0
    objie.Width = 800
    objie.Height = 600
    objie.Visible = True
    objie.navigate "http://www.dailynhlgoalies.com/loadSchedule.php"

    x = 1

    Dim aloha As String
    Dim aloha1 As String
    Dim aloha2 As String
    Dim aloha3 As String

     aloha = Sheet1.Range("A" &amp; x).Value
    aloha1 = Sheet1.Range("B" &amp; x).Value
    aloha2 = Sheet1.Range("C" &amp; x).Value
    aloha3 = Sheet1.Range("D" &amp; x).Value

    Application.Wait (Now + #12:00:02 AM#)

    Do
    DoEvents

    If Err.Number &lt;&gt; 0 Then
        objie.Quit
        Set objie = Nothing
        GoTo the_start:
    End If

    Loop Until objie.readyState = 4
        objie.document.getelementbyname("d").Value = aloha
        objie.document.getelementbyname("away").Value = aloha1
        objie.document.getelementbyname("home").Value = aloha2
        objie.document.getelementbyname("t").Value = aloha3
End Sub
</code></pre>

<p>but it is not working</p>