Condividi:        

eliminare una web query

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

eliminare una web query

Postdi raimea » 20/03/16 18:12

ciao
vorrei eliminare una web querry
ma non so come fare

dal fgl prono, avvio aggiorna classifiche
e vado a prelevare i dati da un sito web , e li incollo in fgl CAMP

quando arriva a : BOLIVIA si inchioda
xche i dati x questa nazione nel sito non ci sono.

quindi vorrei eliminare la querry x questa nazione
oppure far procedere la macro....

vi allego il file

https://dl.dropboxusercontent.com/u/96374724/lugarino_5.1.4%20-%20Copia.rar

grazie
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: eliminare una web query

Postdi Anthony47 » 20/03/16 22:50

Dal bottone vedo che fai partire l'aggiornamento di tutte le webquery in tutti i worksheet; poiche' se non ho capito male sulla query incriminata il pc si blocca puoi dire dove si trova la query della Bolivia?
E poi, una volta individuata il tuo obiettivo e' cancellarla dal foglio (in modo che non si esegua piu' la query) o che cosa?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

eliminare una web query

Postdi raimea » 21/03/16 07:05

ciao
poiche' se non ho capito male sulla query incriminata il pc si blocca puoi dire dove si trova la query della Bolivia?

si il pc si blocca.
il problema e' proprio quello che non so dove si trova...
le querry sono impostate nel fgl CAMP ma quella incriminata non riesco a trovarla/ cancellarla

E poi, una volta individuata il tuo obiettivo e' cancellarla dal foglio (in modo che non si esegua piu' la query) o che cosa


si mi andrebbe bene anche cancellarla

grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: eliminare una web query

Postdi Anthony47 » 21/03/16 11:39

Modifica nella macro il ciclo che aggiorna le WebQuery in questo modo:
Codice: Seleziona tutto
For Each wksh In Worksheets
  For Each wq In wksh.QueryTables
  mytim = Timer
 '----------------------------------------------
      NQ = NQ + 1  ' queste x vedere in basso il num di querry aggiornate
      Application.StatusBar = "Aggiornamento Classifica/Query N° " & NQ
 '---------------------------------------------------
 
Debug.Print ">>> ", NQ, wq.Connection
Debug.Print wksh.Name, wq.Destination.Address, wq.Name
DoEvents
 
  wq.Refresh BackgroundQuery:=False
Debug.Print Format(Timer - mytim, "0.00")
 
If Timer - mytim > 120 Then Stop     '>>>> Solo per Debug
 
  Next wq
Next wksh

In questo modo quando avvii una query verra' segnalato nella finestra "Immediata" del vba l'operazione in corso. Verra' indicato:
-il Numero della Query, l'indirizzo della query
-il nome del foglio che la ospita, l'indirizzo di inizio dell'intervallo, il Nome della query
-i secondi impiegati per il completamento della query
Esempio:
Codice: Seleziona tutto
>>>            30           URL;http://www.soccerstats.com/team_trends.asp?league=england3&pmtype=overunder
Statistiche-socer           $A$731        team_trends.asp?league=england3&pmtype=overunder
0,69

In caso di blocco sara' quindi possibile sapere su quale Foglio e quale Intervallo la Query giace; se si vuole eliminare la query:
-selezionare una cella dell'intervallo dati della query
-tasto dx, scegli Proprieta' intervallo dati
-togli la spunta alla voce "Salva definizione query"; Ok

Con tale procedura ho trovato che la Query relativa alla Bolivia e' la numero 33 e si trova in Palinsesto, range $AP$4:
Codice: Seleziona tutto
>>>            33           URL;http://www.soccerstats.com/team_trends.asp?league=bolivia&pmtype=overunder
Palinsesto    $AP$4

Puoi lasciare la macro come l'abbiamo modificata, eventualmente elimini solo l'istruzione marcata >>>>, che serve a interrompere la macro qualora la webquery vada in timeout (cosa che blocca il Pc per diversi minuti, e lo Stop arrivera' solo dopo che il timeout si e' completato; serve per poter capire quale Query ha provocato il timeout).

Per visualizzare la "finestra Immediata", dall'editor delle macro premi Contr-g

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: eliminare una web query

Postdi raimea » 21/03/16 18:39

.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

eliminare una web query

Postdi raimea » 21/03/16 19:16

ciao
tutto ok , risoto

ottima questa, " aggiunta di macro"
che indica il foglio e il numero della cella incriminata.

grazie 1000

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "eliminare una web query":


Chi c’è in linea

Visitano il forum: Nessuno e 111 ospiti