Come creare un foglio di calcolo in Excel da Access usando VBA

Autore: Eugene Taylor
Data Della Creazione: 8 Agosto 2021
Data Di Aggiornamento: 18 Novembre 2024
Anonim
Come esportare da Access a Excel con VBA
Video: Come esportare da Access a Excel con VBA

Contenuto

La creazione di un foglio di lavoro Excel in Access consente di risparmiare tempo quando è necessario esportare i dati in un foglio di lavoro Excel. Visual Basic for Applications (VBA) può essere un potente strumento per l'automazione dei processi nelle applicazioni di Microsoft Office. Con VBA è possibile utilizzare l'oggetto Application di Microsoft Excel per creare un foglio di calcolo Excel da Access. L'oggetto Excel è il punto di partenza per il resto del modello a oggetti. Esportare i dati in Excel più velocemente salvando i dati direttamente in un foglio di lavoro Excel.


indicazioni

Salvare i dati in un foglio di lavoro Excel utilizzando VBA (Jupiterimages / Photos.com / Getty Images)

    indicazioni

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

  2. Fai clic sul menu "Strumenti" e fai clic su "Riferimenti". Scorri e seleziona la casella accanto a "Microsoft Excel Libreria di oggetti "(libreria di oggetti di Microsoft Excel). Fai clic su "OK".

  3. Inizia digitando il seguente codice in VBA per creare una nuova sottoprocedura:


    Private Sub createSpreadSheet ()

  4. Continua a digitare il codice seguente per creare tre nuove variabili oggetto che verranno utilizzate per creare il foglio di lavoro di Excel:

    Dim newExcelApp As Excel.Application Dim newWbk As Excel.Workbook Dim newWkSheet As Excel.Worksheet

  5. Aggiungi il seguente codice per eseguire Excel e visualizzarlo:

    Imposta newExcelApp = Excel.Application newExcelApp.Visible = True

  6. Immettere il codice seguente per aggiungere una nuova cartella di lavoro e foglio di lavoro:

    Imposta newWbk = newExcelApp.Workbooks.Add Set newWkSheet = newWbk.Worksheets (1)

  7. Aggiungi dati al tuo nuovo foglio di lavoro digitando il seguente codice:

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

  8. Salva la nuova cartella di lavoro creata inserendo il seguente codice:

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

  9. Modifica il percorso nel passaggio precedente e inserisci la directory e il nome file di tua scelta.


  10. Immettere il codice seguente per terminare la procedura secondaria:

    End Sub

  11. Premere "F5" per eseguire la procedura e creare un nuovo foglio di lavoro Excel.