Avviare Microsoft Excel 2007 e fare clic sulla scheda " sviluppatori" . Fare clic su " Visual Basic " per aprire la finestra "Microsoft Visual Basic " 
 2 
 digitare quanto segue per dichiarare la funzione " ShellX " : . 
 
 Private Declare Function ShellX Lib " shell32 . dll " Alias " ShellExecuteA " ( _ 
 
 ByVal hWnd As Integer , ByVal lpOperation As String , _ ByVal 
 
 lpFile As String , ByVal lpParameters String, _ ByVal 
 
 lpDirectory As String , ByVal nShowCmd As Integer) As Integer 
 3 
 digitare quanto segue per creare una nuova sotto , eseguire la funzione " ShellX " e aprire Microsoft Word : 
 
sub openExternalApp ( ) per
 Dim returnVal As Long 
 
returnVal ShellX = ( 0 , "Open " , "C: \\ Programmi \\ Microsoft Office \\ Office12 \\ WINWORD.EXE " , " " , " " , SHOWMAXIMIZED ) per
 End Sub 
 
 È possibile modificare il percorso seguente per aprire una diversa applicazione : 
 
 " C: \\ Programmi \\ Microsoft Office \\ Office12 \\ WINWORD . EXE " 
 4 
 eseguire il sub per aprire Microsoft Word . 
 
              
software © www.354353.com