Excel VBA 可以練習抓取網路上資料圖片的 URL

抓取網路資料圖片

robertchentpe 2022-12-06 17:29:10 ‧ 866 瀏覽

分享至

xcel VBA 可以練習抓取網路上的資料圖片的 URL

blanksoul12 iT邦研究生 5 級 ‧ 2022-12-06 17:43:08 檢舉

你想問什麼?

player iT邦大師 1 級 ‧ 2022-12-06 18:21:57 檢舉

用Execl裡的VBA跑抓遠端Url的圖檔，另存新擋在本機?
只是有的網站會擋喔
原理一樣是引用【Microsoft HTML Object Library】與【Microsoft Internet Controls】
用法請自己找
有可能需要自行拆解HTML找出圖檔的Url

robertchentpe iT邦新手 5 級 ‧ 2022-12-07 10:59:29 檢舉

我找到了其他類似的 URL of WebSite "https://www.pinterest.com/oxxostudio/outdoor/" 允許存取請問可以教我如何抓取圖片 Learn step by step 如同 Excel VBA 的眉眉角角Day29?

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

ahfuyeuem

iT邦研究生 4 級 ‧ 2022-12-07 08:50:02

Private Sub CommandButton1_Click()

Dim picture As String

picture = "http://www.example.com/aaa.jpg"

ActiveSheet.Pictures.Insert(picture)

End Sub

回應 4
分享
檢舉

看更多先前的回應...收起先前的回應...

robertchentpe iT邦新手 5 級 ‧ 2022-12-07 11:30:39 檢舉

Would you please kindly teach me how to solve the following problems?

Thank you in advance,

VBA CODE:
Sub CommandBunClick()

Dim picture As String

picture = "https://i.pinimg.com/236x/39/eb/1d/39eb1dc594a91c4c1280dcf9d1b1237f.jpg"
ActiveSheet.Pictures.Insert (picture) 'successed
picture = "https://i.pinimg.com/236x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg"
ActiveSheet.Pictures.Insert (picture) 'successed

srcSet = "https://i.pinimg.com/236x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 1x, https://i.pinimg.com/474x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 2x, https://i.pinimg.com/736x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 3x, https://i.pinimg.com/originals/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.png 4x"
picture = srcSet

' Fail ' ActiveSheet.Pictures.Insert (picture)

picture = "https://i.pinimg.com/236x/39/eb/1d/39eb1dc594a91c4c1280dcf9d1b1237f.jpg 2x"
' Fail 'ActiveSheet.Pictures.Insert (picture)

picture = "https://i.pinimg.com/236x/39/eb/1d/39eb1dc594a91c4c1280dcf9d1b1237f.jpg 3x"
' Fail 'ctiveSheet.Pictures.Insert (picture)

End Sub

The original code of HTML page:

Would you please kindly teach me how to solve the following problems?

Thank you in advance,

VBA CODE:
Sub CommandBunClick()

Dim picture As String

picture = "https://i.pinimg.com/236x/39/eb/1d/39eb1dc594a91c4c1280dcf9d1b1237f.jpg"
ActiveSheet.Pictures.Insert (picture)   'successed
picture = "https://i.pinimg.com/236x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg"
ActiveSheet.Pictures.Insert (picture)   'successed

' picture = "https://i.pinimg.com/236x/39/eb/1d/39eb1dc594a91c4c1280dcf9d1b1237f.jpg 1x"
' Fail 'ActiveSheet.Pictures.Insert (picture)
picture = "https://i.pinimg.com/236x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 1x, https://i.pinimg.com/474x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 2x, https://i.pinimg.com/736x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 3x, https://i.pinimg.com/originals/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.png 4x"
' Fail  'ActiveSheet.Pictures.Insert (picture)
    
    srcSet = "https://i.pinimg.com/236x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 1x, https://i.pinimg.com/474x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 2x, https://i.pinimg.com/736x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 3x, https://i.pinimg.com/originals/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.png 4x"
    picture = srcSet
' Fail  ' ActiveSheet.Pictures.Insert (picture)

picture = "https://i.pinimg.com/236x/39/eb/1d/39eb1dc594a91c4c1280dcf9d1b1237f.jpg 2x"
' Fail  'ActiveSheet.Pictures.Insert (picture)

picture = "https://i.pinimg.com/236x/39/eb/1d/39eb1dc594a91c4c1280dcf9d1b1237f.jpg 3x"
' Fail  'ctiveSheet.Pictures.Insert (picture)

End Sub

The original code of HTML page:
<div class="vbI XiG" role="list" style="height:0;width:100%"><div class="static" data-grid-item="true" role="listitem" style="top:0;left:0;transform:translateX(0px) translateY(0px);-webkit-transform:translateX(0px) translateY(0px);width:252px"><div style="padding-bottom:16px;padding-left:8px;padding-right:8px"><div data-test-id="pin" data-test-pin-id="9922061670895919" class="zI7 iyn Hsu"><div data-test-id="pinRepPresentation" class="zI7 iyn Hsu" style="height:100%"><div data-test-id="pinWrapper" class="Jea XiG jzS sLG zI7 iyn Hsu" style="border-radius:16px;-webkit-mask-image:-webkit-radial-gradient(white, black);height:100%"><div aria-hidden="false" class="zI7 iyn Hsu"><div class="XiG sLG zI7 iyn Hsu" style="border-radius:16px;-webkit-mask-image:-webkit-radial-gradient(white, black)"><div class="zI7 iyn Hsu" style="height:100%"><a aria-label="The Wedging of Stainless Steel – 65㎡ apartment interior design by QISI DESIGN Pin 頁面" class="Wk9 xQ4 CCY czT DUt iyn kVc MNX LIa" href="/pin/9922061670895919/" rel="" tabindex="0"><div class="Pj7 sLG XiG eEj m1e"><div data-test-id="pinrep-image" class="zI7 iyn Hsu" style="min-height:55px"><div class="KS5 hs0 un8 C9i TB_" style="min-height:120px"><div class="ujU zI7 iyn Hsu"><div class=""><div data-test-id="non-story-pin-image" class="zI7 iyn Hsu"><div class="XiG zI7 iyn Hsu" style="background-color:#8f8070;padding-bottom:150%"><img alt="其中包含以下圖片：The Wedging of Stainless Steel – 65㎡ apartment interior design by QISI DESIGN" class="hCL kVc L4E MIw" fetchpriority="auto" loading="auto" src="https://i.pinimg.com/236x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg" srcSet="https://i.pinimg.com/236x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 1x, https://i.pinimg.com/474x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 2x, https://i.pinimg.com/736x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 3x, https://i.pinimg.com/originals/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.png 4x"/></div></div></div></div></div></div>

修改

robertchentpe iT邦新手 5 級 ‧ 2022-12-07 12:23:55 檢舉

The original code of HTML page:

修改

robertchentpe iT邦新手 5 級 ‧ 2022-12-07 12:25:26 檢舉

修改

robertchentpe iT邦新手 5 級 ‧ 2022-12-12 14:26:20 檢舉

**Hi. Ahfuyeuem,

請問此URL,抓圖 : 程式如何寫才能成功抓圖? (不好意思, 麻煩您了)
picture = "https://i.pinimg.com/236x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 1x, https://i.pinimg.com/474x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 2x, https://i.pinimg.com/736x/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.jpg 3x, https://i.pinimg.com/originals/e7/26/d4/e726d4056bd1b77d66399a94c701d5a2.png 4x"
' Fail 'ActiveSheet.Pictures.Insert (picture)

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22195 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙