Hoi,
Voor mijn werk heb ik gegevens nodig van 1500 klanten die op een web-site staan gepubliceerd.
Voor elke klant heb ik een URL naar die site om de bedrijfsgegevens te kopieren naar Excel, voor deze handeling zou ik graag een macro willen schrijven.
Wat ik op dit moment heb is het volgende:
Sub Basics_Of_Web_Macro()
Dim myIE As Object
Dim myIEDoc As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = True
myIE.Navigate "https://empresite.eleconomista.es/BANDAS-INDUSTRIALES.html"
While myIE.Busy
DoEvents
Wend
Set myIEDoc = myIE.Document
Range("A1") = myIEDoc.p.title2.title02b
'Then we'll get something from teh inner page content by using the ID
Range("B1") = myIEDoc.getElementById("ico-telefono").innerText
Range("C1") = myIEDoc.getElementById("ico-domicilio").innerText
Range("D1") = myIEDoc.getElementById("ico-email").innerText
Range("E1") = myIEDoc.getElementById("ico-web").innerText
End Sub
De gegevens die ik moet hebben zijn:
Razón Social
CIF
Teléfono
Domicilio Social
Email
Web
Het zou geweldig zijn om bijvoorbeeld een box te hebben in Excel waar ik de URL in zou kunnen plaatsen en bij enter de macro de gegevens ophaalt en in Excel plaatst.
Ik hoop dat er iemand is die mij op weg zou kunnen helpen.
Alvast bedankt,
Voor mijn werk heb ik gegevens nodig van 1500 klanten die op een web-site staan gepubliceerd.
Voor elke klant heb ik een URL naar die site om de bedrijfsgegevens te kopieren naar Excel, voor deze handeling zou ik graag een macro willen schrijven.
Wat ik op dit moment heb is het volgende:
Sub Basics_Of_Web_Macro()
Dim myIE As Object
Dim myIEDoc As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = True
myIE.Navigate "https://empresite.eleconomista.es/BANDAS-INDUSTRIALES.html"
While myIE.Busy
DoEvents
Wend
Set myIEDoc = myIE.Document
Range("A1") = myIEDoc.p.title2.title02b
'Then we'll get something from teh inner page content by using the ID
Range("B1") = myIEDoc.getElementById("ico-telefono").innerText
Range("C1") = myIEDoc.getElementById("ico-domicilio").innerText
Range("D1") = myIEDoc.getElementById("ico-email").innerText
Range("E1") = myIEDoc.getElementById("ico-web").innerText
End Sub
De gegevens die ik moet hebben zijn:
Razón Social
CIF
Teléfono
Domicilio Social
Web
Het zou geweldig zijn om bijvoorbeeld een box te hebben in Excel waar ik de URL in zou kunnen plaatsen en bij enter de macro de gegevens ophaalt en in Excel plaatst.
Ik hoop dat er iemand is die mij op weg zou kunnen helpen.
Alvast bedankt,