• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

webpagina kopieren

Status
Niet open voor verdere reacties.
H

hans1974

Gebruiker
Lid geworden
27 sep 2012
Berichten
102
Hallo,

Ik wil graag de hele webpagina kopiëren naar mijn excel sheet.
Ik krijg hem open via vba en wat ik ook probeer om te kopiëren, ik krijg steeds een foutmelding.
In bijlage de excel met macro om naar de webpagina te gaan en het stuk om te kopiëren heb ik eruit gehaald.

Alvast bedankt voor de hulp.Bekijk bijlage Nieuw - Microsoft Excel Worksheet.xlsm
 
Plaats juist het stuk waarop het fout gaat. Anders heeft de vraag weinig nut.

Kijk ook hier http://www.helpmij.nl/forum/showthread.php/857943-Download en http://www.helpmij.nl/forum/showthread.php/858005-Koersdata-opslaan

Het gaat allemaal om koersdata te importeren zonder te weten waar iemand moet beginnen.

Nb. De site die je gebruiken wil is niet erg 'vriendelijk' om data vanaf te halen. Via iex.nl of fd.nl ging het altijd wel eenvoudig maar ik weet niet of jouw voorwaarden daar te vinden zijn.
 
Hallo Vena,
Bedankt om mee te helpen!
Indien dit niet mogelijk is zoek ik een manier om te kunnen inloggen via een macro op http://www.energymarketprice.com/SitePage.asp?act=ps&pid=81&prid=4
Ik heb daar een paswoord en log in van maar het zou handig zijn als ik dit via excel kan inlezen dan met een query of macro
Ik weet dat die niet echt vriendelijk is die site van the ice
De code in het voorbeeld loopt fout bij het volgende dat ik toevoeg: om het even bij welke selectie (select all of copy selection)

IE.ExecWB 17, 0 ' SelectAll
IE.ExecWB 12, 2 ' Copy selection
ActiveSheet.PasteSpecial Format:="Text", link:=False, DisplayAsIcon:=False
Range("A1").Select
IE.Quit
end with
end sub
 
Laatst bewerkt:
Worksheet = "Blad1"
Kijk vanaf regel 56 naar beneden en naar rechts
Geen resultaat, trage verbinding verhoog de wachttijd van 5 naar 10 seconden
Gemaakt met Windows7EN en Excel2007NL

Code: 
[SIZE=1]Option Explicit

Public Sub TTF_Neutral_Gas_Price_Index_Download()
    Dim strHTML As String
    Worksheets("Blad1").UsedRange.Clear
    With CreateObject("InternetExplorer.Application")
        .Navigate "https://www.theice.com/marketdata/reports/168#"    'am_2015
        .Visible = True
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
        Application.Wait DateAdd("s", 5, Now)    '5 seconden wachten
        strHTML = "<HTML>" & .Document.GetElementbyID("report-content").OuterHTML & "<\HTML>"
        With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")    'http://desmondoshiwambo.wordpress.com/2012/02/23/how-to-copy-and-paste-text-tofrom-clipboard-using-vba-microsoft-access/
            .SetText strHTML
            .PutInClipboard
        End With
        Paste Worksheets("Blad1").Cells(1, 1)
        With Worksheets("Blad1").UsedRange
            .Cells.WrapText = False
            .Columns.AutoFit
            .Select
        End With
        .Quit
    End With
End Sub[/SIZE]
 
Laatst bewerkt:
Hallo Alphamax

Bedankt om dit in orde te krijgen,5 sec is voldoende.
Ik heb wel de lijn met Paste Worksheets("Blad1").Cells(1, 1) verandert in Worksheets("Blad1").paste.
Anders gaf hij de melding: sub or function is niet gedefinieerd voor die paste. Of hoe kan ik dit nog oplossen?
 
Het volgende is aangepast;
End With
With Worksheets("Blad1")
.Range("A1").Select
.paste

Zo werkt het wel

Heel erg bedankt voor de hulp!
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan