エクセルVBAで、PDFファイルを開きたい

セルに入力した値のブック（xls)を開く場合、
以下となりますが、↓

Sub セルに入力したブック名のブックを開く()
ブック名 = Cells(1, 2) 'B1セルの値を取り出す
Workbooks.Open Filename:=ブック名 & ".xls" '指定されたブックを開く
End Sub


これでPDFファイルを開きたいです。
記述をどうしたらよいでしょうか。
目的はPDFファイルの検索/照会をxlsにてしたいのです。
お手数ですがお願いいたします。

No.2 ベストアンサー 回答者： nicotinism 回答日時： 2006/08/03 12:03

案１

ハイパーリンクにしてしまう。

案２
PDFファイルへのフルパスが、B列に記述してある
拡張子PDFへの関連付けがAcrobat Reader にしてある
と仮定して
ワークシートのイベントに

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If InStr(Target.Value, "pdf") > 0 Then
　　Call Shell("explorer.exe " & Target.Value)
　　Cancel = True '編集モードキャンセル
End If
End Sub
とか？

PDFファイルが一箇所にまとまっているのなら
標準モジュールに
Sub test2()
Dim strFilePath As String
strFilePath = _
　　Application.GetOpenFilename _
　　("PDFファイル,*.pdf", MultiSelect:=False)

If strFilePath = "false" Then
　Exit Sub
End If

Call Shell("explorer.exe " & strFilePath)

End Sub
でも？
ということかな？

この回答への補足

ハイパーリンクにします。
一番簡単ですしね。
ありがとうございます。

補足日時：2006/08/03 12:22

No.1 回答者： solar_sys 回答日時： 2006/08/03 11:28

AppActivate で起動、SendKey で検索のショートカットキーと検索文字列を送ればできると思います。

後はヘルプなどで調べてください。

この回答へのお礼

ごめんなさい、こちらの知識レベルを伝えず、
質問してました。
せっかくのご回答ですが、なんのことやら
良く分かりませんでした。
失礼しました。
そしてありがとうございました。

お礼日時：2006/08/03 12:26