Export MS Access tabelle tramite VBA un foglio Excel in stessa directory

Question

ho due tabelle nel mio database di Access che voglio essere in grado di esportare in excel .

posso farlo aprendo il tavolo e poi fare File-> Esporta ... e poi scegliere il formato e digitando il nome del file.

Tuttavia, in questo modo l'utente ha effettivamente a digitare il nome nella quindi non c'è spazio per misnaming il file o per salvarlo come formato sbagliato o nella posizione sbagliata. Inoltre, le due tabelle devono essere esportati in due cartelle di lavoro separati.

Quello che voglio essere in grado di fare è fare un in un modulo che esporta automaticamente un tavolo un foglio e l'altro a un altro foglio , sia nel stessa cartella di lavoro di Excel .

Se mettendoli nella stessa cartella di lavoro non è possibile, va bene. Voglio solo loro di essere esportati automaticamente nella stessa directory il mio accesso al database viene salvato in.

Se sai come farlo, un perk aggiunto potrebbe essere quella di personalizzare il nome per includere la data. In questo modo la directory avrebbe esportazioni storiche pure. Qualche consiglio?

Answer 1

È possibile utilizzare VBA per esportare una tabella di database di Access come un foglio di lavoro in una cartella di lavoro di Excel.

Per ottenere il percorso del database di Access, utilizzare la proprietà CurrentProject.Path.

Per assegnare un nome al file di Excel cartella di lavoro con la data corrente, utilizzare il metodo Format(Date, "yyyyMMdd").

Infine, per esportare la tabella come un foglio di lavoro, utilizzare il metodo DoCmd.TransferSpreadsheet.

Esempio:

Dim outputFileName As String
outputFileName = CurrentProject.Path & "\Export_" & Format(Date, "yyyyMMdd") & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table1", outputFileName , True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table2", outputFileName , True

Ciò produrrà sia Table1 e Table2 nella stessa cartella di lavoro.

HTH

Answer 2

Lawrence vi ha dato una buona risposta. Ma se si vuole un maggiore controllo su ciò che viene esportato in cui in Excel vedi Moduli: Esempio Excel Automation - cella per cella, che è lento e Moduli: trasferimento dei set di Excel con l'automazione Si possono fare cose come ad esempio l'esportazione il set di record a partire nella riga 2 e inserire il testo personalizzato in fila 1. così come qualsiasi formattazione personalizzata richiesto.

Answer 3

Per le persone che trovano questo tramite motori di ricerca, non è necessario VBA. Si può solo:

1.) select the query or table with your mouse
2.) click export data from the ribbon
3.) click excel from the export subgroup
4.) follow the wizard to select the output file and location.