Att veta hur man öppnar en Microsoft Excel-kalkylblad från Microsoft Access och infoga en ny kolumn i kalkylbladet med hjälp av Visual Basic for Applications ( VBA ) kan göra din Access applikation mer dynamiskt . Access är en relationsdatabas management system som vanligen används för mindre databaser . Excel är ett kalkylprogram som erbjuder kraftfulla verktyg för att analysera data . VBA är en populär dator programmeringsspråk som används för att automatisera uppgifter som annars sker manuellt . I några steg du kan skriva VBA-kod i Access för att öppna en Excel-arbetsbok och infoga en ny kolumn till Blad1 . Instruktioner
1
Starta Microsoft Office Access 2007 och välj " Tom databas " klicka sedan på " Skapa ". Klicka på " Databas Verktyg " och välj " Visual Basic . " Klicka på " Infoga "-fältet och välj " Modul . "
2
Kopiera och klistra in följande kod på din modul . Denna kod kommer att öppna ett kalkylblad , infoga en ny kolumn till höger om " Kolumn C " och infoga " Denna kolumn infördes från Access . " ) Katalog
Private Sub addExcelColumn (
Dim xlApp Som Excel.Application
Dim XLBook Som Excel.Workbook
Dim XLSheet Som Excel.Worksheet
Set XLBook = Workbooks.Add ( Mall : = " C: \\ Book1.xls " ) katalog
Set xlApp = XLBook.Parent
Set XLSheet = XLBook.Worksheets ( " Blad1 " ) katalog
XLBook.Windows ( 1 ) . Visible = Sant
XLApp.Visible = Sant
XLSheet
Columns . . ( " C : C " ) Välj
Selection.Insert Shift : = xlToRight
. Range ( " C1 " ) . Välj
Selection.Value = " Denna kolumn infördes från Access "
. Range ( " D3 " ) . Välj
End With
End Sub
3
Redigera följande kodrad och skriv sökvägen till kalkylbladet :
Set XLBook = Workbooks.Add ( mall : = " C : \\ Book1.xls " ) katalog
Kör din subrutin genom att trycka Addera
" F5 ".
