ho un problema con una query web,
ogni volta che la lancio mi crea una nuova connessione,
e queste aumentano di volta in volta,
ho una macro che mi aggiorna mensilmente tutti i giorni del mese in automatico,
quindi la macro cicla per 30/31 volte,e questo successivamente mi crea altrettante connessioni ,
che poi ad ogni aggiornamento aumentano a dismisura dando anche qualche problema, se lancio la macro per un sola volta mi cicla anche le 30/31 connessioni,
ho provato con una macro trovata nel forum che conta le connessioni,
c'era anche una macro che le cancellava ma non del tutto,
il problema da quanto ho potuto capire dipende dalla riga
- Codice: Seleziona tutto
With ActiveSheet.QueryTables.Add(Connection:=
ho provato a fare qualche modifica alla macro ma non ci sono riuscito,
ho da poco intrapreso questo studio su query web.
- Codice: Seleziona tutto
Sub Irlanda()
[A3:D400].ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.lotto.net/it/lotteria-irlandese/archivio-2014.asp", _
Destination:=Range("$B$3"))
.Name = "archivio-2014_1"
.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 = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
[D3:D400].ClearContents
End Sub