EXCElのVBAからPDFを開き印刷する。

質問

エクセルのフォームからダイヤグロボックスを開いて、ｐｄｆファイルを選択し開き印刷したいのですが、いろいろやったのですが、ファイルが開きません。単純にファイル名を指定して開き印刷するのは出来るのですが。ダイヤグロボックスから開きたいのでどなたかご指導いただけませんか？

１．直接アクロバットリーダーからファイルを開き印刷
　 Private Sub CommandButton2_Click()
　　　PrinterName = Application.ActivePrinter
　　　Filename = "C:\○○\××××.pdf"
Set myShell = CreateObject("WScript.Shell")
myShell.Run ("AcroRd32.exe /t " & Filename)
End Sub

２．ダイヤグロボックスからファイルを開く
Private Sub microbe_Click()
ChDrive "R"
ChDir "R:\○○\××\△△"
OpenFileName = Application.GetOpenFilename("PDF Documents,*.pdf")
　　？？？
end sub

よろしくお願いします。

回答No.1

kybo · ベストアンサー

単純に組み合わせて以下でどうでしょうか

Private Sub microbe_Click()
ChDrive "R"
ChDir "R:\○○\××\△△"
Filename = Application.GetOpenFilename("PDF Documents,*.pdf")
If Filename = False Then Exit Sub
Set myShell = CreateObject("WScript.Shell")
myShell.Run ("AcroRd32.exe /t " & Filename)
Set myShell = Nothing
End Sub

回答No.2

K Kazz（@JazzCorp）

グロじゃナイヨ～！、ダイアロ～グ、、、
Sub GetOpenFilenamePDF()
Dim xFileNames As Variant
Dim nn As Long
xFileNames = Application.GetOpenFilename(filefilter:="PDF Documents,*.pdf", MultiSelect:=True)
If (Not IsArray(xFileNames)) Then
MsgBox "キャンセルされました！"
Exit Sub
End If
For nn = 1 To UBound(xFileNames)

MsgBox (nn & " 番目のファイル：" & xFileNames(nn))

Next
End Sub