返回列表下一主題上一主題發帖

[發問] 如何VBA不指定軟體開啟特定檔案

morris_lth

中學生 Rank: 2

帖子: 27
主題: 11
精華: 0
積分: 56
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-15
最後登錄: 2023-10-27

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-12-29 15:59 | 只看該作者

[發問] 如何VBA不指定軟體開啟特定檔案

之所以要這樣問是因為,下述程式中指定"C:\Program Files\Adobe\Reader 8.0\Reader\AcroRD32.exe"
來開啟PDF檔案,但是此excel 檔案是放在公用資料夾中,開檔的人未必使用的軟體或是路徑會是Reader 8.0,
有可能是9.0,有可能路徑不是C:\........

所以才想詢問是否有方式只給檔案路徑,至於開檔軟體的路徑種類依user本身電腦來決定就行

Private Sub CommandButton1_Click()
Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRD32.exe \\fileserver\PUB\QA\11 SIP\SIP\QCS001-MT1097X.pdf", vbNormalFocus
End Sub

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-12-30 10:16 | 只看該作者

回復 1# morris_lth
try this
ActiveWorkbook.FollowHyperlink "\\fileserver\PUB\QA\11 SIP\SIP\QCS001-MT1097X.pdf"

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

Joforn

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-8-30

3^#

發表於 2015-12-30 10:35 | 只看該作者

#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