Salve a tutti, ho questo bottone che quando cliccato avvia la procedura di eliminazione della tabella e poi lancia una query che la ricrea con i dati aggiornati, l'ultima riga esporta la tabella in un file excel. A questo punto io vedo aperto il file excel. Quello che vorrei è innanzitutto non vedere a monitor il file excel aperto e inserire del codice che mi permetta automaticamente di esportare i dati del foglio excel in un file csv, con i caratteri di separazione le "," anzichè i ";". Inoltre mi sa che devo inserire verso la fine il rilascio della variabile tds perche dopo la prima volta mi esce un errore.
Certo di un vostro aiuto vi ringrazio tutti quanti della collaborazione
codice:Private Sub Comando96_Click() Dim db As Database Dim tds As TableDefs Dim destdb As String Dim tabletodelete As String destdb = "C:\Users\Marco\Documents\DataBase Access\Paradisea\Paradisea.mdb" tabletodelete = "T_Export" Set db = OpenDatabase(destdb) Set tds = db.TableDefs tds.Delete tabletodelete DBEngine(0)(0).Execute "Q_Export", dbFailOnError DoCmd.OutputTo acOutputTable, "T_Export", acFormatXLSX, "Export.xlsx", True
