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

[excel] esportare dati

  1. #1
    L'avatar di francof
    francof non è in linea Scolaretto
    ciao a tutti,

    da un recordset ado di una tabella .mdb, creo un foglio excel:

     Dim cnt As New ADODB.Connection
    Dim rst As New ADODB.Recordset
        
    Dim xlApp As Object
    Dim xlWb As Object
    Dim xlWs As Object
    
    Dim recArray As Variant
        
    Dim strDB As String
    Dim fldCount As Integer
    Dim recCount As Long
    Dim iCol As Integer
    Dim iRow As Integer
        
        ' Setta la stringa con la  path del database
    strDB = "C:\ESA_Archivi\ESA.mdb"
      
        ' apre la  connessione al database
    cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & strDB & ";"
            
        
        rst.Open "Select tblPro_Cod as Num_Br, tblBrev_Sigla as Sigla, " & _
        "format(tblPro_DcBrev, 'dd/mm/yyyy') as Convalida, tblPro_Cogn as Cognome, " & _
        "tblPro_Nom as Nome, format(tblPro_DNasc, 'dd/mm/yyyy') as Data_Nasc, " & _
        "tblPro_Ind as Indirizzo, tblPro_Cap as Cap, tblPro_Loc as Località, " & _
        "tblPro_Prov as Prov, tblPro_Stato as Naz, tblPro_Mail as E_Mail, " & _
        "tblPro_Cel as Cellulare, tblPro_CF as Cod_Fisc From tblPro, tblBrev " & _
        "WHERE tblPro_CBrev = tblBrev_Cont AND tblBrev_Tipo  LIKE 'P' ORDER BY tblPro_Cod", cnt
    
        ' Crea un'istanza di Excel a aggiunge un workbook
    Set xlApp = CreateObject("Excel.Application")
    Set xlWb = xlApp.Workbooks.Add
    Set xlWs = xlWb.Worksheets("foglio1")
    
        ' visualizza Excel e abilita i controlli di Excel
    xlApp.Visible = True
    xlApp.UserControl = True
        
        ' copia i nomi dei campi nella prima riga del foglio (intestazione colonne)
    fldCount = rst.Fields.Count
    For iCol = 1 To fldCount
        xlWs.Cells(1, iCol).Value = rst.Fields(iCol - 1).Name
        xlWs.Cells(1, iCol).Font.Bold = True
    Next
            
        ' controlla la  versione di Excel
        If Val(Mid(xlApp.Version, 1, InStr(1, xlApp.Version, ".") - 1)) > 8 Then
            'EXCEL 2000 or 2002: usa la funzione CopyFromRecordset
             
                ' copia il recordset nel foglio, partendo dalla seconda riga di celle
            xlWs.Cells(2, 1).CopyFromRecordset rst
    ....
    ...
    
    vorrei "solo" poter impostare il nome della cartella che viene creata sostituendolo a quello di default (cartel1.xls) ha a che fare con il Workbook?, modificare l'altezza della prima riga (intestazioni di colonna) e la larghezza di una determinata colonna.

    dove potrei trovare una guida o delle istruzioni x fare ciò?

    grazie
    franco

  2. #2
    L'avatar di gibra
    gibra non è in linea Very Important Person

  3. #3
    L'avatar di francof
    francof non è in linea Scolaretto
    Quote Originariamente inviato da gibra Visualizza il messaggio
    Nella guida VBA di Excel.

    Ciao
    magnifico
    grazie

  4. #4
    L'avatar di francof
    francof non è in linea Scolaretto
    trovato:
         xlWb.SaveAs "percorso\pippo.xls"
    

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Esportare su excel dati sottomaschera
    Da maxs84 nel forum Microsoft Access
    Risposte: 13
    Ultimo Post: 22-02-2018, 16:29
  2. Esportare dati da Access ad Excel
    Da federicodi84 nel forum Microsoft Access
    Risposte: 13
    Ultimo Post: 13-08-2014, 13:05
  3. Esportare dati da excel a word
    Da machopicho nel forum Microsoft Excel
    Risposte: 14
    Ultimo Post: 12-08-2009, 12:39
  4. Esportare dati in excel da access
    Da gaetano66 nel forum Microsoft Access
    Risposte: 5
    Ultimo Post: 13-06-2008, 13:52
  5. esportare dati in [Excel]
    Da francof nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 06-02-2008, 11:55