Creazione di un foglio di calcolo di Excel in Access consente di risparmiare tempo quando si ha bisogno di esportare i dati in un foglio di calcolo di Excel. Visual Basic, Applications Edition (VBA) può essere un potente strumento per automatizzare i processi nelle applicazioni di Microsoft Office. Con il VBA è possibile utilizzare l'oggetto Application di Microsoft Excel per creare un foglio di calcolo di Excel da Access. L'oggetto applicazione Excel è il punto di ingresso per il resto del modello a oggetti. Esportazione dati più veloci per Excel salvando i dati direttamente in un foglio di calcolo Excel.

istruzione

1 Avviare Microsoft Office Access, fare clic su "Database vuoto" e fare clic sul pulsante "Crea" per creare un database vuoto. Fare clic sulla scheda "Database Tools" e fare clic su "Visual Basic" per aprire la finestra di Microsoft Visual Basic. Fare clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice.

2 Fai clic sul menu "Strumenti" e fare clic su "Riferimenti". Scorrere verso il basso e selezionare la casella accanto a "Microsoft Excel <numero di versione> Object Library". Fai clic su "OK".

3 Inizia digitare il seguente codice VBA per creare una nuova routine Sub:

Private Sub createSpreadSheet ()

4 Continuare digitando il seguente codice per creare tre nuovi oggetti variabili che verranno utilizzati per creare il foglio di calcolo di Excel:

Dim newExcelApp As Excel.Application

Dim newWbk Come Excel.Workbook

Dim newWkSheet Come Excel.Worksheet

5 Aggiungere il seguente codice per lanciare Excel e visualizzarla:

Set newExcelApp = Excel.Application

newExcelApp.Visible = True

6 Digitare quanto segue per aggiungere una nuova cartella di lavoro e un foglio di lavoro:

Set newWbk = newExcelApp.Workbooks.Add

Set newWkSheet = newWbk.Worksheets (1)

7 Aggiungere dati al nuovo foglio digitando la seguente:

newWkSheet.Cells (1, 1) .Value = "Nuovo foglio di lavoro ..."

8 Salvare la nuova cartella di lavoro creato da digitando il seguente codice:

newWkSheet.SaveAs ("C:\myworksheet.xlsx")

9 Modificare il percorso nel passaggio precedente e digitare il percorso e il nome di vostra scelta file.

10 Digitare quanto segue per terminare la procedura di sub:

End Sub

11 Premere il tasto "F5" per eseguire la vostra procedura e creare un nuovo foglio di calcolo Excel.