Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 12

Esportare dati da access a excel

  1. #1
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Buon giorno
    Da giorni sto litigando con l'esportazione di alcuni dati da access in excel, vengo al dunque.
    Ho una query che preleva dati da due tabelle relazionate uno a molti,
    Tab_A padre tab_B Figli
    Nel caso un record padre possiede più record figli , la query mi mostra
    tutti i record figli e mi duplica il record padre tante volte quanto è il n° dei record figli.
    Con l'uso di un report ho risolto l'aspetto grafico della cosa, ma dovendo esportare il tutto su un modello excel il problema si ripresenta.
    Esportando i dati della query ottengo come detto la duplicazione dei record "Padre" ma posso usare il mio modello preformattato senza dover fare modifiche alle celle.
    Esportando il report invece ottengo ad ogni esportazione un foglio excel
    non formattato secondo il mio modello e per cui debbo intervenire manualmente sulla formattazione delle celle .
    Mi chiedo se esiste un modo per dire alla query di non duplicare i record padre?
    Oppure esportare il report in un modello excel preformattato?
    Allego il codice che uso per esportare il report.
    Dim percorso As String
    percorso = CurrentProject.Path & "\"
    DoCmd.OutputTo acOutputReport, "Esporta_Excel_Assistenza", acFormatXLS, percorso & "Esporta_Excel_Assistenza.xls"
    
    ℹ️ Leggi di più su seamission ...

  2. #2
    L'avatar di almorel
    almorel non è in linea Scribacchino
    Ciao,
    non vedo alternative se non quella di trasferire in Word il tuo report.
    Se invece ti serve Excel per ulteriori elaborazioni non credo ci siano soluzioni, è nella natura delle query comportarsi così.
    Ciao
    Alberto

  3. #3
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Quote Originariamente inviato da almorel Visualizza il messaggio
    Ciao,
    non vedo alternative se non quella di trasferire in Word il tuo report.
    Se invece ti serve Excel per ulteriori elaborazioni non credo ci siano soluzioni, è nella natura delle query comportarsi così.
    Ciao
    Alberto
    Ciao Almorel
    Grazie per la risposta , si!! mi serve in excel altrimenti bastava l'effetto grafico del reporto, che se non sbaglio era un tuo suggerimento.
    Cosa mi puoi dire del secondo quesito.
    Assia che il report venga scritto su di un modello?
    ℹ️ Leggi di più su seamission ...

  4. #4
    L'avatar di almorel
    almorel non è in linea Scribacchino
    Si potrebbe pensare ad una macro in excel che formatta il foglio.
    Però lì non ti posso essere d'aiuto.
    Ciao
    Alberto

  5. #5
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Quote Originariamente inviato da almorel Visualizza il messaggio
    Si potrebbe pensare ad una macro in excel che formatta il foglio.
    Però lì non ti posso essere d'aiuto.
    Ciao
    Alberto
    Grazie Almorel aspettiamo aiuto da chi ne capisce più di noi, e non sarebbe una pessima soluzione.
    ℹ️ Leggi di più su seamission ...

  6. #6
    L'avatar di dodo47
    dodo47 non è in linea Topo di biblioteca
    Ciao Giovanni
    come accennato via MP una soluzione è quella di esportare in excel non il risultato della query, ma il risultato di una tabella basata sui tuoi dati.

    Quindi al posto della query di selezione, fai una query crea una tabella che avrà i valori "Padre" doppi naturalmente, poi, essendo una tabella, ci puoi lavorare cancellando con una routine i doppioni.
    Infine esporti la tabella.

    saluti

  7. #7
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Quote Originariamente inviato da dodo47 Visualizza il messaggio
    Ciao Giovanni
    come accennato via MP una soluzione è quella di esportare in excel non il risultato della query, ma il risultato di una tabella basata sui tuoi dati.

    Quindi al posto della query di selezione, fai una query crea una tabella che avrà i valori "Padre" doppi naturalmente, poi, essendo una tabella, ci puoi lavorare cancellando con una routine i doppioni.
    Infine esporti la tabella.

    saluti
    Ciao Domenico
    Domani ci perdo un po di tempo e ti faccio sapere

    come accennato da almorel si potrebbe inserire una macro in excel che pulisce i dati non desiderati.
    Allego quanto scritto da Dodo nel foglio excel e che fà quanto te prospettato.

    Private Sub Workbook_Open()
    With Range("A:A")
    x = 3 'parto dal secondo record
    k = Cells(2, 1).Value
    Do Until Cells(x, 1) = ""
        If Cells(x, 1).Value = k Then
            For y = 1 To 24 ' Numero colonne da pulire: ho incluso anche Id_assistenza. Se non va cancellato metti ...To 23
                Cells(x, y) = ""
            Next y
        Else
            k = Cells(x, 1).Value
        End If
        x = x + 1
    Loop
    End With
    End Sub
    
    Di più non sono in grado di fare
    ciao
    
    Grazie all'aiuto di dodo ho risolto il quesito testerò l'altro metodo accennato e poi vi faccio sapere.
    ℹ️ Leggi di più su seamission ...

  8. #8
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Quote Originariamente inviato da dodo47 Visualizza il messaggio
    Ciao Giovanni
    come accennato via MP una soluzione è quella di esportare in excel non il risultato della query, ma il risultato di una tabella basata sui tuoi dati.

    Quindi al posto della query di selezione, fai una query crea una tabella che avrà i valori "Padre" doppi naturalmente, poi, essendo una tabella, ci puoi lavorare cancellando con una routine i doppioni.
    Infine esporti la tabella.

    saluti
    Ciao Dodo
    Ma non si potrebbe ripulire sul foglio excel anche quella colonna alla fine che ci mostrano quegli antipatici 1 "Trimestre".
    Cosa ne pensi.
    ℹ️ Leggi di più su seamission ...

  9. #9
    L'avatar di dodo47
    dodo47 non è in linea Topo di biblioteca
    Quote Originariamente inviato da seamission Visualizza il messaggio
    Ciao Dodo
    Ma non si potrebbe ripulire sul foglio excel anche quella colonna alla fine che ci mostrano quegli antipatici 1 "Trimestre".
    Cosa ne pensi.
    nei file che ti ho trasmesso quelle colonne sono già tolte dall'origine, cioè nelle due routine esporta.

    le istruzioni interessate sono:

    per Esportazione:
    For iCol = cStartColumn To cStartColumn + (rst.Fields.Count - 2)
    
    per Esportazione2
    For iCol = cStartColumn To cStartColumn + (rst.Fields.Count - 3)
    
    te l'avevo scritto nella mail....

    diceva un mio vecchio capo: leggite 'e carte !!

    ciao

  10. #10
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Quote Originariamente inviato da dodo47 Visualizza il messaggio
    nei file che ti ho trasmesso quelle colonne sono già tolte dall'origine, cioè nelle due routine esporta.

    le istruzioni interessate sono:

    per Esportazione:
    For iCol = cStartColumn To cStartColumn + (rst.Fields.Count - 2)
    
    per Esportazione2
    For iCol = cStartColumn To cStartColumn + (rst.Fields.Count - 3)
    
    te l'avevo scritto nella mail....

    diceva un mio vecchio capo: leggite 'e carte !!

    ciao
    Penso ti riferisci al db dove usi la query per creare la tabella temporanea, se cosi fosse gli ho dato solo una sbirciatina.
    Io mi riferivo all'altro sistema dove ad essere esportata è la query,
    inoltre ti chiedo se bisogna anche qui sostituire quel pezzo di codice inviatomi via e-mail

    = '" & Me.[Trimestre] & "'"
    
    Grazie

    Ps. risolto la cancellazione dell'ultima colonna.
    Ultima modifica di seamission; 01-02-2010 13:59 
    ℹ️ Leggi di più su seamission ...

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. Esportare dati da Access ad Excel
    Da faoineag nel forum Microsoft Access
    Risposte: 15
    Ultimo Post: 13-11-2020, 16:32
  2. Esportare dati da Access ad Excel
    Da federicodi84 nel forum Microsoft Access
    Risposte: 13
    Ultimo Post: 13-08-2014, 13:05
  3. Articolo: [Access] Esportare dati in Excel e/o XML
    Da @Alex nel forum Microsoft Access
    Risposte: 0
    Ultimo Post: 25-12-2010, 21:37
  4. esportare dati da access ad excel
    Da chris77 nel forum Microsoft Excel
    Risposte: 6
    Ultimo Post: 24-09-2009, 17:04
  5. Esportare dati in excel da access
    Da gaetano66 nel forum Microsoft Access
    Risposte: 5
    Ultimo Post: 13-06-2008, 13:52