Å vite hvordan du åpner en Microsoft Excel-regneark fra Microsoft Access og sette inn en ny kolonne i regnearket ved hjelp av Visual Basic for Applications ( VBA ) kan gjøre Access-programmet mer dynamisk . Access er en relasjonsdatabase styringssystem som vanligvis brukes for mindre databaser . Excel er et regnearkprogram som tilbyr kraftige verktøy for å analysere data . VBA er et populært programmeringsspråk som brukes til å automatisere oppgaver ellers gjort manuelt . I noen få trinn kan du skrive VBA-kode i Access for å åpne en Excel-arbeidsbok og sette inn en ny kolonne til Ark1 . Instruksjoner
en

start Microsoft Office Access 2007 og velg "Blank Database " klikk " Opprett". Klikk på " Database Verktøy " og velg " Visual Basic. " Klikk på " Insert "-feltet og velg " Module ".
2

Kopier og lim inn følgende kode i modulen . Denne koden vil åpne et regneark , setter du inn en ny kolonne til høyre for " Kolonne C" og sett " Denne kolonnen ble satt inn fra Access. "

Private Sub addExcelColumn ( )

Dim XLApp As Excel.Application

Dim XLBook Som Excel.Workbook

Dim XLSheet Som Excel.Worksheet

Set XLBook = Workbooks.Add ( Mal: = " C: \\ Book1.xls ")

Sett XLApp = XLBook.Parent

Set XLSheet = XLBook.Worksheets ( " Ark1 ")

XLBook.Windows ( 1 ) . Visible = sant

XLApp.Visible = sant
p Med XLSheet

kolonner . . ( "C : C" ) Velg

Selection.Insert Shift: = xlToRight
< p> . Range (" C1 ") . Velg

Selection.Value = " Denne kolonnen ble satt inn fra Access "

. Range (" D3 ") . Velg

End With

End Sub
3

Rediger følgende linje med kode og skriver inn banen til regnearket : en

Set XLBook = Workbooks.Add ( mal: = "C : \\ Book1.xls ")

Kjør subrutine ved å trykke

"F5 ".