Hur man uppdaterar ett kalkylark från Access-

Microsoft Access och Excel nästan går hand i hand när man utvecklar databasapplikationer i Access . Användarna älskar att analysera sina data med hjälp av Excel , och du kan ge dem den funktionen genom att kunna uppdatera kalkylblad från Access . I Access kan du använda Visual Basic for Applications för att öppna ett befintligt Excel -kalkylblad och uppdatera den med data dynamiskt . I VBA kan du använda Microsoft Excel Object Library för att manipulera Excel-objekt . Instruktioner
1

Klicka på " Databas Verktyg " fliken , klicka på " Visual Basic ", och klicka på " Infoga " -menyn . Klicka på " modul " för att infoga en ny VBA-kod modulen .
2

Klicka på " Verktyg " -menyn och klicka på " Referenser . " Markera rutan bredvid " Microsoft Excel Object Library " och klicka på " OK " för att lägga till referensen .
3

Börja med att skriva följande kod för att skapa en ny sub förfarande :

Private Sub updateSpreadSheet ( ) katalog

On Error GoTo Err_updateSpreadSheet :
4

Skriv in följande kod för att skapa arbetsboken och objekt kalkylblad :

Dim wkBkObj som Excel.Workbook

Dim XLSheet som Excel.Worksheet
5

Öppna en befintlig arbetsbok i Excel och använda Blad1 som bladet att uppdatera genom att lägga till följande kod :

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

Set XLSheet = wkBkObj.Worksheets ( " Blad1 " ) katalog

wkBkObj.Windows ( 1 ) . Visible = Sant
6

Lägg följande VBA-kod för att uppdatera A1 i kalkylbladet : . .

XLSheet

Range ( " A1 " ) Välj

. Range ( " A1 " ) . Value = " uppdaterade värdet från Access "

End With
7

Spara , stäng Excel-arbetsboken , och avsluta proceduren genom att lägga till följande kod :

wkBkObj.Save

wkBkObj.Close

Exit_updateSpreadSheet :

Exit Sub

Err_updateSpreadSheet :

MsgBox Err.Description

Resume Exit_updateSpreadSheet :

End Sub
8

Tryck " F5 " för att köra proceduren och uppdatera kalkylblad
Addera ditt