Access IE console and copy output through vba

[XLSM Belgium]

Hi,

I would need to access the console on an url in internet explorer.
I want to run the command

chart_data_d()

, and paste the output in my excel worksheet.

This is what I have so far: (console and copy output are missing)

Sub testing1()    Dim IE As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "http://users.skynet.be/betberge/pvdiary/pvcalc.htm?date=20170615&long=3.3489&lat=50.8865&az=108&roof=42&peakw=4690&temp_coeff=-0.48&az2=0&roof2=0&peakw2=0&temp_coeff2=0"
        While IE.busy Or IE.readyState <> 4
            DoEvents
        Wend
        Application.Wait (Now() + TimeValue("0:0:01"))
    
    'Run the console command chart_data_d()
    'copy console output
    
    Sheets("terugverdientijd").Range("K14").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
    IE.Quit
    Set IE = Nothing
    Range("A1").Select


End Sub

 

[John_w]

I'm not sure if this does what you want because it returns much more data than is displayed in the console. Maybe the console output is truncated.

This code is the equivalent of navigating to the web page and then typing "javascript:chart_data_d();" without the quotes in the IE address bar.

Public Sub IE_Get_Data()
    
    Dim IE As Object
           
    ActiveSheet.Range("A1").ClearContents
           
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "http://users.skynet.be/betberge/pvdiary/pvcalc.htm?date=20170615&long=3.3489&lat=50.8865&az=108&roof=42&peakw=4690&temp_coeff=-0.48&az2=0&roof2=0&peakw2=0&temp_coeff2=0"
        While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
        
        .Navigate "javascript:chart_data_d();"
        While .Busy: DoEvents: Wend
        Do
            DoEvents
        Loop Until InStr(1, .Document.body.innertext, "{""title"":{""") = 1
        
        ActiveSheet.Range("A1").Value = .Document.body.innertext
        '.Quit 'close IE tab/window
    End With
            
    Set IE = Nothing
    
End Sub