Microsoft Access e Excel quasi vanno di pari passo nello sviluppo di applicazioni di database in Access. Gli utenti amano analizzare i propri dati con Excel, e si può dare loro tale funzionalità, essendo in grado di aggiornare i fogli di calcolo da Access. In Access è possibile utilizzare Visual Basic, Applications Edition per aprire un foglio di calcolo Excel esistente e aggiornarlo con i dati in modo dinamico. In VBA è possibile utilizzare la libreria di oggetti di Microsoft Excel per manipolare gli oggetti di Excel.

istruzione

1 Fare clic sulla scheda "Strumenti database", fai clic su "Visual Basic" e fare clic sul menu "Inserisci". Fai clic su "Modulo" per inserire un nuovo modulo di codice VBA.

2 Fai clic sul menu "Strumenti" e fare clic su "Riferimenti". Seleziona la casella accanto a "Microsoft Excel <numero di versione> Object Library" e fare clic su "OK" per aggiungere il riferimento.

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

Private Sub updateSpreadSheet ()

On Error GoTo Err_updateSpreadSheet:

4 Digitare il seguente codice per creare gli oggetti cartella di lavoro e del foglio di lavoro:

Dim wkBkObj As Excel.Workbook

Dim xlSheet Come Excel.Worksheet

5 Aprire una cartella di lavoro di Excel esistente e utilizzare Foglio1 come il foglio di aggiornare aggiungendo il seguente codice:

Set wkBkObj = Workbooks.Open("C:\mySpreadsheet.xlsx")

Set xlSheet = wkBkObj.Worksheets ( "Sheet1")

wkBkObj.Windows (1) .Visible = True

6 Aggiungere il seguente codice VBA per aggiornare A1 del foglio di calcolo:

With XLSheet

.Range ( "A1"). Selezionare

.Range ( "A1"). Value = "valore aggiornato da Access"

End With

7 Salvare, chiudere la cartella di lavoro di Excel, e terminare la procedura aggiungendo il seguente codice:

wkBkObj.Save

wkBkObj.Close

Exit_updateSpreadSheet:

Exit Sub

Err_updateSpreadSheet:

MsgBox Err.Description

Riprendi Exit_updateSpreadSheet:

End Sub

8 Premere il tasto "F5" per eseguire la procedura e aggiornare il vostro foglio di calcolo.