Как можно получить заголовок веб-страницы с помощью vba?

Question

Вот код, который я написал, чтобы получить заголовки всех открытых страниц Internet Explorer на моем компьютере.

Dim objShell As Object
Dim IE_count As Variant
Dim my_url As Variant
Dim my_title As Variant
Dim x As Integer

    Set objShell = CreateObject("Shell.Application")
    IE_count = objShell.Windows.Count
    MsgBox ("The number of pages is: " & IE_count)

    For x = 0 To (IE_count - 1)
    On Error Resume Next
    my_url = objShell.Windows(x).Document.Location
    my_title = objShell.Windows(x).Document.Title
    MsgBox ("The title of this page is: " & my_url)

Первый MsgBox в моем фрагменте кода на самом деле отображает правильное число IE_count (представляющее количество открытых окон).

Однако у меня возникли проблемы с отображением переменных my_url или my_title.MsgBox, связанный с этими полями, просто показывает «Заголовок этой страницы:» и ничего после «есть».

Знаете ли вы, как исправить эту ошибку, чтобы получить URL или заголовок окна?

PS: я даже пытался изменить типы данных с варианта на строку для my_url и my_title, но ничего не изменилось.

Буду очень признателен за любую помощь!Спасибо :)

Answer 1

Попробуйте удалить эту строку:

Dim x As Integer

Редактировать:

Какую версию Excel вы используете?

Возможно '' 'Dim x As Variant' ''буду работать.