Ciao Flash
ho editato il mio precedente intervento.
Per Fara,
prova questo esempio
- Codice: Seleziona tutto
Option Explicit
Sub Aggiorna_Query()
Dim I As Integer, UR As Integer, RR As Integer, Nome_Foglio As String, Nome_Query As String
Dim WS As Worksheet, Indirizzo As String
Set WS = Sheets("Foglio0")
UR = WS.Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To UR
Nome_Foglio = WS.Cells(I, 1)
Indirizzo = WS.Cells(I, 2)
Sheets(Nome_Foglio).Select
RR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:Z" & RR).ClearContents
Range("A1").Select
Range("L1") = "'" & Indirizzo ' <<===== Puoi eliminarla
With Selection.QueryTable
.Connection = "URL;http://" & Indirizzo
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next I
End Sub
Passi da fare:
1. inserisci un foglio,
2. assegnagli il nome "Foglio0"
3. in colonna "A" da A2 scrivi i vari nomi dei fogli ove hai le tue query
4. in colonna "B" scrivi i vari indirizzi SENZA "Http://"
5. esegui la macro
e ... aggiornami
Prova solo con 3-4 fogli
Non ho inserito la gestione degli errori sulle query perchè ho ipotizzato che tu abbia già, nei vari fogli, tutte le query belle e funzionanti !
Registrazione
