Aprire l'applicazione Visual Basic che viene utilizzato per creare e modificare codice VB e applicazioni VB - based.
2
Creare un nuovo documento di VB e di avviare e nominarne nuovo sub - routine, per esempio :
CompileWorkbook sub ( )
3
ottenere i fogli di lavoro nella cartella di lavoro con l'aggiunta di una seconda linea di codice:
CompileWorkbook Sub ( ) Dim objX As Object
4
prefissa l'obiettivo di routine attraverso la definizione di ciò che farà in particolare :
CompileWorkbook Sub ( ) Dim objX Come ObjectOn Error Resume nextset objX = Application.CommandBars.FindControl ( Type : = msoControlButton ) economici 5
Definire ciò che lo script dovrebbe fare se le definizioni non sono in grado di essere soddisfatte con l'aggiunta di un argomento " se non" :
CompileWorkbook Sub ( ) Dim objX Come ObjectOn Error Resume nextset objX = Application.CommandBars.FindControl ( Type : = msoControlButton ) If Not objX è niente ThenobjX.ExecuteSet objX = Nothing
6
chiudere lo script di compilazione con l'aggiunta di dichiarazioni "End " per il codice :
CompileWorkbook Sub ( ) Dim objX Come ObjectOn Error Resume nextset objX = Application.CommandBars.FindControl ( Type : = msoControlButton ) If Not objX Is Nothing ThenobjX.ExecuteSet objX = NothingEnd IfEnd Sub
7
Salva il codice VB e incorporare lo script in un'applicazione VB in cui è necessario eseguire la compilazione cartella di lavoro .
Programmazione © www.354353.com