Oi Pessoal
Comecei a mexer com integração VBA no Internet Explorer.
Estou tentando logar no site do Smiles, para posteriormente exportar o extrato de pontos para excel/access. Já tentei diversos códigos, mas não consigo acessar a caixa de texto para digitar o login. O site tem diversos frames, tentei citar todos eles e mesmo assim não funcionou. Segue abaixo se alguém souber uma luz
Comecei a mexer com integração VBA no Internet Explorer.
Estou tentando logar no site do Smiles, para posteriormente exportar o extrato de pontos para excel/access. Já tentei diversos códigos, mas não consigo acessar a caixa de texto para digitar o login. O site tem diversos frames, tentei citar todos eles e mesmo assim não funcionou. Segue abaixo se alguém souber uma luz
- Código:
Sub Smiles()
Dim ie As SHDocVw.InternetExplorer
Set ie = CreateObject(InternetExplorer.Application)
'OUTRAS OPÇÕES
'Dim ie As Object
'Dim IE As InternetExplorer
'Set IE = New InternetExplorer
ie.Visible = True
ie.Navigate https://clientes.smiles.com.br/eloyalty_ptb/start.swe?SWECmd=GotoView&SWEView=Login%20View
While ie.Busy
Wend
'TESTEI TODAS OPÇÕES ABAIXO E NENHUMA FUNCIONOU
ie.Document.all.getElementById(s_1_1_9_0).innertext = 123456
ie.Document.frames(_sweclient).Document.frames(_swecontent).Document.frames(_sweview).Document.all(s_1_1_9_0).Value = 7
ie.Document.frames(top).Document.frames(_sweclient).Document.frames(_swecontent).Document.frames(_sweview).Document.all(s_1_1_9_0).innertext = 7