Acquista i nostri libri consigliati su Amazon.it
Discussione chiusa
Pagina 2 di 2 primaprima 12
Visualizzazione dei risultati da 11 a 13 su 13

Esportare su excel dati maschera filtrati

  1. #11
    maxs84 non è in linea Scribacchino
    Questo mi era sfuggito:
    funziona alla grande!
    Ora cerco di capire quello che mi sfuggiva!


    Grazie

    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Ovviamente aggiungo che se a quella funzione invece di passare la Stringa SQL passi direttamente il Recordset di FORM, ti semplifichi la vita e tiene contro dei Filtri...
    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
    
    Da richiamare così
       Call ExportToExcel(Me.RecordsetClone, "A1")
    

  2. #12
    Matteo7513 non è in linea Novello
    Riapro questo vecchio post perché l´ho appena trovato e ho usato la funzione qui sopra che funziona bene ma solo la prima volta. Mi spiego meglio: ho un form che seleziona dati da una tabella secondo quanto inserisco in una combobox. Apro il form, seleziono nella combo quello che voglio, il form estrae i record corretti, premo il pulsante di esportazione con la funzione del post e funziona benissimo. Cambio il valore nella combo, il form aggiorna i record, ripremo il pulsante di esportazione, mi si apre una nuova istanza di Excel ma il foglio é vuoto. Non ci sono i record. Il recordset viene correttamente passato alla funzione, ho controllato in debug ma poi non viene incollato. Perché? Ci sto impazzendo! Grazie a chi vorrá aiutarmi e grazie comunque per la funzione che é proprio quello che stavo cercando.

  3. #13
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Matteo cosa dici del punto del regolamento che specifica come gestire i vecchi 3D...?
    Non la condividi...?
    L'hai letta...?
    Questo 3D intanto.che ci pensi lo chiudiamo.
    ℹ️ Leggi di più su @Alex ...

Discussione chiusa
Pagina 2 di 2 primaprima 12

Potrebbero interessarti anche ...

  1. [Access] Esportare in XLS record filtrati di una maschera
    Da peoweb nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 10-07-2015, 18:44
  2. Anteprima Report da Maschera con dati filtrati
    Da Pilotino nel forum Microsoft Word
    Risposte: 15
    Ultimo Post: 26-09-2012, 19:19
  3. [Access] Pulsante che apre una maschera con dati filtrati
    Da Callicrate nel forum Microsoft Access
    Risposte: 5
    Ultimo Post: 05-01-2010, 18:39
  4. esportare risultati maschera in excel
    Da niclo nel forum Microsoft Excel
    Risposte: 8
    Ultimo Post: 12-11-2007, 11:45
  5. Esportare i dati di una maschera
    Da ross nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 10-09-2007, 11:19