Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

[Access 2003] Bron van webpagina bekijken

Pagina: 1
Acties:

  • ZanomiX
  • Registratie: Januari 2007
  • Laatst online: 13-06-2019
Hey Tweakers!

Na lang zoeken heb ik nog steeds niet gevonden hoe je de bron van een webpagina kan bekijken. Ik ben wel al zo ver dat ik de webpagina zelf kan bekijken, maar nog niet de bron. Hoe zou dit mogelijk kunnen zijn?

Het is dus de bedoeling eerst de webpagina te bekijken, en als deze geladen is de bron weer te geven in Me.Tekst2.

Dit heb ik al:
code:
1
2
3
Private Sub Knop1_Click()
Me.WebBrowser.Navigate URL:="http://google.com"
End Sub

http://parkingwerchter.be


  • PromoX
  • Registratie: Februari 2002
  • Laatst online: 26-11 13:17

PromoX

Flying solo

[google=source website view open access vba] levert als eerste resultaat http://www.experts-exchan...ards/HTML/Q_23621273.html op:
code:
1
2
3
4
5
6
7
8
9
Function IECode()
 
Dim ieApp as Object
dim pgTxt as string 
    Set ieApp = CreateObject("internetexplorer.application")
    ieApp.navigate2 "file:///F:/Work/Mail%20Merge/BrokerageFee.htm"
    ieApp.Visible = True
    pgTxt = CStr(ieApp.Document.Body.innerhtml)
End Function

Misschien dat dit het gewenste resultaat geeft?

And I'm the only one and I walk alone.


  • ZanomiX
  • Registratie: Januari 2007
  • Laatst online: 13-06-2019
Godverdekke :p

Hier heb ik dus echt achter gezocht! Bedankt in elk geval! (Ik voel me zo dom :p )

http://parkingwerchter.be