Ξεκινήστε το Microsoft Excel 2007, κάντε κλικ στην καρτέλα "Προγραμματιστής " . Κάντε κλικ στο " Visual Basic" για να ανοίξετε το παράθυρο "Microsoft Visual Basic" 2
Πληκτρολογήστε το παρακάτω, για να κηρύξει την " ShellX " λειτουργία : .
Private Declare Function ShellX Lib " shell32 . dll " Alias " ShellExecuteA " ( _
ByVal hWnd As Integer , ByVal lpOperation As String , _
ByVal lpFile Όπως String , ByVal lpParameters Όπως String , _
ByVal lpDirectory Όπως String , ByVal nShowCmd As Integer ) As Integer
εικόνων 3
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο sub , εκτελέστε τη λειτουργία " ShellX » και ανοιχτή Microsoft Word :
Sub openExternalApp ( )
Dim returnVal Όπως Long
returnVal = ShellX ( 0 , "Άνοιγμα" , " C : \\ Program Files \\ Microsoft Office \\ Office12 \\ WINWORD.EXE " , " " , " " , SHOWMAXIMIZED )
End Sub
Μπορείτε να επεξεργαστείτε την ακόλουθη διαδρομή για να ανοίξει μια διαφορετική εφαρμογή :
" C : \\ Program Files \\ Microsoft Office \\ Office12 \\ WINWORD . EXE "
Η 4
Εκτέλεση υπο σας για να ανοίξετε το Microsoft Word.
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα