Importa dati da query Access

Question

Buongiorno a tutti,

molto soddisfatto degli aiuti avuti in precedenza vi chiedo ancora consiglio su come procedere rispetto ad alcuni problemi che sto avendo.

in precedenza avevo richiesto aiuto perchè avevo necessità di importare dei dati da query su database access che si aggiornassero contemporaneamente (e in modo temporizzato) su diversi fogli di excel.

allego il link

http://answers.microsoft.com/it-it/office/forum/office_2003-excel/impossibile-eseguire-query-che-non-contiente/1ad25393-e456-e011-8dfc-68b599b31bf5

Tutto funziona alla grande dopo i consigli di creazione del codici su Excel e sui codici VBS per le operazioni pianificate.

Analizzando pero' i fogli excel mi accorgo che questi contengono degli errori sui dati.

Mi spiego meglio...

i file importano dati da una query che al suo interno prendono dati da tabelle, query a campi incorciati, e hanno campi calcolati.

Aprendo la query dirattamente su access vedo tutti i valori corretti...importando la query su excel su diverse colonne mi restituisce i dati con valore zero.

Nel dettaglio mi accorgo che questo problema è focalizzato sulle colonne con campi calcolati e sulle colonne che prendono dati da Query a campi incrociati.

Qualcuno potrebbe aiutarmi a capire dove sto sbagliando?

Grazie mille per l'aiuto che potrete darmi

Luca

Answer 1

Ciao Luca,

la query da eseguire all'interno di excel è "QWR_ANALITICI_AGENTI", che come detto va trasformata prima in query di creazione tabella. Il nome della tabella è a tua scelta. Nell'esempio che segue ho utilizzato "TBL_APPOGGIO". Poi devi recuperare i dati da quella tabella.

ti riepilogo il codice sull'evento workbook_open

---

Private Sub Workbook_Open()

    Dim oApp As Object

    'Apre Access e lo rende invisibile

    Set oApp = CreateObject("Access.Application")

    'oApp.Visible = False

    'Apre PintelAgent_be.mdb

    oApp.OpenCurrentDatabase _

'    "\\Serversbs\Dati\Pintel Agent\Anno2011\DataBase\PintelAgent_be.mdb"

'    'Eseguo la query di creazione tabella

    oApp.DoCmd.OpenQuery "QWR_ANALITICI_AGENTI"

    oApp.CloseCurrentDatabase

    Set oApp = Nothing

    Dim s As String

    Dim strVenditore As String

    strVenditore = "DePaoli Andrea"

    s = "SELECT * FROM TBL_APPOGGIO WHERE Venditore = '" _

        & strVenditore & "'"

    Call mRecuperaDati(s)

    ThisWorkbook.Worksheets("Foglio1").Range("A1").CurrentRegion.Select

    Selection.AutoFilter

    Selection.Columns.AutoFit

    If Not bChiedi Then

        ThisWorkbook.Close savechanges:=True

    Else

        MsgBox "Vuoi chiudere la cartella di lavoro?", vbQuestion + vbDefaultButton2 + vbYesNo _

            , "richiesta chiusura"

    End If

End Sub

---

David

Answer 2

Ciao David,

ho importato nuovamente il DB con inseriti dei dati per farti capire meglio e il file excel di un utente.

Per le colonne che ti indivo se verifichi su la query (QWR_ANALITICI_AGENTI) e il file excel troverai che i dati non sono corretti.

Qualche esempio di ID Ordine per il quale vedi l'errore

ID ordine 5300, 5301 e tanti altri....

Luca

https://cid-bc01dac35e697abb.skydrive.live.com/redir.aspx?resid=BC01DAC35E697ABB!102&authkey=bnmvaS7zQC0%24

Answer 3

Perdonami,

probabilmente sono io che non riesco a seguirti, ma almeno nella versione che ho io, i dati presenti nella query QWR_ANALITICI_AGENTI corrispondono a quanto ritrovo in excel nelle medesime colonne.

Prova a mettere in condivisione la tua versione magari c'è qualcosa che mi sfugge.

David

Answer 4

Ciao David,

grazie come al solito per la pronta risposta...

Anche se con pochi dati la query è QWR_ANALITICI_AGENTI sul db che avevo precedentemente condiviso...

le colonne che su questa query sono presenti (e correttamente valorizzate) ma non rispondono correttamente i dati in excel sono:

Ordinario CNV Pista maturato

Piste Integrazione

K_Piste Integrazione

Ordinario CNV Integrazione Maturato

Totale Ordinario CNV Maturato

Queste su excel sono identiche nelle intestazioni visto l'importazione con codice che mi avevi fornito precedentemente.

Spero di essere stato chiaro

Grazie ancora

Luca

Answer 5

Ciao Luca,

ho i files che avevi precedentemente condiviso. Riferendoti a quelli, o mettendo in condivisione altri aggiornati, dovresti essere un po' più preciso su quali campi, quali query e in quali colonne di excel.

David