Eu tenho uma pergunta sobre uma macro VB que abre automaticamente um arquivo no IE 11. O problema é que não consigo fazer o download desaparecer (acredite, tentei de tudo, de Ferramentas no IE, regedit, gpedit .msc). É possível ter essa macro fazer a mesma coisa, mas em vez de salvar / abrir do IE para salvar do Google Chrome (onde se pode se livrar do prompt de download). O código que tenho sofar é:
Option Explicit
Public Sub Press_Button ()
Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls (shdocvw.dll)
Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection
Set objIE = New SHDocVw.InternetExplorer
With objIE
.Navigate "https://Somewebsite.com" ' Main page
.Visible = 1
Do While .READYSTATE <> 4: DoEvents: Loop
Application.Wait (Now + TimeValue("0:00:02"))
'set user name and password
Set htmlDoc = .document
Set htmlColl = htmlDoc.getElementsByTagName("INPUT")
Do While htmlDoc.READYSTATE <> "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If htmlInput.Name = "client_no" Then
htmlInput.Value = "xxxxx"
Else
If htmlInput.Name = "password" Then
htmlInput.Value = "xxxxx"
End If
End If
Next htmlInput
'click login
Set htmlDoc = .document
Do While htmlDoc.READYSTATE <> "complete": DoEvents: Loop
Set htmlColl = htmlDoc.getElementsByTagName("button")
For Each htmlInput In htmlColl
If htmlInput.Name = "login" Then
htmlInput.Click
Exit For
End If
Next htmlInput
End With
Do While htmlDoc.READYSTATE <> "complete": DoEvents: Loop
Set htmlColl = htmlDoc.getElementsByTagName("button")
For Each htmlInput In htmlColl
If htmlInput.Name = "export" Then
htmlInput.Click
Exit For
End If
Next htmlInput
End Sub
Alguém sabe o que eu posso fazer aqui? Eu odeio o IE, por favor, não me dê nenhuma solução do IE. Muito obrigado antecipadamente por sua ajuda. Embora eu também esteja bem com um pedaço de código que permite que o botão "Salvar" seja ativado. Eu preciso baixar um arquivo a cada 15 minutos e eu não posso fazer isso se toda vez que eu devo clicar no save eu mesmo e a Microsoft fez essa simples tarefa complicada como f..k e mesmo se você seguir a instrução ela ainda não funciona. Por favor ajude
Atenciosamente