Abertura do Google Chrome com macro em vez do IE

0

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

    
por Daniel 12.04.2016 / 10:15

0 respostas