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

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-9-10 14:41 | 只看該作者

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

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

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

的

.
.
.
.

謝謝

樓主熱帖

jakcy1234

帖子: 37
主題: 10
精華: 0
積分: 63
點名: 0
作業系統: XP
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2013-8-25
最後登錄: 2016-5-24

2^#

發表於 2013-9-10 15:04 | 只看該作者

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

回復 1# wufonna

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

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

3^#

發表於 2013-9-10 15:06 | 只看該作者

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

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

4^#

發表於 2013-9-10 16:46 | 只看該作者

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2013-9-10 17:00 | 只看該作者

回復 3# cji3cj6xu6

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"" /> ") 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, """ /> ")(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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

6^#

發表於 2013-9-10 17:28 | 只看該作者

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

2013-09-10_171722.jpg (31.61 KB)

2013-09-10_171804.jpg (105.5 KB)

test.rar (10.66 KB)

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2013-9-10 17:58 | 只看該作者

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

8^#

發表於 2013-9-10 19:21 | 只看該作者

請問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"" /> ") 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, """ /> ")(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