Question

我在Excel中有一长串电话号码，并且喜欢遍历这些号码并在在线电话目录www.1881.no上搜索相应的名称和地址。通过搜索URL https://www.1881.no/?query=xxxxxxxx（8位电话号码），我得到了结果（名称和地址）。我看到第40行...中的html字符串给出了我需要的信息，但是我一直无法弄清楚如何提取它并将文本行复制到Excel工作表中。有什么建议吗？

电话号码在A行中。我要从中提取名称的html字符串以及我尝试过的后续vba代码如下：

<meta property="og:title" content="Name Surname"/>


    Sub GetNamefrom1881()
'
' GetNamefrom1881 Macro
' Extract name from 1881.no based on phone numbers
'
' Keyboard Shortcut: Ctrl+g
'
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.AddressBar = True
ie.MenuBar = True
myvalue = ActiveCell.Offset(0, -1).Range("A1").Value

ie.Navigate "https://www.1881.no/?query=" & myvalue

Do While ie.Busy
Application.Wait DateAdd("s", 1, Now)

Loop

Set Doc = ie.Document
Dim metaElements
Set metaElements = ie.Document.GetElementsByTagName("meta")

Dim element
For Each element In metaElements
    If element.name = "og:title" Then
        Dim name
        name = element.Content
    End If
Next

ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
     False
ActiveCell.Offset(1, -1).Range("A1").Select

ie.Quit

End Sub

从网页提取HTML行并粘贴到Excel中

0 个答案: