- Codice: Seleziona tutto
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.amazon.de/s/ref=sr_pg_2?rh=n%3A12950651%2Cn%3A%2112950661%2Cn%3A360469031%2Cn%3A360472031&page=1&ie=UTF8&qid=1437163807&spIA=B007C1S0WU,B00A5OY4J4,B00FGPUHS4", Destination:=Range("A1"))
On Error GoTo KAS2
.Name = "results"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
vorrei scaricarmi alcuni dati per trovare alla fine i prodotti più scontati del gruppo.
Vorrei però scaricare anche i llinki alle pagine di ogni singolo prodotto.
Come è possibile farlo? Grazie