Joforn

1. #If VBA7 Then
   
2.   Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteW" (ByVal hWnd As LongPtr, ByVal lpOperation As LongPtr, ByVal lpFile As LongPtr, ByVal lpParameters As LongPtr, Optional ByVal lpDirectory As LongPtr = 0^, Optional ByVal nShowCmd As ShowCM = 1) As Long
   
3. #Else
   
4.   Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteW" (ByVal hWnd As Long, ByVal lpOperation As Long, ByVal lpFile As Long, ByVal lpParameters As Long, Optional ByVal lpDirectory As Long=0, Optional ByVal nShowCmd As ShowCM = 1) As Long
   
5. #End If
   
6. 
   
7. Public Enum ShowCM
   
8.   SW_SHOWNORMAL = 1&
   
9.   SW_SHOWMINIMIZED = 2&
   
10.   SW_SHOWMAXIMIZED = 3&
    
11.   SW_SHOWNOACTIVATE = 4&
    
12.   SW_SHOW = 5&
    
13.   SW_SHOWMINNOACTIVE = 7&
    
14.   SW_SHOWNA = 8&
    
15.   SW_SHOWDEFAULT = 10&
    
16. End Enum
    
17. 
    
18. 
    
19. Public Function ShellOpenFile(ByVal FileName As String, Optional ByVal ShowMode As ShowCM = 1)
    
20.   If Len(FileName) Then
    
21.     ShellOpenFile = ShellExecute(Application.hWnd, StrPtr("open"), StrPtr(FileName), 0, , ShowMode)
    
22.   End If
    
23. End Function
    
24. 
    
25. Sub Test()
    
26.   ShellOpenFile "\\fileserver\PUB\QA\11 SIP\SIP\QCS001-MT1097X.pdf" '¥i¥H¬O¨ä¥¦ªº¤å¥ó¦W¡A¥u­n¨t²Î¯à°÷ÃѧOªº¤å¥óÃþ«¬¡A³£·|¦Û°Ê¥HWindowsÀq»{µ{¦¡¶}±Ò«ü©wªº¤å¥ó¡C¤ñ¦p«ü©wªº¬O.TXT¤å¥ó¡A±N·|¦Û°Ê¥HNotepad.exe¶}±Ò
    
27.   ShellOpenFile "https://www.facebook.com/profile.php?id=100010420125898", SW_SHOWMAXIMIZED  '¶}±Òºô­¶
    
28.   ShellOpenFile "MailTo:[email protected]" 'µo°eEmail¨ì«ü©wªº¶l½c¦a§}
    
29. End Sub

½Æ»s¥N½X