Ciao a tutti
Ho un problema vorrei scrivere uno script vba per copiare alcuni dati da una tabella in questo sito: http://www.ecb.europa.eu/stats/money/yc/html/index.en
i dati non sono visibili subito ma bisogna selezionare il tag "Yields" in alto a destra rispetto al grafico.
a quel punto appare la tabella da cui vorrei copiare i dati.
il problema principale è che non riesco a azionare il comando O n c l i c k per poi copiare i dati.
questo (penso) dovrebbe essere il comando eseguito
o n c l i c k="javascript:charts[0].switchDimension(1,1);"
e questo il codice scritto da me:
rivate 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
<span")
On Error Resume Next
objIE.navigate ("http://www.ecb.europa.eu/stats/money/yc/html/index.en.html")
'per aspettare che la pagina si carica
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")
Grazie a tutti</span")
Ho un problema vorrei scrivere uno script vba per copiare alcuni dati da una tabella in questo sito: http://www.ecb.europa.eu/stats/money/yc/html/index.en
i dati non sono visibili subito ma bisogna selezionare il tag "Yields" in alto a destra rispetto al grafico.
a quel punto appare la tabella da cui vorrei copiare i dati.
il problema principale è che non riesco a azionare il comando O n c l i c k per poi copiare i dati.
questo (penso) dovrebbe essere il comando eseguito
o n c l i c k="javascript:charts[0].switchDimension(1,1);"
e questo il codice scritto da me:
rivate 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
<span")
On Error Resume Next
objIE.navigate ("http://www.ecb.europa.eu/stats/money/yc/html/index.en.html")
'per aspettare che la pagina si carica
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")
Grazie a tutti</span")