セルにwebアドレスが記載されています。 セルを選択し、それをもとにページを開きます。 開いたページのpdfファイルへのリンクをクリックして、そのページを印刷しようと思っています。 しかし、pdfファイルが新しいウィンドウで開くので、以下のような プログラムで実行すると、最初のページが印刷されます。 そこで、コメント行にしているところを非コメントにして実行すると 何も起きません（印刷画面がでません。） どうすれば、pdfのページをアクティブ（？）にできるでしょうか。 Dim ObjIE As Object Dim Obj As Object Dim objShell As Object Dim range1 As Object Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub CommandButton2_Click() On Error GoTo myError Set range1 = Application.InputBox("セルを選択してください", "セルの選択", Type:=8) Set ObjIE = Nothing Set ObjIE = CreateObject("InternetExplorer.Application") ObjIE.Visible = True ObjIE.Navigate range1 Do While ObjIE.ReadyState <> 4 Do While ObjIE.Busy = True Loop Loop Sleep (500) ' Set objShell = CreateObject("Shell.Application") For Each Obj In ObjIE.Document.getElementsByTagName("a") If Obj.innerText = "PDFファイル" Then Obj.Click Exit For End If Next Do While ObjIE.ReadyState <> 4 Do While ObjIE.Busy = True Loop Loop Sleep (1000) 'Set ObjIE = objShell.Windows(objShell.Windows.Count - 1) Sleep (1000) ObjIE.ExecWB 7, 2 myError: End Sub
↧