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

    ActiveX InternetBrowser

    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    ActiveX InternetBrowser Empty ActiveX InternetBrowser

    Mensagem  roberval 6/8/2015, 15:17

    Bom dia...
    Bom estou usando o activex para navegar pela intranet da empresa sem precisar abrir um navegador.
    Ok, está tudo certo, mas há algum jeito de abrir o site e ja preencher uma caixa de texto que contenha neste site?


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    ActiveX InternetBrowser Empty Re: ActiveX InternetBrowser

    Mensagem  JPaulo 6/8/2015, 17:58



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    ActiveX InternetBrowser Folder_announce_new Utilize o Sistema de Busca do Fórum...
    ActiveX InternetBrowser Folder_announce_new 102 Códigos VBA Gratuitos...
    ActiveX InternetBrowser Folder_announce_new Instruções SQL como utilizar...
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    ActiveX InternetBrowser Empty Re: ActiveX InternetBrowser

    Mensagem  roberval 7/8/2015, 13:16

    Vlw JPaulo!
    Era exatamente isso, fiquei até emocionado Smile

    Bem vou aproveitar aqui, e te pergunta uma coisa....
    Peguei esse código a um tempo e acredito que é seu....

    Código:
    'Requer a referencia VBA, Microsoft Scripting Runtime, marcada
    Dim strDiretorio, strPasta, strFicheiros
    strDiretorio = Me.Texto15

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set strPasta = fso.GetFolder(strDiretorio)
    Set strFicheiros = strPasta.Files
    Me.GG.RowSourceType = "Value List"
    For Each File In strFicheiros
    Me.GG.AddItem (File.Name)
    Next

    Bom, ele vai até uma pasta especificada e copia o nome dos arquivos para uma list box... Teria como ele copiar só os que tem a extensão .txt?


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    ActiveX InternetBrowser Empty Re: ActiveX InternetBrowser

    Mensagem  roberval 7/8/2015, 13:59

    Outra pergunta, está ja relacionada ao tópico....

    Tem como copiar algumas informações do site, tipo, um html de um hiperlink, ou fazer cópia de um texto?


    .................................................................................
    lol!      Juro que eu sou legal     lol!

    Conteúdo patrocinado


    ActiveX InternetBrowser Empty Re: ActiveX InternetBrowser

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 12:17