Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
otvoreného prístupu a kliknite na " Vytvoriť " menu záhlavie , potom kliknite na " Tabuľka " položku .
2
typ " tituly " v prvej záhlaví stĺpca novej tabuľky a " Autori " v záhlaví vpravo od " hlavy . " Tieto nadpisy stĺpcov predstavujú polia pre malé knihy databázy , ktoré budete používať ako externý databázy importovať s VBA .
3
Zadajte niekoľko ukážkových knižných titulov a autorov v riadkoch v tabuľke môže , potom stlačte " Ctrl + S. " Typ " knihy " , po zobrazení výzvy pre meno tabuľky
4
Kliknite na menu " Súbor " v " Uložiť ako " príkaz , zadajte . " C : \\ books.accdb " pre databázu v súbore . Kliknite na tlačidlo " Close databázy " príkaz v ponuke " Súbor " , aby zatvorte databázu .
5
Stlačte tlačidlo " Ctrl + N " pre vytvorenie novej databázy a potom stlačte tlačidlo " Alt + F11 " pre vstup do VB IDE .
6
Kliknite na príkaz " modul " v menu " Vložiť " pre vytvorenie novej okno pre zadanie kódu programu .
7
vložte nasledujúci podprogram do nového kód okno . Tento podprogram volá prístup metóda " DoCmd " otvoriť externé databázy - . Ten, ktorý robil v krokoch 1 až 4
Public Sub importData ( )
DoCmd.TransferDatabase acImport , " Microsoft Access " , _
" C : \\ books.accdb " , acTable , " knihy " , " books2 "
End Sub
8
Kliknite žiadne vyhlásenie vo podprogram ste práve vložili , stlačte klávesu " F5 " , spustiť podprogram .
9
Stlačte tlačidlo " Alt - 11 " sa vrátite do programu Access , zatvorte a znova otvorte navigačnú tablu na obrazovke vľavo kliknutím na jeho horné tlačidlo " << " . Navigačná tabla sa zobrazí nové tabuľky , " books2 . "
10
Double - kliknite na " books2 " položku sa zobrazí rovnaký zoznam kníh ste zadali v kroku 3. " ImportData " podprogram ste spustili predtým importované pôvodnej knihy databázy do novej tabuľky v aktuálnej databáze .
Načítať externé dáta z textového súboru
11
Spustite program Poznámkový blok alebo inom textovom editore a zadajte ľubovoľný text do súboru
12
Uložte súbor ako . "c : \\ TextFile.txt "
13
otvorený prístup , stlačte tlačidlo " Alt - F11 " , potom vložte nasledujúci kód do okna kódu :
Public Sub GetExternalText ( )
Dim strText
Otvorte " c : \\ TextFile.txt " Pre vstup ako # 1
robiť , keď nie EOF ( 1 )
Linkový vstup # 1 , strText
Debug.Print strText
Loop
CLOSE # 1
End Sub
14
Kliknite na ľubovoľný príkaz v programe , potom stlačte " F5 " pre spustenie programu .
15
Stlačte " control + G " otvorte IDE je " okno Immediate " , ktorý sa zobrazí textové dáta vášho programu stiahnutý z externého textového súboru .