Macro aggiorna query - errore

[apocrimata75]

Ho sempre usato la macro sotto riportata per aggiornare le query del foglio, ma ultimamente restituisce il messaggio di errore

Codice: Seleziona tutto

Errore di run-time '1004':
Origine dati incompleta


image hosting

Macro utilizzata

Codice: Seleziona tutto

Sub QPRQS()
For Each WkSh In Worksheets
  For Each WQ In WkSh.QueryTables
    WQ.Refresh BackgroundQuery:=False
  Next WQ
Next WkSh

messaggio = MsgBox("AGGIORNAMENTO TERMINATO", 0, "OK")

End Sub

qualcuno saprebbe darmi una spiegazione per risolvere il problema?

[Anthony47]

Evidentemente l' indirizzo su cui ha impostato la query non corrisponde a una query valida.
Solo per prova aggiungi queste istruzioni all' inteno del tuo ciclo

Codice: Seleziona tutto

    Debug.Print WkSh.Name                    'Aggiungere queste tre righe
    Debug.Print wq.Destination.Address
    Debug.Print wq.Connection
    WQ.Refresh BackgroundQuery:=False     ' ESISTENTE

Quando la macro va in errore, vai in debug e premi Contr-g: visualizzerai la finestra "Immediata" del vba e potrai vedere quale query produce l' errore (le ultime tre righe del listato che trovi nella finestra Immediata: il Foglio, la cella su cui comincia l' importazione, il link utilizzato. Prova a eseguire l' aggiornamento in modo manuale, e se anche cosi' (come immagino) non funziona allora la cosa piu' semplice e' che reimposti la query da zero.

Ciao

[apocrimata75]

Non posso postare le immagini dall'ufficio. Cmq ho eseguito le istruzioni ed ho visto che il problema è nella cella dn1 del fogliox.
Posizionandomi su tale cella, col tasto dx, nel menù a tendina, compare "proprietà intervallo dati" della connessione "alfa", che non compare nella scheda dati tra le connessioni.

[Anthony47]

Cmq ho eseguito le istruzioni ed ho visto che il problema è nella cella dn1 del fogliox.
Posizionandomi su tale cella, col tasto dx, nel menù a tendina, compare "proprietà intervallo dati" della connessione "alfa", che non compare nella scheda dati tra le connessioni.

Perdona, ma non so decodificare la frase... Se significa "ho capito tutto" allora ok cosi', se invece serve qualche altro suggerimento allora posta ancora.

Ciao

[apocrimata75]

Il problema persiste e non so come risolverlo.

Il foglio, la cella in cui comincia l'importazione è vuoto (Non è comparso neanche il link utilizzato). Posizionandomi sulla cella dn1 (quella incriminata) e cliccando col tasto dx appare il menù a tendina con "proprietà intervallo dati" della connessione ", ma in realtà la connessione non c'è.


Provo a postare in altro modo, non potendo usare il sito da voi proposto
<a href="http://image.forumfree.it/8/2/5/0/3/1/3/1401799426.png" target="_blank" title="Immagine3"><img src="http://image.forumfree.it/8/2/5/0/3/1/3/t/1401799426.png" alt="Immagine3"></a>
http://image.forumfree.it/8/2/5/0/3/1/3/1401799426.png



http://image.forumfree.it/8/2/5/0/3/1/3/1401799426.png

[Anthony47]

L' immagine non e' accessibile; comunque quello che dici mi porta a riconfermare il primo suggerimento: reimpostare quella query da zero.

Ciao

[apocrimata75]

Ho cancellato le colonne visto che la query non c'era nella cella dn1.
Ho creato una nuova query con scarico dei dati nella cella sopra citata, ma la macro si blocca in

Codice: Seleziona tutto

Debug.Print wq.Destination.Address

e nel riquadro "immediata" appaiono le seguenti diciture

Codice: Seleziona tutto

prono black aggio zero
$DN$1
URL;http://betonews.com/table.asp?tp=1011&lang=en&dd=3&dm=6&dy=2014&df=1&dw=3
prono black aggio zero

"prono black aggio zero" è il nome del foglio
$dn$1 è la cella dove scarica la query
questa volta, a differenza di prima, appare il link
riporta nuovamente il nome del foglio

[Anthony47]

Cancella pure le tre istruzioni che ti avevo fatto aggiungere per prova...

[apocrimata75]

Scusate l'assenza. Cancellando le istruzioni ha ripreso a funzionare. Grazie mille Anthony47.