salve
per l'esportazione del Database su foglio Excel con una routine residente in Access, prova qualcosa di simile:

La macro che segue, prevede che nel Database ci sia una Query che ho chiamato "Query2" che filtra il DB per il nome fornitore
e li estrae in maniera univoca. questa è l'istruzione Sql della Query (NB ricordati di imposatre nella proprietà della query "valori Univoci > SI"

SELECT DISTINCT Tabella1.Fornitore
FROM Tabella1;

questa macro trasferisce i campi (un foglio per ogni fornitore) su un file denominato Prova2.xls sul disco C

Option Compare Database

Sub esportaExcel()
Dim db As Database
Dim rs As Recordset
Dim Qry As QueryDef
Set db = CurrentDb
Set rs = db.OpenRecordset("Query2")
rs.MoveFirst
Do Until rs.EOF
forn = rs!Fornitore
rs.MoveNext
strSQL = "Select Tabella1.Nriga, Tabella1.Codice," & _
"Tabella1.Descrizione, Tabella1.UM, Tabella1.Qta, Tabella1.Prezzo," & _
"Tabella1.Valore, Tabella1.Fornitore FROM Tabella1 WHERE tabella1.fornitore='" & forn & "';"
Set Qry = db.CreateQueryDef("Myqry", strSQL)
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
"Myqry", "C:\prova2.xls", True, forn
db.QueryDefs.Delete "Myqry"
Set Qry = Nothing
Loop
db.Close
Set db = Nothing
Set rs = Nothing
End Sub

saluti
Andrea

---