[Excel] Lettura dati da pagina web

[foreights]

Salve a tutta la comunità.
Mi sto scontrando con questo problema. So che la soluzione esiste, ho anche un codice VBA, ma ho difficoltà ad adattarlo al caso mio.
L'idea, se siete d'accordo, è quella di analizzare questo codice esistente per capire, col vostro aiuto, come adattarlo al caso mio.
Posso cominciare a postare?
(... pian pianino?)

[foreights]

Anche se nessuno mi ha risposto, sottopongo comunque il codice. Spero di essere aiutato da qualcuno.

Allora, il codice qui indicato legge la pagina web in oggetto e la scrive in un file .txt depositandolo sul desktop.
Mi sembra anche di capire, dall'esecuzione della macro, che viene anche aperto un foglio excel temporaneo (non so bene per quale motivo).

C'è qualche anima pia che riesce a spiegarmi il codice?

Ringrazio molto.

Codice: Seleziona tutto

Sub ScaricaDatiDaWeb()
Workbooks.Open Filename:= _
        "http://www.eurexchange.com/quotes/delayed/options/DAX/ODAX_C_200609.html"
ActiveWindow.Visible = True
ActiveWorkbook.SaveAs Filename:="..\Desktop\Scarico.txt", FileFormat _
        :=xlText, CreateBackup:=False
Windows("Scarico.txt").Activate
ActiveWindow.Close False
End Sub

[Alexsandra]

Spiega prima le tue esigenze in modo da farci capire quello che vuoi fare e poi analizziamo il codice Ok.

[Anthony47]

Hi x88,
Condivido la posizione di Alexsandra; non ha senso fare il reverse engineering di macro, e' molto piu' facile aiutarti se dici "vorrei fare questo", "ho provato cosi'" "ma mi succede questo", o cose del genere.

Comunque la macro fa quello che promette:
-apre un file (il formato html e' uno di quelli aperti da excel)
-salva questo file in formato txt
-chiude il file; qui il False serve a indicare a excel che non si vuol salvare il file (che comunque e' stato appena salvato; nel formato txt serve comunque)

Le istruzioni .Visible = True e .Activate credo siano superflue: un file appena aperto e' certamente visibile e non nascosto, e un file appena salvato e' certamente attivo.

Ciao,

[foreights]

Intanto grazie per le spiegazioni.
Allora, come dicevo nel titolo, l'obiettivo della macro è quello di leggere i dati contenuti in una pagina web e depositarli in un foglio excel per poi poterne fare alcune elaborazioni di tipo statistico.
La pagina in questione è:
http://www.eurexchange.com/quotes/delay ... 00609.html
che, come si può osservare, contiene una tabella di alcune righe per 12 colonne. Il primo campo di ciascuna riga (ovvero la prima colonna) è lo "strike price" che varia da 3000 a 7000 con incrementi di 50 (7000, 6950, 6900, ...). In realtà gli incrementi non sono sempre di 50: qualche volta lo sono di 100. Ma credo che questo non sia un problema.

La routine di cui accennavo e della quale, al post precedente, avevo già sottoposto la prima parte, è indicata più avanti. L'autore l'ha elaborata per raggiungere, all'incirca, lo stesso obiettivo che mi sono proposto io. Nel caso della routine in questione l'autore legge i dati da una pagina web del sole24ore (open,high,low e close) relativamente a 4 titoli della borsa italiana.
Questo è quanto.
Ho provato a decodificarla ma non sono riuscito nell'intento. Ecomi qui, dunque, a chiedervi una mano.
Si può fare?
Grazie.

Codice: Seleziona tutto

Sub ScaricaDatiDaWeb()
Workbooks.Open Filename:= _
   "http://www.24oreborsaonline.ilsole24ore.com/fc?chId=43&sezId=10029"
    ActiveWindow.Visible = True
    ActiveWorkbook.SaveAs Filename:="..\Desktop\Scarico.txt", FileFormat _
        :=xlText, CreateBackup:=False
    Windows("Scarico.txt").Activate
    ActiveWindow.Close False


       Workbooks.OpenText Filename:= _
        "..\Desktop\Scarico.txt", Origin:= _
        xlWindows, StartRow:=3, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1)) ', DecimalSeparator:=",", ThousandsSeparator:="."

       
    Windows("Scarico.txt").Activate
    Cells.Find(What:="Capitalia", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False).Activate
   
    ActiveCell.Offset(0, 2).Range("A1:A1").Activate
    ClCap = ActiveCell
    ActiveCell.Offset(0, 5).Range("A1:A1").Activate
    OpCap = ActiveCell
    ActiveCell.Offset(0, 1).Range("A1:A1").Activate
    MiCap = ActiveCell
    ActiveCell.Offset(0, 1).Range("A1:A1").Activate
    MaCap = ActiveCell
   
    Cells.Find(What:="Enel", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False).Activate
   
    ActiveCell.Offset(0, 2).Range("A1:A1").Activate
    ClEnel = ActiveCell
    ActiveCell.Offset(0, 5).Range("A1:A1").Activate
    OpEnel = ActiveCell
    ActiveCell.Offset(0, 1).Range("A1:A1").Activate
    MiEnel = ActiveCell
    ActiveCell.Offset(0, 1).Range("A1:A1").Activate
    MaEnel = ActiveCell
   
    Cells.Find(What:="Eni", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False).Activate
   
    ActiveCell.Offset(0, 2).Range("A1:A1").Activate
    ClEni = ActiveCell
    ActiveCell.Offset(0, 5).Range("A1:A1").Activate
    OpEni = ActiveCell
    ActiveCell.Offset(0, 1).Range("A1:A1").Activate
    MiEni = ActiveCell
    ActiveCell.Offset(0, 1).Range("A1:A1").Activate
    MaEni = ActiveCell

    Cells.Find(What:="Stmicroelectronics", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False).Activate
   
    ActiveCell.Offset(0, 2).Range("A1:A1").Activate
    ClStm = ActiveCell
    ActiveCell.Offset(0, 5).Range("A1:A1").Activate
    OpStm = ActiveCell
    ActiveCell.Offset(0, 1).Range("A1:A1").Activate
    MiStm = ActiveCell
    ActiveCell.Offset(0, 1).Range("A1:A1").Activate
    MaStm = ActiveCell
   
        Windows("Esempio 3 - Scarico dati daily da Borsaitalia.xls").Activate
    Sheets("Azioni").Select
    Cells(5, 3) = OpCap
    Cells(5, 4) = MaCap
    Cells(5, 5) = MiCap
    Cells(5, 6) = ClCap
   
    Cells(7, 3) = OpEni
    Cells(7, 4) = MaEni
    Cells(7, 5) = MiEni
    Cells(7, 6) = ClEni
   
    Cells(6, 3) = OpEnel
    Cells(6, 4) = MaEnel
    Cells(6, 5) = MiEnel
    Cells(6, 6) = ClEnel
   
    Cells(8, 3) = OpStm
    Cells(8, 4) = MaStm
    Cells(8, 5) = MiStm
    Cells(8, 6) = ClStm
   
    Windows("Scarico.txt").Activate
    ActiveWindow.Close False
   
    Kill "..\Desktop\Scarico.txt"

End Sub

*** I codici vanno racchiusi entro i tag [ ] cliccando sul tasto Code

[Alexsandra]

Hai provato a leggere questa discussione
http://www.pc-facile.com/forum/viewtopic.php?t=47108

[foreights]

D'accordo, me la studio.
Grazie Alexsandra.

[Alexsandra]

Prova a guardarla e poi ne parliamo, mi sembra che il codice sia più semplice e lineare.

Poi posta le tue impressioni e vediamo di continuare
ciao

[foreights]

Allora, l'ho vista e l'ho provata: funziona spendidamente.
Purtroppo non so come adattarla al caso mio.

Intanto sono andato avanti con la routine che avevo prima, ho remmato le istruzioni che Anthony indicava come non necessarie, ed ho salvato il tutto su un file .xls, denominato Scarico.xls.
Le informazioni, quindi, ora le ho. Ciò che ora vorrei fare:

1. cercare le coordinate della cella che contiene la parola "Strike" e quelle della cella che contiene la parola "Total";
2. trasformare il contenuto della cella D39 che al momento corrisponde a 7000.00.00 ( e che Excel interpreta come data e ora), in 7000.
3. aggiungere un nuovo foglio excel avente come nome la data del giorno in cui viene effettuata la lettura nella forma, ad esempio, 8set06.

Il resto, poi, dovrei riuscire a farlo da solo.


Grazie

Codice: Seleziona tutto

Sub Scariyahoo()

       Workbooks.Open Filename:= _
        "http://www.eurexchange.com/quotes/delayed/options/DAX/ODAX_C_200609.html"
    ' ActiveWindow.Visible = True
    ActiveWorkbook.SaveAs Filename:="..\Desktop\Scarico.xls", FileFormat _
        :=xlText, CreateBackup:=False
    ' Windows("Scarico.txt").Activate
    ActiveWindow.Close False
End Sub

[foreights]

Il primo dei tre quesiti l'ho risolto con il codice che qui allego. Forse non sarà il massimo dell'efficienza ma funziona.

Mi concentro sui quesiti successivi.

A beneficio dei membri di questa comunità cui può interessare, ecco il codice.

Codice: Seleziona tutto

Sub CercaRigaEColonna()
Dim r, c, Riga1, Riga2, Colonna1, Colonna2 As Integer
For c = 1 To 15
For r = 1 To 250
If Cells(r, c) = "Strike" Then
    Riga1 = r  'ho trovato la riga "Strike"
    Colonna1 = c 'ho trovato la colonna "Strike"
End If
If Cells(r, c) = "Total" Then
    Riga2 = r  'ho trovato la riga "Total"
    Colonna2 = c 'ho trovato la colonna "Total"
End If
Next r                                 'scan per 250 righe
Next c                                 '... e per 15 colonne
MsgBox ("'Strike' ha coordinate:" & Riga1 & " " & Colonna1)
MsgBox ("'Total' ha coordinate:" & Riga2 & " " & Colonna2)
End Sub

[foreights]

E anche questa è fatta. La routine che segue aggiunge alla cartella Option.xls un nuovo foglio e lo rinomina con una stringa che rappresenta la data corrente (nella forma, ad esempio, 09set06). Il foglio aggiunto è posizionato in coda rispetto ai fogli già esistenti nella cartella.
A beneficio di tutti coloro che seguono questo thread.
Alla prossima.

Codice: Seleziona tutto

Sub AggiungiNuovoFoglio()
' aggiunge un nuovo foglio, in coda, e lo rinomina col nome della data corrente
Dim NomeFoglio As String
Dim k As Integer
k = Workbooks("Option.xls").Sheets.Count
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
NomeFoglio = Left(Date, 2) & Format(Month(Date), "mmm") & Right(Date, 2)
Sheets.Item(k + 1).Name = NomeFoglio
End Sub

[foreights]

Ho controllato meglio e mi sono accorto di un problema con
Format(Month(Date), "mmm")

Mi dovrebbe restituire set ma, in realtà, mi restituisce gen. Qualcuno ha qualche idea?
Grazie.

[foreights]

Oltre al problema segnalato prima, inerente la funzione format, ne riscontro un altro.
I dati letti e salvati in Scarico.xls con la porzione di routine indicata in calce al presente messaggio, non vengono sempre interpretati come numeri (interi). La cosa strana è che nella stragrande maggioranza dei casi (oltre 80) ciò avviene. Solo in tre o quattro casi, invece, non avviene.
Entro meglio nel merito specificando i tipi di dati letti. Allora, nella prima riga undicesima colonna della pagina web sorgente c'è il dato:
9,325
ebbene, la routine legge il dato (correttamente) come:
9325 .
In quinta riga (medesima colonna) c'è 23,693 e questo viene letto come 23693. Insomma, si comporta quasi sempre bene. Alla riga 9 c'è 2,200. Questo viene letto come 2.02 e, se interrogo il formato celle, mi risponde che è un campo ora.
Alla riga corrispondente allo strike 5750 il dato in pagina web è 18,750. Il dato letto è 0,802083333; se interrogo il formato celle, mi risponde che è un campo 'generale'.

Come ne posso uscire secondo voi?
Ancora grazie.

Codice: Seleziona tutto

Workbooks.Open Filename:= _
"http://www.eurexchange.com/quotes/delayed/options/DAX/ODAX_C_200609.html"
ActiveWorkbook.SaveAs Filename:="..\Desktop\Scarico.xls", FileFormat _
:=xlText, CreateBackup:=False
ActiveWindow.Close False

[Alexsandra]

...Come ne posso uscire secondo voi?

Cominciando ad usare il tasto CODE quando posti il codice VBA, ti ho modificato tutti i post

PS. Secondo te come potresti uscirne?
secondo mè se usi il tasto CODE e una volta importati i dati formatti scarico.xls potresti risolvere i tuoi problemi
http://www.pc-facile.com/forum/viewtopi ... 015#264015

[foreights]

Aspetta ...
... ho capito bene!?
Mi hai formattato tutti i codici? Ti ringrazio e ti prego di scusarmi.


Il tasto Code lo devo utilizzare un carattere prima del codice ed un carattere dopo?

E poi, a parte questo, non ho capito il tuo suggerimento.
Mi spieghi meglio per favore?

Ti ringrazio.

[Alexsandra]

clicca sul link del mio ultimo post.
Il tasto code lo clicchi prima di incollare il codice, incolli il codice e vedrai che il tasto code diventa *code (per ricordarti che hai il tag aperto) lo clicchi ancora e vedrai il codice come nei tuoi post che ho editato.

Fai una prova e clicca su anteprima, è molto utile per mettere in evidenza il codice

[foreights]

Ok, ho capito.
Faccio la prova che mi suggerisci e poi vado a vedermi il link.
Grazie ancora.

[Anthony47]

Ciao x88,
Per l' aggiunta e rinominazione del foglio potresti usare

Codice: Seleziona tutto

Sub AggiungiNuovoFoglio()
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(Date, "yy-mm-dd")
End Sub

Il nome e' tutto numerico (es. 06-09-10), ma se vuoi puoi usare altri formati, es "yy-mmm-dd" per 06-set-10.

Per il problema dell' errata interpretazione di numeri importati, prova a cambiare il settaggio come segue:
Menu ->Strumenti ->Opzioni; seleziona tab "Internazionale", rimuovi lo spunto su "Utilizza separatori di sistema" e inserisci "Separatore decimale"= . (segno "punto") e "Separatore delle migliaia" = , (segno "virgola").
Sia chiaro che con questo settaggio dovrai scrivere 3.14 e non piu' 3,14; intanto vediamo se si risolve il problema dell' importazione (problema che io non ho ricreato, ma ho un settaggio "internazionale" tipo "U.S.").

Ciao,

[Anthony47]

Penso sempre che la query web dovrebbe essere una via piu' diretta per accedere ai dati.
Nel caso specifico, ho registrato la seguente macro che fa l' operazione:

Codice: Seleziona tutto

Sub Eurex()
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.eurexchange.com/quotes/delayed/options/DAX/ODAX_C_200609.html" _
        , Destination:=Range("A1"))
        .Name = "ODAX_C_200609"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
'        .RefreshStyle = xlInsertDeleteCells
        .RefreshStyle = xlOverwriteCells
'        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "7"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("A1").Select
       
End Sub

Puo' essere utile?

Ciao,

[foreights]

Se può essere utile?
Grazie Anthony 47. Sei un fenomeno. Funziona alla meraviglia. Ora me la studio, in quanto oltre a risolvere i problemi che ho vorrei anche cercare di crescere (e magari dare una mano a qualcun altro in difficoltà!).

Una cosa, comunque, ho dovuto "remmare" l'istruzione:

.WebDisableRedirections = False

in quanto mi dava errore. Dopo di ciò, tutto a posto.
Ma a cosa serve questa istruzione?


Una domanda, ora. Ho visto che i numeri sulla pagina web utilizzano la virgola come separatore delle migliaia mentre, per excel, la virgola è interpretata come separatore decimale.

Una prima idea che mi è venuta per risolvere il problema è quella di trasformarmi il numero in stringa, eliminare la virgola e poi ritrasformare il tutto in numero (con Val). Questo metodo, però, è affetto da un problema che ti rendo con un esempio. In sesta riga undicesima colonna troviamo la costante 28,590. Excel la interpreta come 28,59 e quindi, se adotto il metodo che ti ho indicato, il risultato finale sarà 2859 (in luogo di 28590).

Una seconda idea è quella di utilizzare lo stesso metodo ma, prima, effettuare una moltiplicazione per 1000 di tutti quei numeri che contengono la virgola. Così dovrei risolvere.

Oppure, qualcos'altro? Magari un particolare settaggio che dica a VBA di interpretare la virgola come separatore delle migliaia e non come separatore decimale?

Grazie mille e più.