Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Access , kliknite na tlačidlo " Prázdna databáza " a kliknite na tlačidlo " Create " pre vytvorenie novej databázy . Kliknite na " Databázové nástroje " a kliknite na " Visual Basic " pre spustenie editora VBA . . Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový kód modulu
2
Skopírujte a vložte nasledujúci kód vytvoriť tabuľku a vložiť riadok dát pomocou príkazov SQL :
Private Sub CreateTable ( )
Dim strSQL As String
strSQL = " CREATE TABLE myTbl ( fname TEXT , TEXT lname ) "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO myTbl VALUES ( ' JOHN ' , ' SMITH ' ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL )
End Sub
3
Stlačte " F5 " spustiť procedúru .
4
spustite program Microsoft Excel , kliknite na kartu " Vývojár " a kliknite na tlačidlo " Record makro " pre spustenie záznamu makra VBA . Kliknite na tlačidlo " OK " v " zázname makra " v dialógovom okne . Typ " 2 " v A1 a " 4 " v " B1 " . Kliknite na tlačidlo " Zastaviť záznam " a kliknite na " Visual Basic " pre spustenie editora VBA
5
Rozbaľte " moduly " zložku a dvakrát kliknite na " Module1 " zobrazíte nasledujúci kód makra : . ClipArt
Range ( " A1 " ) . Vyberte
ActiveCell.FormulaR1C1 = " 2"