Microsoft Access og Excel nesten går hånd i hånd når du utvikler databaseapplikasjoner i Access. Brukere elsker å analysere sine data ved hjelp av Excel , og du kan gi dem denne funksjonaliteten ved å være i stand til å oppdatere regneark fra Access. I Access kan du bruke Visual Basic for Applications for å åpne en eksisterende Excel regneark og oppdatere den med data dynamisk. I VBA kan du bruke Microsoft Excel Object Library å manipulere Excel-objekter . Instruksjoner
en

Klikk på " Database Tools "-kategorien , klikk på " Visual Basic ", og klikk på " Insert"-menyen . Klikk på " Module " for å sette inn en ny VBA-kode modul .
2

Klikk på " Verktøy"- menyen og klikk " Referanser . " Kryss av i boksen ved siden av " Microsoft Excel Object Library " og klikk " OK " for å legge referansen .
3

Start ved å skrive følgende kode for å lage en ny sub prosedyre : en

Private Sub updateSpreadSheet ( )

On Error GoTo Err_updateSpreadSheet :
4

Skriv inn følgende kode for å lage arbeidsboken og regnearket objekter:
< p> Dim wkBkObj som Excel.Workbook

Dim XLSheet som Excel.Worksheet
5

Åpne en eksisterende Excel-arbeidsbok og bruke Ark1 som arket for å oppdatere ved å legge følgende kode :

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

Set XLSheet = wkBkObj.Worksheets ( " Ark1 ")

wkBkObj.Windows ( 1 ) . Visible = sant
6

Legg til følgende VBA -kode for å oppdatere A1 i regnearket : . .
p Med XLSheet

Range (" A1 ") Velg

. Range (" A1 ") . Verdi = " oppdatert verdi fra Access "

End With
7

Lagre, lukke Excel arbeidsbok , og avslutte prosedyren ved å legge følgende kode:

wkBkObj.Save

wkBkObj.Close

Exit_updateSpreadSheet : en

Exit Sub

Err_updateSpreadSheet :

MsgBox err.Description

Resume Exit_updateSpreadSheet : en

End Sub
8

Trykk " F5 " for å kjøre prosedyren og oppdatere regnearket