Originariamente inviato da gibra
Tempo fa ho provato seguendo proprio i tuoi suggerimenti,
ma senza Excel installato mi dava errore in questo punto:

codice:
strSQL = "SELECT * INTO [Excel 8.0;Database=c:\prove\prova.xls].[Foglio1] FROM Customers"
cn.Execute strSQL
Posso sempre aver sbagliato qualcosa, ma ricordo che ci sbattei la testa un bel po' ma senza successo.

Ciao
Ciao Gibra
Ho ritrovato la prova che avevo fatto a suo tempo per creare il foglio excel.
Prova fatta su macchina virtuale con windows me senza excel installato, copiato il programma compilato in una path accessibile da windows me ed eseguito da lì con il doppio click.
Si tratta di 4 istruzioni in croce
Apri un form
Inserisci un button
recupera un database di access (io ho usato nortwind)
Cambia o imposta opportunamente la select
La seconda volta (quando ha già creato il foglio excel) andrà in errore perchè il file esiste già
codice:
Option Explicit
Private Sub Command1_Click()
  Dim cn As ADODB.Connection
  Set cn = New ADODB.Connection
  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NWind.mdb;Persist Security Info=False"
  cn.Open
  Dim strSQL As String
  strSQL = "SELECT * INTO [Excel 8.0;Database=" & App.Path & "\prova.xls].[Foglio1] FROM Customers"
  cn.Execute strSQL
  cn.Close
End Sub