MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Objeto Internet Explorer

    avatar
    zackzb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 24/10/2011

    Objeto Internet Explorer Empty Objeto Internet Explorer

    Mensagem  zackzb 24/5/2013, 19:13

    Boa tarde a todos,

    Estou com duvidas sobre o objeto internet explorer.

    Em uma certa página preciso fazer Download de uma planilha especifica, porem não sei manipular a expressão "Save As" do navegador.

    Alguem pode me ajudar?

    segue o cod

    Código:


    Function fteste()
        Dim ief As New InternetExplorer
        Dim URL as String

      URL = "http://www.pagina.com.br/
       
     
        Call ief.Navigate(URL)
       
        ief.Visible = True
        // manipulações de informaçoes.
      ief.Document.Forms("Form_1").submit
     

    End Function
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    Objeto Internet Explorer Empty Re: Objeto Internet Explorer

    Mensagem  Gilberto Rocha 24/5/2013, 20:08

    Se você souber o endereço segue.

    'Ativar a referencia
    'Microsoft Scripting Runtime
    'Utilizado para download
    On Error GoTo trata
    Dim oShell As Object
    Set oShell = CreateObject("Wscript.Shell")
    Dim varEndereco As String
    varEndereco = "www.suapagina.com/seuarquivo.xls"
    oShell.Run (varEndereco)

    sai:
    Exit Sub

    trata:
    MsgBox "Erro: " & err.Number & " " & err.Description
    Resume sai


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    www.congregafacil.com

    Analista de BI SR

      Data/hora atual: 28/3/2024, 20:16