Desativar "deseja abrir ou salvar" no Internet Explorer mais preciso no objeto do vba

Question

Tenho que fazer uma automação para vários downloads e quero que simplesmente baixe o arquivo não fique perguntando pois é para ser agil

Answer 1

Não aparece a opção de desabilitar

Answer 2

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Na captura de tela, é a configuração do navegador. Você pode desativá-lo nas configurações de download do navegador.

Answer 3

Como tem um botão específico que inicia o download o IE solicita interação para pressionar Abrir/Salvar/cancelar

Answer 4

Dim IE As Object
Sub AbrirPagina()
    Dim URL As String
   
    ' Defina a URL inicial
    URL = "https://nfe.prefeitura.sp.gov.br/login.aspx"
   
    ' Se o Internet Explorer ainda não estiver aberto, crie uma nova instância
    If IE Is Nothing Then
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True
    End If
   
    ' Navegar para a URL inicial
    IE.Navigate URL
End Sub

Sub AbrirPagina2()
    Dim URL As String
   
    ' Obtém a URL da célula D2
    URL = Sheets("Planilha1").Range("D2").Value
   
    ' Verifica se a URL é válida
    If URL = "" Then
        MsgBox "A célula D2 está vazia. Por favor, insira a URL desejada.", vbExclamation
        Exit Sub
    End If
   
    ' Abre uma nova aba e navega para a URL obtida
    AbrirURL URL
   
    ' Seleciona a opção "TXT" no elemento select
    SelecionarOpcao
   
    ' Clica no botão "Gerar"
    ClicarBotaoGerar
End Sub

Sub AbrirURL(URL As String)
    ' Abre o Internet Explorer se ainda não estiver aberto
    If IE Is Nothing Then
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True
    End If
   
    ' Navega para a URL especificada
    IE.Navigate2 URL
   
    ' Aguarda até que o Internet Explorer termine de carregar a página
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
End Sub

Sub SelecionarOpcao()
    ' Verifica se o Internet Explorer está aberto e se não estiver, sai do sub
    If IE Is Nothing Then
        MsgBox "Por favor, abra o Internet Explorer e clique no botão 'Ativar' primeiro.", vbExclamation
        Exit Sub
    End If

    ' Obter o elemento select pelo seu ID
    Dim selectElement As Object
    Set selectElement = IE.document.getElementById("ctl00_cphPopUp_true_ddlTipoArquivo")

    ' Verifica se o elemento foi encontrado
    If selectElement Is Nothing Then
        MsgBox "Elemento select não encontrado.", vbExclamation
        Exit Sub
    End If

    ' Seleciona a opção desejada (no caso, "TXT" com value=0)
    selectElement.Value = "0"
End Sub

Sub ClicarBotaoGerar()
    ' Verifica se o Internet Explorer está aberto e se não estiver, sai do sub
    If IE Is Nothing Then
        MsgBox "Por favor, abra o Internet Explorer e clique no botão 'Ativar' primeiro.", vbExclamation
        Exit Sub
    End If

    ' Obtém o botão pelo seu ID e clica nele
    Dim buttonElement As Object
    Set buttonElement = IE.document.getElementById("ctl00_cphPopUp_true_btGerar")
   
    ' Verifica se o botão foi encontrado
    If buttonElement Is Nothing Then
        MsgBox "Botão não encontrado.", vbExclamation
        Exit Sub
    End If
   
    ' Clica no botão
    buttonElement.Click
End Sub

Answer 5

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Você poderia nos compartilhar seu código para reproduzir seu problema? Então podemos dar sugestões sobre isso.