こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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


不足情報ありましたら補足致しますので、お教え下さい><;

投稿日時 - 2013-07-31 17:46:25

QNo.8200060

困ってます

質問者が選んだベストアンサー

Workbooks.Open OpenFileName

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

投稿日時 - 2013-07-31 22:37:10

お礼

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

投稿日時 - 2013-08-02 15:26:43

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問