internet-explorer - Internet Explorer で PDF ハイパーリンクを開き、Excel vba の特定のページに移動するにはどうすればよいですか?

Question

Internet Explorer で PDF ハイパーリンクを開き、Excel VBA を使用して特定のページに移動します。

誰もそれを行う方法を知っていますか? どんな助けでも大歓迎です。

Answer 1

上記の最初のコメントは、特定のページへのリンクに役立ちます。以下に、VBA を使用してこれらのリンクを開く 2 つの方法を示します。

FollowHyperlink メソッドを使用して、リンクのクリックをシミュレートできます。リンクは既定のブラウザーで開き、ユーザーにはセキュリティ プロンプトが表示されます。

Sub OpenPDF_to_page_2_Method_1()
  Const PDF_PATH = "http://www.adobe.com/support/products/enterprise/knowledgecenter/media/c4611_sample_explain.pdf"
  ThisWorkbook.FollowHyperlink PDF_PATH & "#page=2"
End Sub

または、新しい Internet Explorer オブジェクトを作成して PDF に移動することもできます。これは、デフォルトのブラウザに関係なく Internet Explorer を使用し、リンクを開く前にユーザーにセキュリティ プロンプトを表示しません。

Sub OpenPDF_to_page_2_Method_2()
  Const PDF_PATH = "http://www.adobe.com/support/products/enterprise/knowledgecenter/media/c4611_sample_explain.pdf"

  Dim IE As Object 
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  IE.Navigate (PDF_PATH & "#page=2")
  Set IE = Nothing
End Sub