Macro extraer de web

[retamalesfd]

Estimados,

Necesito extraer datos de la web del SII; mi idea es obtener una macro que haga la tarea en forma automática.

Tengo una lista de RUT que debo ingresar al SII para obtener la "actividad económica vigente".

Sé que el enlace al cual tengo que ir es: https://zeus.sii.cl/cvc_cgi/stc/getstc?RUT=96659460&DV=8&ACEPTAR=Efectuar+Consulta&PRG=STC&OPC=NOR

Y que lo que variaría en cada consulta es el rut y el dv.

Nosé como hacer una macro que consulte en forma automática el sitio, saque el rut de una lista e imprima o extraiga sólo el dato de "actividad económica vigente".

Son como 150 RUT que debo consultar ...

Cualquier guía se agradece,

Saludos,

adjunto ejemplo.

Book1.xls

Book1.xls

[Abraham Valencia]

Tu archivo no contiene nada :culpability: y al entrar en la web que envías no se visualiza como se hace el cambio de datos que mencionas. De todas formas mira esta conversación:

Debate ingresar automaticamente - datos que están en excel a una página web - grupos.emagister.com

Abraham

[retamalesfd]

Muchas gracias por tu ayuda!, quizás me puedan orientar otro poco ... al ejecutar esta macro saca un RUT de excel a la vez y ejecuta la consulta donde abre el sitio y arroja todos los datos relacionados al RUT; lo que necesito es ejecutar una consulta con varios RUT a la vez y a su vez extraer del sitio sólo la tabla "Actividades Económicas vigentes" y copiarla al lado del RUT en excel.

Sub sii()

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.NAVIGATE " https://zeus.sii.cl/cvc/stc/stc.html "

While ie.Busy

DoEvents

Wend

ie.Document.all.Item("RUT").Value = Range("A1").Value

ie.Document.all.Item("DV").Value = Range("B1").Value

ie.Document.all("ACEPTAR").Click

ie.Visible = True

ie.NAVIGATE ("javascript:validaIT()")

Set ie = Nothing

End Sub

Agradecería cualquier orientación,

Cordialmente,

Daniel.

RUT.xls

RUT.xls

[Abraham Valencia]

El código que envías esta bien, solo déjalo así:

Sub sii()

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.NAVIGATE " https://zeus.sii.cl/cvc/stc/stc.html "

While ie.Busy
DoEvents
Wend

ie.Visible = True

ie.Document.all.Item("RUT").Value = Range("A1").Value

ie.Document.all.Item("DV").Value = Range("B1").Value

ie.Document.all("ACEPTAR").Click

Set ie = Nothing

End Sub

[/code]

El gran dilema es la segunda parte, dado que para extraer los datos de la pagina que se visualiza de manera directa necesitaríamos extraer los datos de las tablas para lo que se requiere una dirección exacta y la brindada por la consulta es una tipo reporte que solo responde a una acción de 'JavaScript'. Para poder extraer los datos que necesitas deberíamos interactuar directamente a la base de datos que tiene los datos para lo que necesitarías permisos, usuarios y clave brindada por el administrador de la BD de dicha web

Saludos

Abraham