Hvordan oppdatere et regneark fra tilgangs

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 objektbiblioteket for å manipulere Excel stedene.

Bruksanvisning

1 Klikk på "Database Verktøy" -kategorien, klikk på "Visual Basic," og klikk "Insert" -menyen. Klikk "Module" å sette inn en ny VBA kodemodul.

2 Klikk på "Verktøy" -menyen og klikk "Referanser". Merk av i boksen ved siden av "Microsoft Excel <versjonsnummer> Object Library" og klikk "OK" for å legge til referansen.

3 Start med å skrive følgende kode for å opprette en ny under prosedyre:

Private Sub updateSpreadSheet ()

På Error GoTo Err_updateSpreadSheet:

4 Skriv inn følgende kode for å lage arbeidsbok og regneark objekter:

Dim wkBkObj As Excel.Workbook

Dim XLSheet Som Excel.Worksheet

5 Åpne et eksisterende Excel-arbeidsbok og bruke Sheet1 som arket for å oppdatere ved å legge til følgende kode:

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

Sett XLSheet = wkBkObj.Worksheets ( "Ark1")

wkBkObj.Windows (1) .Visible = True

6 Legg til følgende VBA-kode for å oppdatere A1 i regnearket:

With XLSheet

.Range ( "A1"). Velg

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

End With

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

wkBkObj.Save

wkBkObj.Close

Exit_updateSpreadSheet:

Exit Sub

Err_updateSpreadSheet:

MsgBox Err.Description

Gjenoppta Exit_updateSpreadSheet:

End Sub

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