Hvordan åpne et Excel-regneark fra Access VBA Sett inn kolonne

Å 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-program mer dynamisk. Access er en relasjonsdatabase styringssystem som vanligvis brukes til 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.

Bruksanvisning

1 Start Microsoft Office Access 2007 og velg "Blank Database" klikk "Opprett". Klikk "Database Verktøy" og velg deretter "Visual Basic". Klikk på "Sett inn" feltet og velg "Module".

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

Private Sub addExcelColumn ()

Dim XLApp As Excel.Application

Dim XLBook Som Excel.Workbook

Dim XLSheet Som Excel.Worksheet

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

Sett XLApp = XLBook.Parent

Sett XLSheet = XLBook.Worksheets ( "Ark1")

XLBook.Windows (1) .Visible = True

XLApp.Visible = True

med XLSheet

.Columns ( "C: C») velger.

Selection.Insert Shift: = xlToRight

.Range ( "C1"). Velg

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

.Range ( "D3"). Velg

End With

End Sub

3 Redigere følgende linje med kode og skriv inn banen til regnearket:

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

Kjør rutine ved å trykke "F5".