セルにフルパスを入力してPDFファイルを開きたい

いつもお世話になります。

A1セルにフルパスを入力してPDFのファイルを
開くことってて出来るのでしょうか？

具体的に言うと画像１のような感じで、
ボタンを押すとフルパスの場所にある
PDFファイルが開くようにしたいのですが、
こいうことは出来るのでしょうか？

１）拡張子は関連付けしています
２）サブフォルダーはありません
↓
対象とするファイルはフォルダーの中の.pdfファイルだけでいいです

３）最終的には画像２のようにテキストボックスからVBAでA1セルのパスを書き換えて
フォルダー内の他のファイル(PDF)を開けるようにしようと思っています。

４）コードが複雑になると見にくいので、とりあえずA1に記載されたフルパスから開くものを完成出来ればそれでいいです。

まだVBA初心者です。すいませんが詳し方、説明の上手な方で具体的にコードを記載出来る方、ご存じでしたら教えて下さい。よろしくお願いします。

質問者からの補足コメント

• 

  画像２はこちらです。

  
    補足日時：2016/07/03 21:05

No.1 ベストアンサー 回答者： maiko0333 回答日時： 2016/07/03 21:19

Sub ボタンクリック()

'PowerShellを使って関連付けられたアプリケーションでファイルを開く
Dim ターゲットパス As String
ターゲットパス = Range("A1").Value
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
WSH.Run Chr(34) & ターゲットパス & Chr(34), 1 '第2引数 WshWindowStyle は1が通常サイズ、2が最小化、3が最大化。好みでどうぞ」
Set WSH = Nothing
End Sub

この回答へのお礼

解答して頂きありがとうございます。出来ると思っていなかったのでびっくりしました。
変数をカタカナの名前にして頂いたので、わかりやすかったです。
今回はありがとうございます。機会がありましたら、またお願いします。

お礼日時：2016/07/04 20:21