mbv VBA website openen, tekst selecteren, kopiëren, focus op Excel en plakken

[HansFRAP]

Wat wil ik?
Ik wil mbv VBA vanuit Excel 2010, een hyperlink starten waarna ik de tekst van de geopende web-site wil selecteren, kopiëren. Hierna mag site worden gesloten en vervolgens kan de data op een nieuw werkblad worden geplakt.

Hoe op te lossen?
Ik start de website door hyperlink te activeren. Hierna dacht ik met sendkeys de data te kunnen ophalen. (Helaas, met mijn code geen goed resultaat.)
Vervolgens wil ik de gekopieerde data in het juiste Excel werkblad plakken. Dacht dit te doen met appactivate. (Helaas, met mijn code geen goed resultaat.)

Vraag
1) Hoe kan ik data Selecteren en Kopiëren
2) Hoe leg ik focus weer terug op Excel zonder dat gebruiker Excel icoon weer moet klikken??

Hier (niet werkende) code:

Sub WebInfoOphalen()
Dim ExcelSheethWnd
Sheets("Info").Select
ExcelSheethWnd = Application.hwnd
Worksheets("Info").Range("D7").Hyperlinks("Linkje").Follow
SendKeys "^a", True
SendKeys "^c", True
AppActivate ExcelSheethWnd
Sheets("Web Info").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub

 

[alphamax]

Zonder vermelding van de URL zodat we niet weten of het werkt.

Excel2007NL - Lint "Gegevens" - Blok "Externe gegevens ophalen" - knop "Van web"

 

[HansFRAP]

Alphamax,

Dank voor de suggestie. Deze optie is technisch natuurlijk eenvoudiger.
De routine blijft op deze manier gewoon binnen Excel draaien.
Ik maak gebruik van de functie: ActiveSheet.QueryTables.Add(Connection:= . . . . )
Ik kan hiermee verder.