Macro que extrae datos de internet
Publicado por Luis Enrique (6 intervenciones) el 27/09/2018 20:42:55
Hola amigos una consulta ; como puedo obtener los datos de nombres y apellidos de una pagina de internet si este al inspeccionar no tiene ID
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
Sub dni()
Dim IE As Object
Dim espera As Double
Dim msg As String
msg = "Faltan datos" & vbNewLine & vbNewLine
If Hoja1.Range("E6").Value = "" Then msg = msg & vbTab & "- Usuario" & vbNewLine
If msg = "Faltan datos" & vbNewLine & vbNewLine Then
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate "https://consultamiembrodemesa.onpe.gob.pe/"
While .BusyDoEvents
Wend
espera = Timer + 1
Do While Timer < esperaDoEvents
Loop
With .Document.all
.Item("dni").Value = Hoja1.Range("E6").Value
espera = Timer + 1
.Item("submit").input
.Item("btnConsultar").Click
End With
.Visible = True
End With
Set IE = NothingElse
msg = msg & vbNewLine & "Complementa los datos solicitados y ejecuta de nuevo" & vbNewLine & vbNewLine
MsgBox msg, vbCritical, "APERTURA DNI"
End If
End Sub
- CONSULTA.rar(15,4 KB)
Valora esta pregunta
0