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 14

Esportare su excel dati sottomaschera

  1. #1
    maxs84 non  in linea Scribacchino
    Salve a tutti,
    ho una maschera che contine a sua volta una sottomaschera collegata con una lista di allievi che vorrei espoerare in excel...

    In genere su questo database per esportate excel:
    Call ExportToExcel(Me.smEsamiSchede.Form.RecordsetClone, "A2")
    
    che richiama la seguente funzione:

    Function ExportToExcel(rs As DAO.Recordset, ByVal strRange)
    On Error GoTo Error_Handler
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
     
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.add
    Set xlWS = xlWB.Worksheets(1)
     
    xlWS.Range(strRange).CopyFromRecordset rs
     
    xlApp.Visible = True
     
    Set rs = Nothing
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
     
    ExportToExcel = True
    Exit Function
     
    Error_Handler:
        Debug.Print Err.Description
        ExportToExcel = False
    End Function
    
    La funzione fa il suo lavoro, ma nel caso io cambi record sulla maschere principale e di conseguenza la sottomaschera mi visualizza una nuova lista, il file excel da un foglio vuoto.

    Come mai?

    Grazie

  2. #2
    OsvaldoLaviosa non  in linea Topo di biblioteca
    Quote Originariamente inviato da maxs84
    ho una maschera che contine a sua volta una sottomaschera collegata con una lista di allievi che vorrei esportare in excel...
    Letto cos, io penserei a una query parametrica che mostra i dati della sottomaschera con criterio sul CampoID della maschera principale:
    [Maschere]![NomeMascheraPrincipale]![CampoID]

    Poi in VBA esporterei con un semplice
    DoCmd.OuputTo
    ℹ️ Leggi di pi su OsvaldoLaviosa ...

  3. #3
    maxs84 non  in linea Scribacchino
    ...non ti seguo!
    Cio coasi come faccio io, al primo record va, il problema quando cam,bio record...
    come se il dataset non si aggiornasse!

  4. #4
    OsvaldoLaviosa non  in linea Topo di biblioteca
    Io il tuo codice non riesco a interpretarlo. Ho solo proposto tutta un'altra soluzione in base alla frase che ho evidenziato.
    Fai almeno una prova e vedi se funziona.
    Riguardo DoCmd.OutputTo leggi qui
    https://msdn.microsoft.com/en-us/vba...-method-access
    perch sull'uso corretto dei suoi argomenti che raggiungi il tuo scopo.
    Ultima modifica di OsvaldoLaviosa; 22-02-2018 11:07 
    ℹ️ Leggi di pi su OsvaldoLaviosa ...

  5. #5
    Quote Originariamente inviato da maxs84 Visualizza il messaggio
    ...In genere su questo database per esportate excel:
    Call ExportToExcel(Me.smEsamiSchede.Form.RecordsetClone, "A2")
    
    Dove scritto questo codice?

  6. #6
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Si pu accadere in quanto il RecordsetClone ho notato che ha aggiornamenti non sempre coerenti.

    Prova a fare cos, sembra uguale... ma non lo :
    Call ExportToExcel(Me.smEsamiSchede.Form.Recordset.Clone, "A2")
    
    Verifica anche le ISTANZE di Excel in memoria... non si sa mai...
    ℹ️ Leggi di pi su @Alex ...

  7. #7
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da OsvaldoLaviosa Visualizza il messaggio
    Io il tuo codice non riesco a interpretarlo. Ho solo proposto tutta un'altra soluzione in base alla frase che ho evidenziato.
    Fai almeno una prova e vedi se funziona.
    Riguardo DoCmd.OutputTo leggi qui
    https://msdn.microsoft.com/en-us/vba...-method-access
    perch sull'uso corretto dei suoi argomenti che raggiungi il tuo scopo.
    Osvaldo... non ci siamo... altra occasione persa.
    ℹ️ Leggi di pi su @Alex ...

  8. #8
    OsvaldoLaviosa non  in linea Topo di biblioteca
    Ho testato questo
    Private Sub Comando41_Click()
    DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLS, CurrentProject.Path & "\Query1.xls"
    End Sub
    
    e fa quello che dice la scritta che ho evidenziato
    Quote Originariamente inviato da maxs84
    ho una maschera che contiene a sua volta una sottomaschera collegata con una lista di allievi che vorrei esportare in excel...
    avendo Query1 come query parametrica secondo il parametro che ho indicato prima.
    Altro non so.
    Se ho mal interpretato la richiesta di maxs84, allora mi ritiro.
    ℹ️ Leggi di pi su OsvaldoLaviosa ...

  9. #9
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da OsvaldoLaviosa Visualizza il messaggio
    Ho testato questo
    Private Sub Comando41_Click()
    DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLS, CurrentProject.Path & "\Query1.xls"
    End Sub
    
    e fa quello che dice la scritta che ho evidenziato

    avendo Query1 come query parametrica secondo il parametro che ho indicato prima.
    Altro non so.
    Se ho mal interpretato la richiesta di maxs84, allora mi ritiro.
    Quel codice Esporta in "A2" del WorkSheet(1)...?
    ℹ️ Leggi di pi su @Alex ...

  10. #10
    Scusa Osvaldo, ma se scrivi

    Quote Originariamente inviato da OsvaldoLaviosa Visualizza il messaggio
    Io il tuo codice non riesco a interpretarlo.
    come fai poi ad affermare

    Ho solo proposto tutta un'altra soluzione
    ?

    Non devi fermarti alle singole frasi o "parti" di frasi, ma devi analizzare il codice usato (che magari non funziona completamente) per capire cosa voleva fare.

    Se non lo comprendi, non ti avventuri su altre strade ... non credi?
    ℹ️ Leggi di pi su AntonioG ...

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. Articolo: [Access] Esportare dati in Excel e/o XML
    Da @Alex nel forum Microsoft Access
    Risposte: 0
    Ultimo Post: 25-12-2010, 21:37
  2. Ado, esportare dati da excel su access
    Da Saint nel forum Microsoft Excel
    Risposte: 4
    Ultimo Post: 12-06-2009, 12:27
  3. Esportare dati in excel da access
    Da gaetano66 nel forum Microsoft Access
    Risposte: 5
    Ultimo Post: 13-06-2008, 13:52
  4. esportare dati in [Excel]
    Da francof nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 06-02-2008, 11:55
  5. [excel] esportare dati
    Da francof nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 30-11-2007, 09:58