codice:
Public Sub Report_Polizze_Attive(Path_File_Excel As String)
Dim db As Database
Dim rs As Recordset
Dim sql As String
Dim r, c As Integer
Dim ExcelApp As Object
Dim Worbk As Workbook
    '**********************************************************************************
    'CREAZIONE DEL FILE EXCEL
    '**********************************************************************************
    Open Path_File_Excel For Output As #1
    Close #1
    '**********************************************************************************
    'CREAZIONE DELL'OGGETTO ExcelApp E APERTURA DEL FILE
    '**********************************************************************************
    Set ExcelApp = CreateObject("excel.application")
    ExcelApp.Workbooks.Open Path_File_Excel
    '**********************************************************************************
    'CREAZIONE DELLA QUERY PER LE POLIZZE ATTIVE
    '**********************************************************************************
    sql = "select * from Tab"
    '**********************************************************************************
    'LETTURA DATI DAL DATABASE ED ESPORTAZIOINE IN EXCEL
    '**********************************************************************************
    Set db = DAO.OpenDatabase(Path_Db_access)
    Set rs = db.OpenRecordset(sql)
        
    r = 3
    Do While Not rs.EOF
        Cells(r, 1) = rs.Fields(0)
        Cells(r, 2) = rs.Fields(1)
        Cells(r, 3) = rs.Fields(2)
        Cells(r, 4) = rs.Fields(3)
        Cells(r, 5) = rs.Fields(4)
        Cells(r, 6) = rs.Fields(5)
        r = r + 1
        rs.MoveNext
    Loop
    '**********************************************************************************
    'RILASCIO DEGLIO OGGETTI E CHIUSURA DATABASE
    '**********************************************************************************
    db.Close
    ExcelApp.Visible = True
    Set ExcelApp = Nothing
End Sub
Non sò proprio perchè l'applicazione Excel rimane aperta...