Mi permetto di modificare la macro di Flash in questo modo:
- Codice: Seleziona tutto
Sub DatiQuery()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Cells.Select
Selection.Clear
On Error Resume Next
Selection.QueryTable.Delete
On Error GoTo 0
Range("A1").Select
UR = 1
[Z1] = Timer
For Rip = 0 To 1000
For Each RName In ThisWorkbook.Names
RName.Delete
Next RName
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.borsaitaliana.it/borsa/azioni/contratti.html?isin=IT0000064854&page=" & Rip _
, Destination:=Range("A" & UR))
.Name = "contratti.html?isin=IT0000064854&"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row + 1
If Range("A" & UR - 1).Text = "Ora" Then
If UR > 1 And Range("A" & UR-1).Text = "Ora" Then Rows(UR-1 & ":" & UR-1).Delete
GoTo Salta
End If
If UR > 1 And Range("A" & UR).Text = "Ora" Then Rows(UR & ":" & UR).Delete
Range("A" & UR).Select
Next Rip
Salta:
Range("A1").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
[Z2] = Timer
End Sub
La variazione principale consiste nella cancellazione di tutti gli intervalli definiti al mommento delle "QueryTables.Add", che a lungo andare avrebbero potuto dare qualche problema; ho poi semplificato il meccanismo di calcolo dell' URL, e cancello le righe di intestazione direttamente al completamento delle query non alla fine.
Ho mantenuto lo schema del For Rip /Next Rip, invece di suggerire un piu' ortodosso Do / Exit Do /Loop, per avere in ogni caso una uscita forzata dopo 1000 cicli di query indipendentemente dall' identificazione di un ciclo "vuoto" sinonimo "presunto" di fine.
Quanto alla richiesta di lavorare su un elenco di titoli, il mio suggerimento e' di lavorare su un "Foglio Indice", che in una colonna contiene l' elenco dei titoli e accanto il foglio in cui effettuare l' acquisizione dati.
La struttura della macro rimane la stessa, ma va inserita in un ulteriore ciclo For /Next dove viene letto il titolo, consequentemente si seleziona il relativo Foglio, si continua con il codice di adesso, prima di End Sub si inserisce il Next del ciclo aggiunto.
Per il calcolo dell' URL non si usera'
"URL;http://www.borsaitaliana.it/borsa/azioni/contratti.html?isin=IT0000064854&page=" & Rip ma una cosa appena piu' complessa, cioe'
- Codice: Seleziona tutto
"URL;http://www.borsaitaliana.it/borsa/azioni/contratti.html?isin=" & MyISIN & "&page=" & Rip
Ciao.
Registrazione
..... questo il codice della prima pagina 
Come posso dire di applicare una macro a più fogli, senza riportare il codice in ogni macro