麻辣家族討論版版 - Powered by Discuz! Board

#If VBA7 Then
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
#Else
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
#End If
Public Enum ShowCM
SW_SHOWNORMAL = 1&
SW_SHOWMINIMIZED = 2&
SW_SHOWMAXIMIZED = 3&
SW_SHOWNOACTIVATE = 4&
SW_SHOW = 5&
SW_SHOWMINNOACTIVE = 7&
SW_SHOWNA = 8&
SW_SHOWDEFAULT = 10&
End Enum
Public Function ShellOpenFile(ByVal FileName As String, Optional ByVal ShowMode As ShowCM = 1)
If Len(FileName) Then
ShellOpenFile = ShellExecute(Application.hWnd, StrPtr("open"), StrPtr(FileName), 0, , ShowMode)
End If
End Function
Sub Test()
ShellOpenFile "\\fileserver\PUB\QA\11 SIP\SIP\QCS001-MT1097X.pdf" '可以是其它的文件名，只要系統能夠識別的文件類型，都會自動以Windows默認程式開啟指定的文件。比如指定的是.TXT文件，將會自動以Notepad.exe開啟
ShellOpenFile "https://www.facebook.com/profile.php?id=100010420125898", SW_SHOWMAXIMIZED '開啟網頁
ShellOpenFile "MailTo:[email protected]" '發送Email到指定的郵箱地址
End Sub

複製代碼