Condividi:        

Connessioni 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

Re: Connessioni query

Postdi ricky53 » 28/06/13 17:17

Ciao
si e mi faccio risentire.



Per FARA: leggi quanto ti ho scritto il 28/06/13 alle ore 16:09
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Sponsor
 

Re: Connessioni query

Postdi ricky53 » 28/06/13 19:20

Ciao Flash,
provato adesso con IE10 e con Chrome su
Office 2003, 2007, 2010 e 2013

Ottengo sempre lo stesso messaggio
Attenzione


Il codice ISIN deve essere lungo 12 caratteri
Premi qui per ritornare alla pagina precedente


Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Connessioni query

Postdi Flash30005 » 28/06/13 22:52

sei infettato! :D
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Connessioni query

Postdi fara15 » 29/06/13 13:57

Ciao ragazzi,

vi devo ringraziare per tutto il tempo che mi state dedicando provo a fare quello che mi avete indicato e vi informerò dello stato delle cose.
fara15
Utente Junior
 
Post: 23
Iscritto il: 19/12/11 20:01

Re: Connessioni query

Postdi fara15 » 29/06/13 14:33

Allora, ho provato la macro relativo a solo 4 fogli ed ha funzionato perfettamente -copia anche il formato; è possibile copiare solo i valori?
grazie
fara15
Utente Junior
 
Post: 23
Iscritto il: 19/12/11 20:01

Re: Connessioni query

Postdi ricky53 » 29/06/13 15:18

Ciao,
quali operazioni devi fare dopo aver importato i dati con la query?
Sapendo cosa devi fare ti potremmo proporre qualcosa di adatto.


La tua query che come ti importava i dati?

Puoi inviarci un'immagine di come veniva prodotta la query?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Connessioni query

Postdi fara15 » 29/06/13 22:16

Ciao, devo fare solo operazioni di copiatura dei valori e riportarli su un altro file dove scelgo di incollare solo i dati per cui va bene anche così comunque lo chiedevo solo per non appesantire troppo il file --- se mi indicate come fare posso allegare i 2 files JPG.
Ho constatato che la macro funziona solo se nei fogli è presente una vecchia query è possibile progettare una seconda macro che parta sempre dal foglio0 e che incolli i dati prelevati dal web in ogni foglio corrispondente e nella cella A1 in un nuovo file dove in tutti i fogli non è presente nessuna query---Chiaramente tutte le opzioni che si inseriscono manualmente nella preparazione della query saranno quelle di default.
Ancora grazie
fara15
Utente Junior
 
Post: 23
Iscritto il: 19/12/11 20:01

Re: Connessioni query

Postdi ricky53 » 29/06/13 23:46

Ciao,
la macro l'ho predisposta basandomi sulla situazione che avevi nel tuo file.

Visto le nuove esigenze ti chiedo di riportarle (con una descrizione precisa e dettagliata) tutte ma in modo schematico e per punti. Così vedrò di darti l'aiuto necessario.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Connessioni query

Postdi Flash30005 » 30/06/13 00:48

per allegare un file e immagine segui questa procedura
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=80395
a seconda del tipo di file (se dati o immagini) dovrai scegliere il server opportuno

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Connessioni query

Postdi fara15 » 30/06/13 11:42

Sei gentilissimo Ricky,
la macro che mi hai postato è esaustiva e svolge benissimo la funzione impostata:
nell'allegato A - http://www.filedropper.com/a_11 - ti posto l'immagine di come si presentano i fogli dopo lo scarico dei dati tramite query l'allegato B - http://www.filedropper.com/b_1 - è come vorrei che fosse - copia solo dei dati senza il formato - per non appesantire il file.

L'altra richiesta è inerente sempre al tema delle connessioni query ma si riferisce al caso in cui io avessi bisogno di partire da zero con un nuovo file. (assenza di query nei fogli del file).
Ti elenco passo passo tutte le operazioni:
Nel foglio0 ho il mio elenco di fogli con i corrispondenti URL.
Mi apro ex novo tanti fogli quanti sono quelli riportati nel foglio0 e li rinomino.
apro il 1° foglio mi posiziono nella cella A1 -"DATI" - "Da Web" - si apre una maschera "nuova query web" nell'indirizzo incollo l'Url corrispondente alla prima in elenco del foglio0 - "VAI" - "IMPORTA" - e la prima operazione è finita.
E' così a seguire per tutti i fogli presenti nel file.
La nuova richiesta si riferiva proprio ad evitare tanta manualità e gestire il tutto tramite nuova macro avendo a disposizione il foglio0 contenente i dati ed i relativi fogli rinominati come da elenco foglio0 - in questi fogli non è presente nessuna query.
Nella speranza che mi sia espresso in forma comprensiva Vi invio tutti i miei ringraziamenti
fara15
Utente Junior
 
Post: 23
Iscritto il: 19/12/11 20:01

Re: Connessioni query

Postdi Anthony47 » 01/07/13 01:28

C' e' un messaggio di fara15 prima di questo.
Per Flash /Ricky: anche io aprendo il file di Flash originale ricevo il messaggio indicato da Ricky; facendo "Aggiorna" l' hyperlink si corregge e funziona poi regolarmente.

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

Re: Connessioni query

Postdi ricky53 » 01/07/13 17:12

Ciao Anthony,
Aggiorna su IE e su Chrome: Fatto.

Nessun cambiamento !!!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Connessioni query

Postdi ricky53 » 01/07/13 18:03

Ciao,
ho anche aggiornato la query ma senza risultati.

Non è che sia importantissimo ma solo per informazione.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Connessioni query

Postdi ricky53 » 02/07/13 12:38

Ciao,
ho provato su un altro PC ed il link viene aggiornato inserendo &Lang.

Il procedimento è valido dal 2007 in avanti

NON è valido con il 2003 !

Grazie Anthony.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Connessioni query

Postdi fara15 » 03/07/13 10:14

Ricky,Anthony,Flash, siete fantastici Vi ringrazio per tutto l'aiuto che mi avete dato.
fara15
Utente Junior
 
Post: 23
Iscritto il: 19/12/11 20:01

Re: Connessioni query

Postdi ricky53 » 03/07/13 11:28

Ciao Fara,
è sempre un piacere fornire il proprio contributo per arrivare ad una soluzione.


Hai trovato soluzione a quanto avevi scritto il 30/06/13 alle ore 11:42 ?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Connessioni query

Postdi fara15 » 03/07/13 12:35

Ciao Ricky sempre gentile, ti ringrazio,

la soluzione che eventualmente adotterò è quella di partire da un file dove già sono presenti le query e poi adatterò tutti i fogli alle nuove esigenze. La mia 2°richiesta, comunque, aveva uno scopo prettamente propedeutico.
Solo dagli esperti di PC- Facile posso imparare sempre di più su excel.
Ragazzi,mi ripeto, siete eccezionali.
Buona giornata a tutti
fara15
Utente Junior
 
Post: 23
Iscritto il: 19/12/11 20:01

Re: Connessioni query

Postdi ricky53 » 03/07/13 13:55

Ciao,
posso adattare il codice per inserire una query se non presente.

Non subito ma a breve ... promesso.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Connessioni query

Postdi ricky53 » 03/07/13 16:12

Ciao,
come promesso
Codice: Seleziona tutto
Option Explicit
Public Indirizzo As String

Sub Aggiorna_Crea_Query_Buona()
    Dim I As Integer, UR As Integer, RR As Integer, Nome_Foglio As String, Nome_Query As String
    Dim WS As Worksheet, Inserita As Integer
   
    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("Z1") = "'" & Indirizzo
       
        On Error GoTo Errore
        With Selection.QueryTable
            .Connection = "URL;http://" & Indirizzo
            .WebSelectionType = xlAllTables
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With

    Next I
    If Inserita > 0 Then
        MsgBox "Aggiornamento effettuato" & vbCrLf & vbCrLf & "Inserite  '" & Inserita & "'  query"
    Else
        MsgBox "Aggiornamento effettuato"
    End If
    Exit Sub
Errore:
    Call Inserisci_Query
    Inserita = Inserita + 1
    Resume
End Sub

Sub Inserisci_Query()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://" & Indirizzo, Destination:=Range("$A$1"))
'        .Name = "30"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone ' xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub


Nel Foglio0 a partire dalla riga "2"
1. in colonna "A" ci sono i nomi dei fogli che devono contenere le query
2. in colonna "B" ci sono gli indirizzi delle query senza "http://"

Prova e ... sono QUI
Se con i dati del "Foglio0" alla i-esima riga nel "Foglio .." la query non è presente verrà inserita automaticamente
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Connessioni query

Postdi fara15 » 04/07/13 14:16

Ciao Ricky,

sei stato di parola, funziona tutto perfettamente, anche lo scarico dei dati copia solo i valori e non il formato.
Sei veramente bravo e disponibile.
Un grazie di cuore ed un saluto a tutto il Team
fara15
Utente Junior
 
Post: 23
Iscritto il: 19/12/11 20:01

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "Connessioni query":


Chi c’è in linea

Visitano il forum: Nessuno e 72 ospiti