Ako aktualizovať tabuľku z programu Access

Microsoft Access a Excel takmer ruka v ruke pri vývoji databázových aplikácií v programe Access . Užívatelia radi analyzovať svoje dáta pomocou programu Excel , a môžete im túto funkciu tým , že je schopný aktualizovať tabuľky z programu Access . V programe Access môžete použiť Visual Basic for Applications otvorte existujúcu tabuľku programu Excel a aktualizovať s dátami dynamicky . Vo VBA môžete použiť objektovej knižnice Microsoft Excel manipulovať s objektmi programu Excel . Pokyny dovolená 1

Kliknite na záložku " Database Tools " , kliknite na " Visual Basic " a kliknite na " Vložiť " menu . Kliknite na " modul " pre vloženie nového modulu kódu VBA .
2

Kliknite na menu " Nástroje " a kliknite na " Referencie " . Zaškrtnite políčko vedľa " Microsoft Excel Object Library " a kliknite na " OK " pridať odkaz .
3

Začnite zadaním nasledujúci kód vytvoriť nový sub postup :

Private Sub updateSpreadSheet ( )

On Error GoTo Err_updateSpreadSheet :
4

zadajte nasledujúci kód pre vytvorenie zošita a hárka objekty :

Dim wkBkObj ako Excel.Workbook

Dim XLSheet ako Excel.Worksheet
5

Otvorte existujúci zošit programu Excel a použiť Hárok1 ako list aktualizovať pridaním nasledujúceho kódu :

Nastaviť wkBkObj = Workbooks.Open ( " C : \\ mySpreadsheet.xlsx " )

Set XLSheet = wkBkObj.Worksheets ( " Hárok1 " )

wkBkObj.Windows ( 1 ) . Visible = Praví
6

Pridajte nasledujúci kód jazyka VBA aktualizovať A1 z tabuľky : ..

S XLSheet

Range ( " A1 " ) Zvoľte

. Range ( " A1 " ) . Value = " aktualizovaná hodnota z programu Access "

End With
7

Uložiť , zatvorte zošit programu Excel , a ukončiť postup pridaním nasledujúceho kódu :

wkBkObj.Save

wkBkObj.Close

Exit_updateSpreadSheet :

Exit Sub

Err_updateSpreadSheet :

MsgBox Err.Description

Resume Exit_updateSpreadSheet : .

End Sub
8

Stlačte " F5 " spustiť procedúru a aktualizovať tabuľku

• Predchádzajúca strana: Ako zápasu dátové typy sa pripraviť na import údajov do programu Access 
• Ďalšia strana: Ako vypočítať časový rozdiel v Oracle