Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Open Access , kliknite na tlačidlo " Developer " kartu je " Visual Basic " pre vstup do jazyka vývojového prostredia .
2
Kliknite na príkaz " Vložiť " menu v " Module " vytvoriť nové okno držať svoj program ovládať programe Excel , kliknite na ponuku " Nástroje " . Kliknite na príkaz " Reference " , kliknite na zaškrtávacie políčko " Microsoft Excel " , takže váš program môže pristupovať k virtuálnej objekty programu Excel .
3
vložte nasledujúci program do okna . Tento program vytvorí zošit programu Excel , a potom vloží text do jednej z buniek zošita .
Public Sub MadeByAccess ( )
Dim aplExcel Ako Excel.Application
Set aplExcel = CreateObject ( " Excel.Application " )
aplExcel.Workbooks.Add
aplExcel.ActiveCell = " Dobrý deň , z programu Access . "
aplExcel.ActiveWorkbook.SaveAs ( "c : \\ MadeByAccess.xlsx " )
aplExcel.Quit
End Sub
4
kliknite na " príkaz " menu v " Run " pre spustenie programu , potom použite Windows Explorer prejdite do zložky " C : . \\ "
5
Dvakrát kliknite na súbor " MadeByAccess.xlsx " nahrať tento súbor do programu Excel . Všimnite si , že prvá bunka v prvom liste sa zobrazí text od " Dobrý deň , z aplikácie Access " , ktorý sa objavil v programe .
Čítať hodnotu z programu Excel
6
Otvoriť v Exceli , potom zadajte ľubovoľný text v bunke " A1 " z prvého listu . Stlačením tlačidla " Control " a " S " súčasne , potom zadajte " C : \\ ForAccess.xlsx " v " Meno " textového poľa . Kliknite na tlačidlo " Uložiť " , potom stlačte tlačidlo " Control " a " F4 " súčasne uzavrieť Excel .
7
Open Access , kliknite na tlačidlo " Developer " TAB " Visual Basic " pre vstup do jazyka Visual Basic programovanie prostredie .
8
Kliknite na " Nástroje " príkaz je " Reference " , potom kliknite na políčko na " Microsoft Excel " položky, aby svoj program ovládať programe Excel .
9
Kliknite na príkaz " Vložiť " menu v " modulu" , potom vložte nasledujúci program do nového okna , ktoré sa objavia . Tento program otvorí zošit programu Excel , ktorý ste vytvorili v kroku 1 , a číta bunky " A1 " z tohto zošita .
Public Sub ForAccess )
Dim aplExcel Ako Excel.Application
< p ( > Nastaviť aplExcel = CreateObject ( " Excel.Application " )
aplExcel.Workbooks.Open ( " c : \\ ForAccess.xlsx " )
MsgBox aplExcel.ActiveCell
aplExcel . ActiveWorkbook.Close
aplExcel.Quit
End Sub
10
Kliknite na príkaz v ponuke " Run " v " Run " pre spustenie programu . Access zobrazí okno so správou zobrazujúce text zadaný v bunke hárku programu Excel v prvom kroku .
Copyright © počítačové znalosti Všetky práva vyhradené