返回列表 上一主題 發帖

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

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

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


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




.
.
.
.


謝謝

本帖最後由 jakcy1234 於 2013-9-10 15:05 編輯

回復 1# wufonna

000000.JPG
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

TOP

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

TOP

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

TOP

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

謝謝 G大
不知 CreateObject("Microsoft.XMLHTTP") 可以
G大您好
是不是我的系統的問題,執行時有以下的錯誤,請G大指點
謝謝
2013-09-10_171722.jpg
2013-09-10_171804.jpg

test.rar (10.66 KB)

TOP

回復 6# wufonna
不了解這錯誤.(2003 正常)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

請問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

TOP

請問G大是不是圖檔太大
我的電腦不能跑
2013-09-10_174329.jpg

TOP

回復 6# wufonna
回復 7# GBKEE

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

TOP

        靜思自在 : 好事要提得起,是非要放得下,成就別人即是成就自己。
返回列表 上一主題