+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 16

Esportare dati da una MSHflexgrid a Excel

  1. #1
    keanurives non  in linea Scolaretto
    Salve a tutti vorrei esportare, usando ADO, i dati di una mshflexgrid a un foglio di Excel con un click, qualcuno sa come fare? Grazie anticipatamente. [img]smileys/smiley1.gif[/img]

  2. #2
    LucaValcavi non  in linea Scolaretto
    Ciao keanurives,

    dai una occhiata qui:

    http://www.vb-fun.de/cgi-bin/loadfra.../tip0303.shtml

    Il sito è in tedesco ma il codice VB no [img]smileys/smiley1.gif[/img]

    Ciao!
    Luca

  3. #3
    keanurives non  in linea Scolaretto
    Mi da errore il link... Uups, hier ist aber etwas schief gelaufen. [img]smileys/smiley19.gif[/img]

  4. #4
    keanurives non  in linea Scolaretto
    Ho trovato il codice, funziona, ma non mi mette le intestazioni chi puo aiutarmi?? [img]smileys/smiley19.gif[/img]


    Private Sub Command1_Click()
    'Create a Recordset from all the records in the Orders table
    Dim sNWind As String
    Dim conn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    sNWind = _
    "C:\northwind.mdb"
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
    sNWind & ";"
    conn.CursorLocation = adUseClient
    Set rs = conn.Execute("Ordini", , adCmdTable)

    'Create a new workbook in Excel
    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Add
    Set oSheet = oBook.Worksheets(1)


    'Transfer the data to Excel

    oSheet.Range("A1").CopyFromRecordset rs

    'Save the Workbook and Quit Excel
    oBook.SaveAs "C:\Table.xls"
    oExcel.Quit

    'Close the connection
    rs.Close
    conn.Close
    End Sub

  5. #5
    LucaValcavi non  in linea Scolaretto
    ... ehm [img]smileys/smiley4.gif[/img] ... copia - incolla?

    Elimina lo spazio nella parola "tip030 3.shtml"

    Ciao!
    Luca

  6. #6
    LucaValcavi non  in linea Scolaretto
    ... cosa vuol dire le intestazioni?

  7. #7
    keanurives non  in linea Scolaretto
    L'intestazione delle colonne! che ne so sotto a nome c' pippo,pluto, ecc... [img]smileys/smiley1.gif[/img]

  8. #8
    LucaValcavi non  in linea Scolaretto
    Scusa (vista l'ora forse sono un po' suonato) ma il codice che hai allegato che cos'? Dov' "mshflexgrid"? Non volevi una routine che ti passasse da mshflexgrid a Excel?
    Il link che ti ho dato presenta tutt'altro codice...

    Ciao!
    Luca

  9. #9
    keanurives non  in linea Scolaretto
    in pratica i dati (la mshflexgrid) li prende dal recordset precedentemente, Set mshflexgrid1.DataSource = rs.
    di conseguenza il codice sopra citato filtra il recordset, tranne le famose intestazioni.

  10. #10
    LucaValcavi non  in linea Scolaretto
    Ciao keanurives,

    incastra questo codice:

    [...]
    oSheet.Range("A1").CopyFromRecordset rs
    '-------- colonne --------------
    Dim iCOl As Integer
    For iCOl = 0 To rs.Fields.Count - 1
    oSheet.Cells(1, iCOl + 1).Value = _
    rs.Fields(iCOl).Name
    Next
    oSheet.Range("A2").CopyFromRecordset rs
    '--------------------------------

    'Save the Workbook and Quit Excel
    oBook.SaveAs "C:\Table.xls"
    [...]

    Ciao!
    Luca

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. Esportare dati da access a excel
    Da seamission nel forum Microsoft Excel
    Risposte: 11
    Ultimo Post: 01-02-2010, 17:53
  2. esportare dati in [Excel]
    Da francof nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 06-02-2008, 11:55
  3. [excel] esportare dati
    Da francof nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 30-11-2007, 09:58
  4. Esportare dati da Access a Excel
    Da Fabio63 nel forum Microsoft Access
    Risposte: 14
    Ultimo Post: 24-11-2007, 21:47
  5. Esportare dati da Powerpoint ad Excel con Vba
    Da jos nel forum Microsoft Excel
    Risposte: 8
    Ultimo Post: 04-02-2006, 11:43