Disattivare salva definizione Query tramite macro

[Gollum999]

Gent.mo P.C. facile.

Ho creato una macro per l' attivazione di una query:

Sub Query5()
'
' Query5 Macro
'

'
Do While Second(Now()) <> 10
Loop
Sheets("Foglio1").Select
Range("F8").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://it.finance.yahoo.com/q?s=EURUSD=X", Destination:=Range("$F$8"))
.Name = "q?s=EURUSD=X_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 1
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Ora mi piacerebbe crearne un' altra che alla chiusura del foglio mi elimini la definizione della query precedente senza eliminare i dati (mi interessano i dati ma non voglio più la query).
Ho cercato di fare la macro che mi elimina la definizione della query andando sulla finestra proprietà intervallo dati e deselezionando Salva definizione Query e poi chiudendo la finestra e la macro ma purtroppo sulla finestra del codice trovo solo questo:

Sub EliminadefinizioneQuery()
'
' EliminadefinizioneQuery Macro
'

'
Sheets("Foglio1").Select
Range("G11").Select
End Sub

Come posso fare?

Cordiali saluti.

Gollum999

[Anthony47]

Potresti usare una di queste due istruzioni:

Codice: Seleziona tutto

ActiveSheet.QueryTables("q?s=EURUSD=X_1").RefreshPeriod = 0   '<< Ma query rimane ma non viene piu' schedulata

ActiveSheet.QueryTables("q?s=EURUSD=X_1").Delete   '<< La query viene cancellata e non esiste piu'


Ciao.

[Gollum999]

Grazie Anthony47 per la dritta.

Ho un' altro quesito:

Nel modulo ThisWorkBook ho inserito questo codice:

Private Sub workbook_open()
Call Query5
End Sub
Private Sub workbook_close()
Call CancVecchiaQuery
End Sub

La seconda sub però non funziona in maniera automatica come la prima. Come posso fare?
Il mio obbiettivo è cancellare in maniera automatica la query alla chiusura del file.
Immagino che l' errore stia in questa riga: Private Sub workbook_close()

Grazie ancora per la disponibilità e un saluto a tutti gli amici di pc facile.

Gollum999

[Anthony47]

La seconda macro non ti funziona per il fatto che non esiste un "evento" Workbook_Close, ma personalmente apprezzo "l' iniziativa".
Dovresti provare cosi':

Codice: Seleziona tutto

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call CancVecchiaQuery
ThisWorkbook.save
End Sub


Ciao.