[發問] 請問如何捉取網頁內全部圖片的網止

wufonna

請問如何捉取網頁內全部圖片的網指


例如
http://blog.mjjq.com/archives/1975.html

的


.
.
.
.


謝謝

jakcy1234

回復 1# wufonna

下載 (135.28 KB)

2013-9-10 15:01

Download NetTransport
right click copy URL to Clipbroad

h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-24.jpg
ht tp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-11.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-05.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-07.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-08.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-09.jpg
ht tp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-10.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-23.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-14.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-01.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-02.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-06.jpg
h ttp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-16.jpg
ht tp://tw.mjjq.com/pic/20081029/mb-qingdao-photo-15.jpg

cji3cj6xu6

現學現賣，你可以利用chrome 然後選一張圖按下右鍵選擇檢查元素，<br>
然後選取resources的 image 就出現一堆圖檔，再來你就應該知道了～<br>

wufonna

jakcy1234  cji3cj6xu6  大大，謝謝您們
我是想用
CreateObject("InternetExplorer.Application")
是如何用
以後要用在程式中
例如 取得
http://xxx.xxx.xxx/........../a.xls
http://xxx.xxx.xxx/..../.../.....o.zip
各種檔案等
謝謝

GBKEE

回復 3# cji3cj6xu6

1. Option Explicit
   
2. Sub 下載網路照片()
   
3.     Dim a As Variant, e As Integer, i As Integer, s As Variant, p As Integer
   
4.     With CreateObject("Microsoft.XMLHTTP")
   
5.         .Open "get", "http://blog.mjjq.com/archives/1975.html", False
   
6.        .send
   
7.        a = Split(.responseText, vbLf)
   
8.     End With
   
9.     With ActiveSheet
   
10.         .Pictures.Delete
    
11.         .Cells.Clear
    
12.         i = 1
    
13.         For e = 0 To UBound(a)
    
14.             If InStr(a(e), "src=""http://") And InStr(a(e), ".jpg"" /><br />") Then
    
15.                 s = Split(a(e), "alt=""")(1)
    
16.                 s = Split(s, """ width=""")(0)
    
17.                 .Cells(i, 1) = s
    
18.                 s = Split(a(e), "src=""")(1)
    
19.                 s = Split(s, """ /><br />")(0)
    
20.                 .Cells(i, 2) = s
    
21.                 p = .Pictures.Count
    
22.                 .Cells(1 + (p * 20), "H").Select
    
23.                 .Pictures.Insert (.Cells(i, 2))
    
24.                 i = i + 1
    
25.             End If
    
26.        Next
    
27.     End With
    
28. End Sub

複製代碼

wufonna

謝謝 G大
不知 CreateObject("Microsoft.XMLHTTP") 可以
G大您好
是不是我的系統的問題，執行時有以下的錯誤，請G大指點
謝謝

GBKEE

回復 6# wufonna
不了解這錯誤.(2003 正常)

wufonna

請問G大，是不是
.Pictures.Insert (.Cells(i, 2))
的問題
我註解了，就可執行
謝謝

Option Explicit
Sub 下載網路照片()
    Dim a As Variant, e As Integer, i As Integer, s As Variant, p As Integer
    With CreateObject("Microsoft.XMLHTTP")
        .Open "get", "http://blog.mjjq.com/archives/1975.html", False
       .send
       a = Split(.responseText, vbLf)
    End With
    With ActiveSheet
        .Pictures.Delete
        .Cells.Clear
        i = 1
        For e = 0 To UBound(a)
            If InStr(a(e), "src=""http://") And InStr(a(e), ".jpg"" /><br />") Then
                s = Split(a(e), "alt=""")(1)
                s = Split(s, """ width=""")(0)
                .Cells(i, 1) = s
                s = Split(a(e), "src=""")(1)
                s = Split(s, """ /><br />")(0)
                .Cells(i, 2) = s
                p = .Pictures.Count
                .Cells(1 + (p * 20), "H").Select
              '  .Pictures.Insert (.Cells(i, 2))
                i = i + 1
            End If
       Next
    End With
End Sub

wufonna

請問G大是不是圖檔太大
我的電腦不能跑

stillfish00

回復 6# wufonna
回復 7# GBKEE

我用2010，要把23行改成  .Pictures.Insert .Cells(i, 2).Value 才能跑。