Блог

Я просматриваю этот защищенный паролем веб-сайт и добираюсь до точки, где он открывает то, что выглядит как дочернее окно, но имеет URL, подобный "http://yadayadayada**.pdf**?V42" .

Хотя это PDF, я могу вручную щелкнуть по нему, чтобы выбрать и скопировать данные.

Моя проблема заключается в настройке фокуса на нее с помощью кода.

Я пробовал несколько вариантов перебора URL-адресов открытых страниц, но он не идентифицируется, и я не могу установить фокус на этот.

Если все остальное не удается, я могу сохранить его как PDF, открыть его через Adobe и очистить его оттуда.

Я не уверен, что я действительно понимаю, чего вы хотите. Следующий код проверяет каждое открытое приложение, является ли оно Internet Explorer, и если да, имеет ли оно правильный URL-адрес в качестве местоположения. Больше информации в комментариях.

Важно: нет необходимости активировать вкладку для очистки данных из нее. Я также не знаю, как вывести вкладку на передний план в IE. Почему-то никто не знает 😉

 Sub ScrapeFromTabs()

Dim allShell As Object
Dim oneWindow As Object

  Set allShell = CreateObject("Shell.Application")
  
  'Go through all open windows
  'Each tab in IE is treated as a window by the OS.
  For Each oneWindow In allShell.Windows
    'Check if it is a window of the Internet Explorer
    If InStr(1, UCase(oneWindow.FullName), "IEXPLORE") > 0 Then
      'Check whether the relevant parts are present in the URL
      If InStr(1, oneWindow.locationURL, "yadayadayada") > 0 And InStr(1, oneWindow.locationURL, ".pdf") > 0 Then
        'Do here what you want with the pdf
        'Whatever is possible with a pdf ... somthing like this
        'set nodeHeadline = oneWindow.getElementsByTagName("h1")(0)
        
        'It was the right tab with the pdf
        'Leave the loop
        Exit For
      End If
    End If
  Next oneWindow
End Sub