询问用户打开超链接的应用程序

有没有人知道我怎么能提示用户在两个应用程序之间select一个特定types的超链接（以便打开相关文件）？ 我想这与application.open有关。

Answer 1

如果你知道这两个应用程序的path，你可以做一个shell命令

Sub app1_Click() openInApplication("C:\Path\to\app1", hyperLink) End Sub Sub app2_Click() openInApplication("C:\Path\to\app2", hyperLink) End Sub Sub openInApplication(pathToApp as String, hyperLink as String) If Dir(pathToApp) = "" Then MsgBox "Path Not Found", vbCritical, "Macro Ending" Exit Sub End If Shell """" & pathToApp & """" & hyperLink End Sub