用excel 如何提取出pdf图片所对应链接地址

tinazhu8866

http://cn.mouser.com/Semiconduct ... r-Driver/_/N-7zi0h/

以上的网站 有3页， 我只要 每页的 “数据表”所对应的链接地址， 有办法批量提取导出吗？ ---因为有很多都是 几百页的，所以我举例用了这个3页的。

另外这个网页的每页很有规律的， +25 递增。

[ 本帖最后由 tinazhu8866 于 2011-1-4 16:23 编辑 ]

tinazhu8866

我谷歌了一下

Sub ThunderDown()
    Dim http As Object
    Dim ThunderAgent As Object
    Dim i As Long, j As Long
    Dim Arr() As String
    Dim EndRow As Long
    Dim Temp As String
    EndRow = [A65536].End(xlUp).Row
    ReDim Arr(1 To 1)
    Set http = CreateObject("Microsoft.XMLHTTP")
    With http
        For i = 1 To EndRow
            .Open "get", Cells(i, 1), False
            .send ""
            Temp = .responsetext
            If InStr(1, Temp, "thunderHref") > 0 Then
                j = j + 1
                ReDim Preserve Arr(1 To j)
                Arr(j) = Split(Split(.responsetext, "thunderHref='")(1), "'")(0)
            End If
        Next
    End With
    Set ThunderAgent = CreateObject("ThunderAgent.Agent.1")
    With ThunderAgent
        For i = 1 To UBound(Arr)
            .addtask Arr(i)
        Next
        .CommitTasks
    End With
End Sub


以上代码可以用吗？ 如何编辑成我的链接中的“数据表”呢 、我不会弄。 请达人帮忙。。

tinazhu8866

有高人指点一下吗？

tinazhu8866

为什么那么多天都没人来帮忙