Hi evrybody, I'am new user and I need your help
for frist sorry for my English
I would like to write a.script for copy some data from a table on this website: Euro area yield curve
The table is not immediatly visible, I must click on the word "Yields" that is on top-right of diagram, and so will appare the table.
I tried to write a vbascript for open the table but it does not work.
Can you help me please??
Below attach part of my code:
Private Sub CommandButton1_Click()
Dim termine As String
Dim tasso As String
termine = ""
tasso = ""
the_start:
Set objIE = CreateObject("internetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 800
objIE.Height = 600
objIE.Visible = True 'vediamo la finestra
On Error Resume Next
objIE.navigate ("http://www.ecb.europa.eu/stats/money/yc/html/index.en.html")
Do
DoEvents
If Err.Number <> 0 Then
objIE.Quit
Set objIE = Nothing
GoTo the_start
End If
Loop Until objIE.ReadyState = 4
IE.document.all.item
Call IE.document.parentWindow.execScript("javascript:charts[0].switchDimension(1,1);", "JavaScript")
Thanks
for frist sorry for my English
I would like to write a.script for copy some data from a table on this website: Euro area yield curve
The table is not immediatly visible, I must click on the word "Yields" that is on top-right of diagram, and so will appare the table.
I tried to write a vbascript for open the table but it does not work.
Can you help me please??
Below attach part of my code:
Private Sub CommandButton1_Click()
Dim termine As String
Dim tasso As String
termine = ""
tasso = ""
the_start:
Set objIE = CreateObject("internetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 800
objIE.Height = 600
objIE.Visible = True 'vediamo la finestra
On Error Resume Next
objIE.navigate ("http://www.ecb.europa.eu/stats/money/yc/html/index.en.html")
Do
DoEvents
If Err.Number <> 0 Then
objIE.Quit
Set objIE = Nothing
GoTo the_start
End If
Loop Until objIE.ReadyState = 4
IE.document.all.item
Call IE.document.parentWindow.execScript("javascript:charts[0].switchDimension(1,1);", "JavaScript")
Thanks