Un saluto a tutto il Forum,
utilizzo per scaricare dei dati una queryweb, la mia difficoltà è questa:
la pagina da cui devo scaricare i dati, aumenta di una unità, e sono costretto ogni volta a cambiare il num progressivo nella macro. Se nella cella T18 ho l'ultimo numero di pagina prelevato, vi è la possibilità utilizzando
la cella T19 che è uguale alla cella T18+1 di far aggiornare in automatico il prelievo dei nuovi dati?
Allego la macro il link per riservatezza non è quello reale, ma la macro si, il valore 636 è quello che aumenta
ad ogni emissione di nuovi dati.
Sub Aggiornadati()
Sheets("Inserimento dati").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.francesco.it/estra.asp?dati=6&pagina=636", Destination:=Range("A1") _
)
.Name = "dati"
.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 = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Ringrazio chi può aiutarmi,
Francesco