VBAのInternet Explorer：Webフォームを埋めることができない

Question

I Webフォームを埋めるために、次のコードを持っていますが、この特定のWebサイトにコードが動作していない：

Const loginSelectSistema_Name = "url" 
Const loginInputUsuário_Name = "Usuario" 
Const loginInputSenha_Name = "Senha" 
Const loginInputOk_Name = "imageField2" 

Const USERNAME = "NomeUsuário" 
Const PASSWORD = "SenhaAcesso" 

Dim ieApp As InternetExplorer 
Dim iePage As HTMLDocument 

Function loginPage() 
    ' 
    Set ieApp = New InternetExplorer 
    ' 
    ieApp.Visible = True 
    ieApp.navigate (loginWebsite) 
    ' 
    'Wait for page to load 
    Do Until ieApp.ReadyState = READYSTATE_COMPLETE 
    Loop 
    ' 
    ' 
    Set iePage = ieApp.Document 
    ' 
    fillInputObject loginSelectSistema_Name, "jcaa" 
    fillInputObject loginInputUsuário_Name, USERNAME 
    fillInputObject loginInputSenha_Name, PASSWORD 
    ' 
    iePage.all.Item(loginInputOk_Name).Click 
End Function 

Private Sub fillInputObject(ByVal objectName As String, ByVal value As String, Optional IdentificadorElemento As IdentificadorElementoHTML = Nome) 
' 
'Preenche o Objeto Input com um determinado valor 
    Dim elementHTML As HTMLObjectElement 
    ' 
    If (IdentificadorElemento = Nome) Then 
     Set elementHTML = iePage.getElementsByName(objectName).Item 
    End If 
    ' 
    If (IdentificadorElemento = Id) Then 
     Set elementHTML = iePage.getElementById(objectName) 
    End If 
    ' 
    If (IsObject(elementHTML)) Then 
     If (Not (elementHTML Is Nothing)) Then 
      elementHTML.value = value 
     End If 
    End If 
End Sub 

すると、デバッグ、機能fillInputObjectで行： If (Not (elementHTML Is Nothing)) Then値は常にNothingで、Webフォームは入力されません。

<table width="90%" cellspacing="0" cellpadding="0" bordercolor="#DADADA" border="1" bgcolor="#F7F7F8" align="center" height="110"> 
    <tbody><tr height="2"><td width="62"></td><td width="0"></td><td width="592"></td><td width="223"></td></tr> 
      <tr height="15"> 
      <td colspan="4" bordercolor="#F7F7F8" style="vertical-align:left"><strong>Selecione o Sistema:</strong></td> 
      </tr> 
      <tr height="15"> 
      <td colspan="4" bordercolor="#F7F7F8" style="vertical-align:left"> 
       <font size="1px" face="Verdana, Arial, Helvetica, sans-serif"> 
       <select name="url" class="combobox" style="width:180px;"> 

       <option value="jcaa">Cadastro de Alunos</option> 
       <option value="paef">Cadastro Funcional</option> 
       <option value="paec">Controle de Freqüência</option> 
       <option value="papc">Desp de Pessoal (SDPE)</option> 

       <option value="jcgo">Cargos</option> 
       <option value="paea">Contagem de Tempo</option> 
       <option value="jata">Formação Curricular</option> 
       <option value="jrha">Gratificação/Promoção QM</option> 
       <option value="paex">PAEX - Cadastro Funcional</option> 
       </select> 
      </font> 
      </td> 
      </tr> 
      <tr height="2"><td colspan="4" bordercolor="#F7F7F8"></td></tr> 
      <tr><td colspan="2" bordercolor="#F7F7F8" align="left"> 
        <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
         Usuário 
        </font> 
       </td> 
       <td colspan="2" bordercolor="#F7F7F8" align="left"> 
        <input id="Usuario" name="Usuario" size="10" maxlength="10" value="SE0452336A" type="text"> 
       </td></tr> 
      <tr><td colspan="2" bordercolor="#F7F7F8" align="left"> 
        <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        Senha 
        </font> 
       </td> 
       <td colspan="2" bordercolor="#F7F7F8" align="left"> 
        <input id="Senha" name="Senha" size="14" maxlength="14" type="password"> 
       </td></tr> 
      <tr> 
       <td colspan="2" bordercolor="#F7F7F8" align="left"> 
        <font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp; 

        </font> 
       </td> 
       <td colspan="2" bordercolor="#F7F7F8" align="left"> 
        <input name="imageField2" src="images/ok_sen.gif" width="24" type="image" border="0" height="17"> 
       </td></tr> 

     </tbody></table> 

私が間違っているのは何：

以下は、私がWebフォームを埋めるためにしようとHTMLでページがありますか？

Answer 1

最後のコメントに記載されているURLが問題を示しています。ログインフォームはIFrameの内部に配置されているため、現在のドキュメントは要素が存在しないため要素について認識しません。

IFrameの文書が検索に使用されるようにコードを少し修正する必要があります。

Set iePage = ieApp.document 

Dim fr As HTMLIFrame 
Set fr = iePage.frames("aplicativos") 

Dim iframeDoc As HTMLDocument 
Set iframeDoc = iePage.frames("aplicativos").document 

fillInputObject iframeDoc, loginSelectSistema_Name, "jcaa" 
fillInputObject iframeDoc, loginInputUsuário_Name, USERNAME 
fillInputObject iframeDoc, loginInputSenha_Name, PASSWORD 

iframeDoc.all.Item(loginInputOk_Name).Click 

と機能fillInputObjectを変更するので、それは右のDocumentオブジェクトを使用しています。

Private Sub fillInputObject(doc As HTMLDocument, ByVal objectName As String, ByVal Value As String, Optional IdentificadorElemento As IdentificadorElementoHTML = Nome) 
' 
'Preenche o Objeto Input com um determinado valor 
    Dim elementHTML As HTMLObjectElement 
    ' 
    If (IdentificadorElemento = Nome) Then 
     Set elementHTML = doc.getElementsByName(objectName).Item 
    End If 
    ' 
    If (IdentificadorElemento = ID) Then 
     Set elementHTML = doc.getElementById(objectName) 
    End If 
    ' 
    If (IsObject(elementHTML)) Then 
     If (Not (elementHTML Is Nothing)) Then 
      elementHTML.Value = Value 
     End If 
    End If 
End Sub