Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Visual Basic , ktorý je použitý na vytvorenie a editáciu VB kód a aplikácie VB báze .
2
Vytvoriť nový dokument VB a iniciovať a názov nové sub - rutinné , napríklad :
sub CompileWorkbook ( )
3
Získať listy vnútri zošita pridaním druhého riadku kódu :
Sub CompileWorkbook ( ) Dim objX As Object
4
Nastavte cieľ rutiny tým , že definuje , čo to bude robiť konkrétne :
Sub CompileWorkbook ( ) Dim objX Ako ObjectOn Error Resume NextSet objX = Application.CommandBars.FindControl ( Type : = msoControlButton )
5
Určte skript by mal robiť , keď sú jeho definície nemôžu byť splnené pridaním " , ak nie " argumentu :
Sub CompileWorkbook ( ) Dim objX Ako ObjectOn Error Resume NextSet objX = Application.CommandBars.FindControl ( Type : = msoControlButton ) Ak nie je objX nie je nič ThenobjX.ExecuteSet objX = Nothing
6
zatvorte kompilačný skript pridaním " End " príkazy v kóde :
Sub CompileWorkbook ( ) Dim objX Ako ObjectOn Error Resume NextSet objX = Application.CommandBars.FindControl ( Type : = msoControlButton ) Ak nie je objX nie je nič ThenobjX.ExecuteSet objX = NothingEnd IfEnd Sub
7
Uložiť VB kód a vložiť skript v aplikácii VB , kde je potrebné vykonať zošita kompiláciu .