ExcelVBA 他のアプリケーションを開く

質問

こんにちは！
今、エクセルシート上に色々なファイルの絶対パス一覧があるのですが
絶対パスをダブルクリックするとその指定されているファイルを開くことが出来る・・・ということがやりたいです
Shellを使うことを考えたのですが、ファイルをどのアプリケーションで開くかを指定しなければならなそうです
エクセルファイルだけ、というわけではないので、この様な場合はどうしたらよいでしょうか？
ちなみに開きたいファイルは、Excel、Word、PDF、画像ファイルです

回答No.1

zap35 · ベストアンサー

Windows Scripting Hostを使用すれば拡張子の関連づけでAPを起動することが可能です。以下のサンプルを参考にしてください。
（ダブルクリックされたセルのファイルを実行するマクロです。ただしファイル名は　z:\Sample.pdf　のようにフルパスで記述されている前提で書きました。パス名がない場合はパス名を編集して追記してください）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim flName As String, WSH
　Set WSH = CreateObject("WScript.Shell")
　If TypeName(Target) = "Range" Then
　　flName = Target.Value
　　WSH.Run flName
　End If
End Sub

お礼

すばやい回答ありがとうございます！
これでやってみます！ありがとうございました！