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

解決済

質問者：jobvba
質問日時：2006/11/13 10:49
回答数：1件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： zap35
回答日時：2006/11/13 11:07

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