Newsgroup: it.comp.appl.access
Titolo: Esportazione su foglio Excel

Buongiorno a tutti ho il seguente problema sto cercando di esportare tramite
una procedura da me realizzati dati su un foglio excel, problema è che alla
fine dell'esportazione il file viene salvato ma resta un istanza aperta di
excel nonostante la setti a nothing, come posso risolvere questo
inconveniente?
riporto una parte del codice incriminato sperando di avere una dritta grazie
a tutti x l'attenizione
Dim i As Integer
Dim Ssql As String
Dim FileExcel As String
Dim Rec As DAO.Recordset
Dim IsExcel As Object
On Error GoTo Err_ExportExcel_Click
 
    If Cornice23.Visible = True Then
        'eseguo la ricerca per ricavare il recordset da esportare in excel
        Ssql = "SELECT [Dipendenti].[Matricola], [Dipendenti].[Cognome], [Dipendenti
       '''''''''''cut criteri di ricerca
    End If
 
        Set Rec = CodeDb.OpenRecordset(Ssql)
 
        If Not IsNull(Rec.Fields(0)) Then
            Rec.MoveFirst
 
            ' Apertura Applicazione Excel
            If OpenExcel = True Then
                Set IsExcel = GetObject(, "Excel.Application")
            Else
                Set IsExcel = CreateObject("Excel.Application")
                OpenExcel = True
            End If
 
            IsExcel.WorkBooks.Add
 
            i = 1
            'inserisco le intestazioni in excel
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 1).Value = "Matricola "
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 2).Value = "Cognome "
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 3).Value = "Nome "
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 4).Value = "D.Assunzione"
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 5).Value = "D.Scadenza"
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 6).Value = "Contratto "
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 7).Value = "Livello"
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 8).Value = "Lordo Annuo "
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 9).Value = "Lordo Mensile "
            IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 10).Value = "Sgravi Fiscali"
 
            'adatto la larghezza dei campi alla dimensione delle etichette
 
            IsExcel.WorkBooks(1).Worksheets(1).Columns("A:L").EntireColumn.AutoFit
            IsExcel.WorkBooks(1).Worksheets(1).Activate
 
            'inizio a riempire il foglio
            DoEvents
            Do Until Rec.EOF
 
                i = i + 1
 
                If IsNull(Rec.Fields(0)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 1).Value = Rec.Fields(0)
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 1).Select
                    Selection.HorizontalAlignment = xlRight
                End If
 
                If IsNull(Rec.Fields(1)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 2).Value = Rec.Fields(1)
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 2).Select
                    Selection.HorizontalAlignment = xlRight
                End If
 
                If IsNull(Rec.Fields(2)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 3).Value = Rec.Fields(2)
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 3).Select
                    Selection.HorizontalAlignment = xlRight
                End If
 
                If IsNull(Rec.Fields(3)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 4).Value = CDate(Rec.Fields(3))
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 4).Select
                    Selection.HorizontalAlignment = xlRight
                    Selection.NumberFormat = "dd/mm/yyyy"
                End If
 
                If IsNull(Rec.Fields(4)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 5).Value = CDate(Rec.Fields(4))
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 5).Select
                    Selection.HorizontalAlignment = xlRight
                    Selection.NumberFormat = "dd/mm/yyyy"
                End If
 
                If IsNull(Rec.Fields(5)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 6).Value = Rec.Fields(5)
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 6).Select
                    Selection.HorizontalAlignment = xlRight
                End If
 
                If IsNull(Rec.Fields(6)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 7).Value = Rec.Fields(6)
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 7).Select
                    Selection.HorizontalAlignment = xlRight
                End If
 
                If IsNull(Rec.Fields(7)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 8).Value = CDbl(Rec.Fields(7))
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 8).Select
                    Selection.NumberFormat = "0.00"
                End If
 
                If IsNull(Rec.Fields(8)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 9).Value = CDbl(Rec.Fields(8))
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 9).Select
                    Selection.NumberFormat = "0.00"
                End If
 
                If IsNull(Rec.Fields(9)) = False Then
                    IsExcel.WorkBooks(1).Worksheets(1).Cells(i, 10).Value = CInt(Rec.Fields(9))
                End If
 
                Rec.MoveNext
 
            Loop
 
        End If
        'lo rendo visibile e lo salvo
        'IsExcel.Visible = True
        FileExcel = "Report" & Format(Now, "_dd_mm_yyyy_hh_mm_ss")
        IsExcel.WorkBooks(1).SaveAs Filename:=FileExcel
        IsExcel.WorkBooks(1).Close
 
        Rec.Close
        Set Rec = Nothing
        Set IsExcel = Nothing
 
        MsgBox "Attenzione è stato creato il file excel: " & FileExcel & ".xls",
vbOKOnly, "Informazione"
 
    End If
    Exit Sub
Err_ExportExcel_Click:
 
    Set IsExcel = Nothing
    MsgBox Err.Description
 
 
End Sub
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 MsgBox "Attenzione č stato creato il file excel: " & FileExcel & ".xls",


> troppo difficile, non siamo preparati x questo
ho risolto, grazie lo stesso!


 ho risolto, grazie lo stesso!
Non gli dire come hai fatto!
...non lo capirebbe!
;-)


 ha scritto nel messaggio
news:Viv6e.43885$Of5....@nntpserver.swip.net...

A me farebbe piacere capire come hai fatto.
Se non č chiedere troppo.
Charliebo59