Interação IE - VBA - Janela Escolher Arquivo

[Leandro SSS]

Boa tarde,

Sou (super) neofito em vba e estou com um problema referente a interação com o IE.

Obs: pesquisei no fórum exatamente este meu problema mas não localizei, se já existe esta questão resolvida no fórum peço perdão.

Estou tentando acessar o site http://www.pdftoexcelonline.com/, clicar no botão "Procurar" (segundo html, botão ctl00$body$filePDF), selecionar o caminho e arquivo através de alguns valores que estão na planilha, clikar em ok na janela de 'escolher arquivo', preencher o email atraves do innertext com um valor também localizado na plan e por fim clikar em "Convert to Excel".

Até o momento eu consegui: acessar o site e clikar em "Procurar"...e só ¬¬

Estou com dificuldade para interagir com a janela "Escolher arquivo" que aparece após clikar no botão Procurar (ctl00$body$filePDF)

Alguém pode me ajudar com este impasse?

De antemão agradeço a paciência de quem leu ou ajudou.

Segue código que estou utilizando:

Sub AcessaPagina()

    
    Dim d1, M2, A1, Wd As String
    
    'local/caminho do arquivo:
    d1 = Sheets("Apoio").Range("c3").Value
    'arquivo pdf:
    M2 = Sheets("Apoio").Range("c4").Value
    'email:
    A1 = Sheets("Apoio").Range("c5").Value
    'local & arquivo:
    Wd = d1 & M2
    
    
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate "http://www.pdftoexcelonline.com/"
       While ie.Busy
       Wend

    
    ie.Document.getElementsByName("ctl00$body$filePDF").Item.Click
    While ie.Busy
       Wend
       
    
    
    'ie.Document.getElementsByName("ctl00$body$txtEmail").Item.innerText = A1
    
       While ie.Busy
       Wend
    
    ie.Visible = True

End Sub

[benzadeus]

Não há muito o que fazer porque não é possível atribuir a janela que abre à uma variável. Não consegui também usar o método SendKeys.

Você não consegue alterar diretamente esse rótulo ao lado do botão 'Procurar' diretamente não? Se sim, problema resolvido.

Não tentei fazer isso.

[Leandro SSS]

Não há muito o que fazer porque não é possível atribuir a janela que abre à uma variável. Não consegui também usar o método SendKeys.

Você não consegue alterar diretamente esse rótulo ao lado do botão 'Procurar' diretamente não? Se sim, problema resolvido.

Não tentei fazer isso.

Até tentei mas não consegui descobrir exatamente qual seria o nome do objeto a ser modificado para que aquela caixa ao lado do botão "Procurar" seja preenchida.

tentei "value";"alt";"innertext" entre outros.

Contudo, valeu pela tentativa.