Hämta värden från hemsida
Hej.
Är det någon som har någon kod tips eller exempel som kan hämta värden från en hemsida och föra in dem i Excel........? (När man inte har tillgång till servern)
Mvh
Jonas
Svara
Sv: Hämta värden från hemsida
Svårt när man inte vet vad du vill hämta för typ av data eller vilken sida är det en public sida kan du lägga in url + vad du vill hämta.
Är det tabeller, länkar eller text ...?
har gjort ett ex som hämtar det mesta från Pellesofts sida.
Under Verktyg/ Referenser i VBA Editorn bocka för Microsoft Internet Controls
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 37 38 39 40 41 | Sub IEauto()Dim IeApp As InternetExplorer Dim sURL As String Dim IeDoc As Object Dim i As Long 'Create new instance of IE Set IeApp = New InternetExplorer 'Make it visible - some things don’t work 'unless it’s visible IeApp.Visible = True 'define the page to open 'navigate to the page IeApp.Navigate sURL 'Pause the macro using a loop until the 'page is fully loaded Do Loop Until IeApp.ReadyState = READYSTATE_COMPLETE 'store the Document object Set IeDoc = IeApp.Document For Each Item In IeDoc.all i = i + 1 Cells(i, 1) = Item.nodeName Cells(i, 2) = Item.uniqueid Cells(i, 3) = Item.uniquenumber Cells(i, 4) = Item.outerhtml Cells(i, 5) = Item.innerhtml Next Item Set IeApp = Nothing Set IeDoc = Nothing Set Item = Nothing End Sub |
Svara
Sv:Hämta värden från hemsida
Hej Henrik.
Det var inte någon speciell sida jag tänkte på utan mest allmänt för har försöka bygga någon sådan applikation.
Men ditt exempel är mycket bra och skall titta nogare på det ...
Är inte så bra och van programmerare men håller lite på med VBA på hobby nivå.
Jätte mycket tack och det kommer säkert fler frågor från min sida.
Tack så mycket och hör av dig .
Jonas
Svara