Lagre data til et Excel-regneark ved hjelp av VBA.
Å lage et Excel-regneark i Access kan spare deg for tid når du trenger å eksportere data til et Excel-regneark. Visual Basic for Applications (VBA) kan være et kraftig verktøy for å automatisere prosesser i Microsoft Office-applikasjoner. Med VBA kan du bruke Microsoft Excel Application-objektet til å lage et Excel-regneark fra Access. Excel-applikasjonsobjektet er inngangspunktet til resten av objektmodellen. Eksporter data raskere til Excel ved å lagre data direkte i et Excel-regneark.
Trinn 1
Start Microsoft Office Access, klikk på "Blank Database" og klikk på "Create"-knappen for å lage en tom database. Klikk på "Databaseverktøy"-fanen og klikk på "Visual Basic" for å åpne Microsoft Visual Basic-vinduet. Klikk på "Sett inn"-menyen og klikk på "Modul" for å sette inn en ny kodemodul.
Dagens video
Steg 2
Klikk på "Verktøy"-menyen og klikk på "Referanser". Rull ned og merk av i boksen ved siden av "Microsoft Excel
Trinn 3
Start med å skrive inn følgende VBA-kode for å lage en ny underprosedyre:
Private Sub createSpreadSheet()
Trinn 4
Fortsett ved å skrive inn følgende kode for å lage tre nye variable objekter som skal brukes til å lage Excel-regnearket:
Dim newExcelApp som Excel. Applikasjon. Dim newWbk som Excel. Arbeidsbok. Dim newWkSheet Som Excel. Arbeidsark
Trinn 5
Legg til følgende kode for å starte Excel og vise den:
Sett newExcelApp = Excel. applikasjon
nyExcelApp. Synlig = Sant
Trinn 6
Skriv inn følgende for å legge til en ny arbeidsbok og et regneark:
Sett newWbk = newExcelApp. Arbeidsbøker. Legge til
Sett newWkSheet = newWbk. Arbeidsark (1)
Trinn 7
Legg til data i det nye regnearket ditt ved å skrive inn følgende:
newWkSheet. Celler (1, 1). Verdi = "Nytt regneark..."
Trinn 8
Lagre den nye arbeidsboken som er opprettet ved å skrive inn følgende kode:
newWkSheet. Lagre som ("C:\myworksheet.xlsx")Trinn 9
Rediger banen på forrige trinn og skriv inn banen og filnavnet du ønsker.
Trinn 10
Skriv inn følgende for å avslutte underprosedyren:
End Sub
Trinn 11
Trykk "F5" for å kjøre prosedyren og lage et nytt Excel-regneark.
