Anexando arquivo SITE IE

Moderador: Avelino Sampaio

Curty123
Mensagens: 1
Registrado em: 26 Dez 2018, 21:13

Anexando arquivo SITE IE

Mensagempor Curty123 » 28 Jan 2019, 14:56

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.

Código:
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 04 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


Abre a tela para inserir o caminho aonde está o arquivo, porém não consigo da o input no caminho de forma automática.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Access x Web”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante