esportare tutto un db access in excel

[nicola75ss]

Prova a seguire questa procedura. Crea un file di excel vuoto sul desktop (chiamalo esporta.xls), salvalo e chiudilo.
Crea una maschera nel tuo database di access, inserisci un pulsante, apri la finestra delle proprietà con f4 e all'evento su click associa questo codice. Ovviamente modifica il percorso del file di excel al tuo contesto. Lancia la sub e vedi se funziona.

Private Sub Comando0_Click()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData
    For Each obj In dbs.AllTables
            If Left$(obj.Name, 4) <> "MSys" Then
            DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, obj.Name, "C:\Documents and Settings\Nome_utente\Desktop\esporta.xls", False
        End If
    Next obj
End Sub