Cómo extraer información de una intranet a excel
Saludos.
He leído que puedo copiar información si la web o intranet es publica. Cómo hago una macro que ingrese al link, espere que cargue, luego le ingrese en el campo usuario y contraseña los datos, seleccione del menú la consulta y la exporte a excel?
Gracias.
1 Respuesta
He probado con esta macro y funciona
Sub Login()
'http://www.ayudaexcel.com/foro/threads/acceder-a-pagina-web-por-vba.14844/
Const nick = "us"
Const pass = "pw"
For Each Q In ActiveSheet.QueryTables
Q.Delete
Next Q
ActiveSheet.Cells.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://rfs.siat.sat.gob.mx/PTSC/RFS/menu/index.jsp#", _
Destination:=Range("$A$1"))
.PostText = "RFC=" & nick & "&Contraseña=" & pass
.Refresh BackgroundQuery:=False
'Cells.Delete Shift:=xlUp
End With
End Subcambia "us" y "pw" por tu usuario y password
Cambia "URL;https://rfs.siat.sat.gob.mx/PTSC/RFS/menu/index.jsp#" por tu URL
Para mayor referencia consulta la página:
'http://www.ayudaexcel.com/foro/threads/acceder-a-pagina-web-por-vba.14844/
Saludos,
Me sale un error de sintaxis en la linea With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://xx.xx.xx.x/intranet/index/index.php
Coloque x donde estan los números por seguridad.
Sub Login()
'http://xx.xx.xx.x/intranet/index/index.php
Const Empresa = "abc"
Const usuario = "ABC"
Const pass = "ABC"
For Each Q In ActiveSheet.QueryTables
Q.Delete
Next Q
ActiveSheet.Cells.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://xx.xx.xx.x/intranet/index/index.php
Destination:=Range("$A$1"))
.PostText = "RFC=" & nick & "&Contraseña=" & pass
.Refresh BackgroundQuery:=False
'Cells.Delete Shift:=xlUp
End With
End Sub
Perdona, pensé que habías escrito "Internet" y pusiste "intranet", creo que lo que te envié no es lo adecuado, busco algo y te lo envío
