+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 3 su 3

Esportare risultati di una query in excel

  1. #1
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Salve a tutti son tornato, ho un problema, ho creato un programma che lavora con un database creato in access funge tutto , ho creato anche delle ricerche incorciate nel database che mostrano i risultati in una DBGRID e ho fatto il modo di aver la possibilita' di stampare i risultati , ora avrei la neccessita' di esportatre questi risultati in formato excel, come potrei fare???? tenete presente che utilizzo ado con udo e un datacontrol, la stringa che uso per la query e' la seguente:
    Dim s As String
    Dim fede As String


    fede = "NO"

    s = "select * from [TABELLA PC] where [IN CARICO]='" & fede & "'OR [IN CARICO]='" & fede & "' ORDER by [RIF]"
    Data1.RecordSource = s
    Form9.Data1.RecordSource = s


    qualche aiuto???
    ℹ️ Leggi di più su queen_live78 ...

  2. #2
    L'avatar di TheTruster
    TheTruster ora è in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    per prima cosa, tra i riferimenti, nel tuo progetto metti la spunta su:

    Microsoft Excel 10.0 Object Library

    poi usa questo codice:

    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim R as Integer, F as Integer
    Dim WSName as String
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets("Foglio1")
    
    Data1.Recordset.MoveFirst
    For R = 0 To Data1.Recordset.RecordCount - 1
        For F = 0 To Data1.Recordset.Fields.Count - 1
            xlSheet.Cells(R, F).Value = Data1.Recordset.Fields(F).Value
        Next F
        Data1.Recordset.MoveNext
    Next R
    
    WSName = InputBox("Insierisci il nome del file: ")
    
    xlBook.SaveAs (App.Path & "\" & WSName)
    xlBook.Close
    xlApp.Quit
    
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
    
    TheTruster
    ℹ️ Leggi di più su TheTruster ...

  3. #3
    bornslippy non è in linea Scribacchino
    Consiglio l'utilizzo del Metodo CopyFromRecordset

    Dalla guida in linea:

    "Copia il contenuto di un oggetto Recordset ADO (ActiveX Data Object) o DAO (Data Access Object) in un foglio di lavoro, iniziando dall'angolo superiore sinistro dell'intervallo specificato"

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. esportare più query in un file excel
    Da salto quantico nel forum Microsoft Access
    Risposte: 9
    Ultimo Post: 19-06-2020, 00:29
  2. Esportare query vba o recordset in excel
    Da maxs84 nel forum Microsoft Access
    Risposte: 5
    Ultimo Post: 03-02-2017, 13:23
  3. Esportare query complessa in excel
    Da Silverfox63 nel forum Visual Basic 6
    Risposte: 13
    Ultimo Post: 01-10-2008, 22:14
  4. Esportare una query in excel
    Da Carmen nel forum ASP 3, ASP .Net
    Risposte: 0
    Ultimo Post: 16-09-2008, 10:24
  5. esportare risultati maschera in excel
    Da niclo nel forum Microsoft Excel
    Risposte: 8
    Ultimo Post: 12-11-2007, 11:45