Condividi:        

Disattivare salva definizione Query tramite macro

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

Disattivare salva definizione Query tramite macro

Postdi Gollum999 » 26/01/10 17:35

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
Gollum999
Utente Junior
 
Post: 24
Iscritto il: 24/10/09 13:08

Sponsor
 

Re: Disattivare salva definizione Query tramite macro

Postdi Anthony47 » 26/01/10 17:59

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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Disattivare salva definizione Query tramite macro

Postdi Gollum999 » 26/01/10 22:10

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
Gollum999
Utente Junior
 
Post: 24
Iscritto il: 24/10/09 13:08

Re: Disattivare salva definizione Query tramite macro

Postdi Anthony47 » 27/01/10 01:49

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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Disattivare salva definizione Query tramite macro":


Chi c’è in linea

Visitano il forum: Ricky0185 e 44 ospiti