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

質問

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

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

http://okwave.jp/qa/q1545851.html
http://okwave.jp/qa/q7827757.html
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1414898789

【環境　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 · ベストアンサー

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

お礼

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