.... aspetto trenone per la sentenza ..
l'obiettivo è ricavare i dati in automatico dal sito di borsaitaliana.
la prima parte la più semplice per ricavare il solo open interest è andare al link
http://www.borsaitaliana.it/bitApp/listino?service=Data&lang=it&main_list=3&sub_list=4 e mettere i dati in un foglio.
ti troverei alcuni piccoli problemi come eliminare gli spazi.
il codice per eliminarli è semplice questo lo fa solo per la colonna G ma tu lo modifichi e lo fai ciclare oltre che per ogni riga anche per ogni colonna.
Public Sub eliminaspazi()
Dim Sh As Worksheet
Dim LRiga As Long
Dim Lng As Long
Set Sh = ThisWorkbook.Worksheets("Foglio1")
With Sh
LRiga = .Range("G" & .Rows.Count).End(xlUp).Row
For Lng = 1 To LRiga
.Range("G" & Lng).Value = _
Replace(.Range("G" & Lng).Value, " ", "")
Next
End With
Set Sh = Nothing
End Sub
lo estendi anche alla pulizia dei numeri con separazione di punto e togli i due zeri dopo il punto alle colonne da C a F.
poi devi decodificare la colonna Nome serie per ottenere a fianco una nuova colonna con scritto C o P e questo già l'ho scritto e poi te lo ha descritto in dettaglio anche cammello fino ad L sono Call dopo sono Put .
devi creare la colonna con la data di scadenza sempre dal Nome serie dopo mibo il numero rappresenta l'anno e la lettera il mese A= gennaio L=dicembre ;M=gennaio X=dicembre.
l'ideale sarebbe una routine che dal mese e dall'anno riesca a ricavare anche il giorno terzo venerdi del mese.
ultima cosa togli tutti i codici isin superiori a 11 caratteri sono le option settimanali.
tutto questo lo metti su un bottone .
poi se si vuole anche il resto volatilità ecetera eccetera o si vogliono scaricare i dati alle 19 appena aggiornati.
su un altro bottone cicli su tutti questi codici isin ed estrai come da foglio di umbolox e questo richiede più tempo e solo se vuoi completare con altri dati
