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仅显示“此页面的标题为：”，“ is”之后没有任何内容。

您知道如何解决此错误以便获取URL或窗口标题吗？

PS：我什至尝试将my_url和my_title的数据类型从variant更改为字符串，但没有任何更改。

我将非常感谢您的帮助！谢谢:)

Answer 1

尝试删除此行：

Dim x As Integer

编辑：

您使用的是哪个版本的Excel？

也许'''Dim x As Variant'''将起作用。

如何使用vba获取网页标题？

1 个答案: