Configurações:
Win7 32 bits
Office: 2007 sp3
Bom dia, estou fazendo um aplicativo que acesse um site no Internet Explorer e faça login. O Código é o seguinte:
Private Sub Comando0_Click()
'---------------------------------------------------------------------
'DECLARAÇÃO DE VARIÁVEIS
Dim ie As New InternetExplorer
Dim matricula As String, senha As String
'---------------------------------------------------------------------
'Inicia as variáveis
matricula = InputBox("Insira sua matricula", "Matricula")
senha = InputBox("Insira sua senha", "Senha")
'---------------------------------------------------------------------
'INICIA O INTERNET EXPLORER NAVEGA PARA A PÁGINA ESPECIFICADA E FAZ LOGIN
With ie
.Silent = True
.Navigate "https://sei.df.gov.br/"
.Visible = True
Do Until .ReadyState = READYSTATE_COMPLETE
Loop
With .Document
.all("txtUsuario").Value = matricula
.all("pwdSenha").Value = senha
.all("selOrgao").Value = 23
.all("sbmLogin").Click
End With
Do Until .ReadyState = READYSTATE_COMPLETE
Loop
End With
End Sub
Ao chegar em ie.document.all("txtUsuario").value = matricula, o Access aponta o erro 70 - Permissão negada. No entanto, o mesmo código rodando a partir do Excel 2007 do mesmo computador funciona. As referências à biblioteca MS Internet Controls estão ativas em ambos. Já ativei e desativei as referências, já criei um novo banco de dados e o erro continua. Alguém sabe como resolver?
Win7 32 bits
Office: 2007 sp3
Bom dia, estou fazendo um aplicativo que acesse um site no Internet Explorer e faça login. O Código é o seguinte:
Private Sub Comando0_Click()
'---------------------------------------------------------------------
'DECLARAÇÃO DE VARIÁVEIS
Dim ie As New InternetExplorer
Dim matricula As String, senha As String
'---------------------------------------------------------------------
'Inicia as variáveis
matricula = InputBox("Insira sua matricula", "Matricula")
senha = InputBox("Insira sua senha", "Senha")
'---------------------------------------------------------------------
'INICIA O INTERNET EXPLORER NAVEGA PARA A PÁGINA ESPECIFICADA E FAZ LOGIN
With ie
.Silent = True
.Navigate "https://sei.df.gov.br/"
.Visible = True
Do Until .ReadyState = READYSTATE_COMPLETE
Loop
With .Document
.all("txtUsuario").Value = matricula
.all("pwdSenha").Value = senha
.all("selOrgao").Value = 23
.all("sbmLogin").Click
End With
Do Until .ReadyState = READYSTATE_COMPLETE
Loop
End With
End Sub
Ao chegar em ie.document.all("txtUsuario").value = matricula, o Access aponta o erro 70 - Permissão negada. No entanto, o mesmo código rodando a partir do Excel 2007 do mesmo computador funciona. As referências à biblioteca MS Internet Controls estão ativas em ambos. Já ativei e desativei as referências, já criei um novo banco de dados e o erro continua. Alguém sabe como resolver?