Question

我工作的公司使用LinkedIn作为数据源，用联系人填充我们的数据库。目前这个过程是手动的，我想自动完成这个过程的一部分。

我正在尝试在VBScript或VBA中编写一个脚本，该脚本将解析已经打开的网页的内容。我希望脚本能够评估LinkedIn上每个人的描述部分，并根据特定标准在Excel中放置人员的姓名，描述和LinkedIn链接。我已经完成了一些VBScript脚本，我可以打开一个网页并阅读HTML内容，但我想利用已经打开的网页来利用LinkedIn的过滤功能。

Answer 1

这是一个可以用来获取对已经打开的IE窗口的引用的函数（给定一个匹配的URL）

'usage:
Dim IE
Set IE = GetIE("http://www.linkedin.com")
If Not IE Is Nothing Then
    'work with IE object
End If




'Find an IE window with a matching (partial) URL
'Assumes no frames.
Function GetIE(sAddress As String) As Object

Dim objShell As Object, objShellWindows As Object, o As Object
Dim retVal As Object, sURL As String


    Set retVal = Nothing
    Set objShell = CreateObject("Shell.Application")
    Set objShellWindows = objShell.Windows

    'see if IE is already open
    For Each o In objShellWindows
        sURL = ""
        On Error Resume Next
        sURL = o.document.Location
        On Error GoTo 0
        If sURL <> "" Then
            If sURL Like sAddress & "*" Then
              Set retVal = o
              Exit For
            End If
        End If
    Next o

Set GetIE = retVal
End Function

解析通过Linkedin并导出到Excel

1 个答案: