Sub Macro1()

Dim MyPage As String
Dim MyURL As String
Dim EndPath As String
Dim MyFile As String


COUNTER = 0


inizio_procedura:


COUNTER = COUNTER + 1


MyFile = "foglio1.xlsx"


MyPage = COUNTER


MyURL = "URL;h t t p://w w w.centricommerciali.it/risultati_1024x768.cfm?PageNum_tutte_tabelle=" & MyPage & "&®ioni=Tutte_le_Regioni&provincia=&libero=&Submit=Invia"


'
With ActiveWorkbook.Connections("Connessione")
.Name = "Connessione"
.Description = ""
End With
Range("A1:D11").Select
With Selection.QueryTable
'Sleep 1000
.Connection = MyURL
'.CommandType = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """tutte"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("A1").Select
ActiveWorkbook.Connections("Connessione").Refresh



Range("A1:D11").Select
Range("D11").Activate
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:"
ActiveWorkbook.SaveAs Filename:= _
MyFile, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

EndPath = "C:foglio1.xlsx"

Kill EndPath


'Resume
GoTo inizio_procedura


End Sub