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

    Adicionar anexo site - VBA x IE

    avatar
    Curty123
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 02/01/2019

    Adicionar anexo site - VBA x IE Empty Adicionar anexo site - VBA x IE

    Mensagem  Curty123 17/1/2019, 18:50

    Prezados, bom dia!

    Estou precisando de auxilio na inserção de anexo de um site. Interação com o IE.

    Chego até a parte que abre a opção de selecionar o anexo, porém queria colocar de forma automática.

    Function anexarrdo()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim Nomeusuario As String
    Dim Senhausuario As String
    Dim Dc_URL As String
    Dim objIE As New InternetExplorer ' Referencie "Microsoft internet controla"
    Dim rdoanterior As String
    Dim diretorio As String


    'On Error Resume Next

    strSQL = "SELECT TB_RDO.RDO FROM TB_RDO;" 'Tabela aonde vai pegar a informação.

    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)

    rdoanterior = 0
    rs.MoveFirst

    rdoanterior = rs.Fields("RDO")
    diretorio = rs.Fields("RDO")

    Do While Not rs.EOF

    rdoanterior = rs.Fields("RDO")

    diretorio = "C:\" '

    Dc_URL = "site" & rdoanterior

    objIE.Navigate2 Dc_URL
    objIE.Visible = True

    Do Until objIE.ReadyState = READYSTATE_COMPLETE
    Loop

    While objIE.Busy
    DoEvents
    Wend

    Sleep (4000) ' Esperar 05 segundos
    objIE.Document.all.Item("anexo").Click 'OK
    'nesse momento abre a aba para inserir o local que está o anexo.

    'loop
    rdoanterior = rs.Fields("RDO")
    rs.MoveNext
    Sleep (2000)
    Loop

    MsgBox ("RDOs impressos com sucesso."), vbInformation


    End Function
    avatar
    Curty123
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 02/01/2019

    Adicionar anexo site - VBA x IE Empty Re: Adicionar anexo site - VBA x IE

    Mensagem  Curty123 28/1/2019, 14:42

    UP
    avatar
    Curty123
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 02/01/2019

    Adicionar anexo site - VBA x IE Empty Re: Adicionar anexo site - VBA x IE

    Mensagem  Curty123 9/2/2019, 16:37

    Up

      Data/hora atual: 1/8/2021, 11:03