VBAで、すべてのファイル（ppt,pdf,txt

VBAで、すべてのファイル（ppt,pdf,txtなど）を選択して開きたい

VBA初心者です。ダイアログから選択して様々な形式のファイルを
開きたいのですが、
検索して↓などをみていますが、イマイチわかりません。。。

http://oshiete.goo.ne.jp/qa/1545851.html
http://oshiete.goo.ne.jp/qa/7827757.html
http://detail.chiebukuro.yahoo.co.jp/qa/question …


【環境　WindowsXP　Excel2000】

↓これだとPDFを選択はできますが、エクセルに文字化けしてでてきます。

Sub フォルダからファイル選択()
Dim OpenFileName As String
Dim AAA, ZZZ As String

AAA = Sheets("data").Range("A5")
ZZZ = "'ChDir "\■.local\pubs\●\△\" & AAA

With CreateObject("WScript.Shell")
.CurrentDirectory = ZZZ
End With

OpenFileName = Application.GetOpenFilename("すべてのファイル,*.*")

If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
Else
MsgBox "キャンセルされました"
End If
End Sub


不足情報ありましたら補足致しますので、お教え下さい＞＜；

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2013/07/31 22:37

Workbooks.Open OpenFileName

↓
createobject("shell.application").shellexecute openfilename
にしてみてください。

この回答へのお礼

できました！！
ありがとうございます！
助かりました!!!

お礼日時：2013/08/02 15:26