У меня есть вопрос относительно макроса VB, который автоматически открывает файл в IE 11. Проблема в том, что я не могу получить запрос на загрузку, чтобы исчезнуть (поверьте мне, я пробовал все от инструментов в IE, до regedit, до gpedit.msc). Возможно ли, чтобы этот макрос делал то же самое, но вместо сохранения / открытия из IE, чтобы сохранить из Google Chrome (где можно избавиться от запроса на загрузку). Код, который у меня есть, это:

Вариант Явный

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

Кто-нибудь знает, что я могу сделать здесь. Я ненавижу IE, поэтому, пожалуйста, не давайте мне никаких решений для IE. Заранее большое спасибо за вашу помощь. Хотя я тоже в порядке с фрагментом кода, который позволяет активировать кнопку "Сохранить". Мне нужно загружать файл каждые 15 минут, и я не могу этого сделать, если каждый раз, когда мне приходится самому нажимать кнопку сохранения, а Microsoft усложняет эту простую задачу, например, f..k, и даже если вы следуете инструкции, она все равно не работает. Пожалуйста помоги

С уважением

|источник

0