返回列表 上一主題 發帖

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

謝謝
G大
stillfish00 大
我的也是2010改了就能RUN
是不是2010版的蟲
謝謝 ^0^

2013-09-10_200706.jpg (177.26 KB)

2013-09-10_200706.jpg

TOP

回復 11# wufonna
2003接受將 .Pictures.Insert (.Cells(i, 2)) 轉成.Cells(i, 2).Value
10# stillfish00 我用2010,要把23行改成  .Pictures.Insert .Cells(i, 2).Value 才能跑
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

真是神了,原來 VBA可以做這麼多事,
真是!$@#%@#$#%@#%#$%^

TOP

本帖最後由 wufonna 於 2013-9-12 13:16 編輯

請問如宣告字串
<meta name="description" content="提供最方便的網站搜尋、即時新聞、生活資訊和Yahoo奇摩服務入口。">

===========================
Sub TEST()

Dim s As String
s = "<meta name="description" content="提供最方便的網站搜尋、即時新聞、生活資訊和Yahoo奇摩服務入口。">"
End Sub
錯誤
謝謝

TOP

回復 14# wufonna
  1. Option Explicit
  2. Sub Ex()
  3.     Dim s As String
  4.     s = """"
  5.     MsgBox s
  6.     s = "A &   ""   &   B"
  7.     MsgBox s
  8.     s = "<meta name=""description"" content=""提供最方便的網站搜尋、即時新聞、生活資訊和Yahoo奇摩服務入口。"">"""
  9.     MsgBox s
  10. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

請問G大
split 後面的(1)是刪字元前的全部
(0)刪字元後的全部嗎
謝謝

Sub Ex()
    Dim s As String, i, ss As String
    s = """"
    MsgBox s
    s = "A &   ""   &   B"
    MsgBox s
    s = "<meta name=""description"" content=""提供最方便的網站搜尋、即時新聞、生活資訊和Yahoo奇摩服務入口。"">"
    MsgBox s
    s = Split(s, "content=""")(1)
    MsgBox s
    s = Split(s, """>")(0)
    MsgBox s
End Sub

TOP

回復 16# wufonna
請詳看Split 函數vba說明
  1. Split 函數
  2. 傳回一個陳列索引從零開始的一維陣列,它包含指定數目的子字串。
複製代碼
  1. Option Explicit
  2. Sub Ex()
  3.     Dim s As Variant, i As Integer
  4.     s = "<meta name=""description"" content=""提供最方便的網站搜尋content=""即時新聞content=""、生活資訊和Yahoo奇摩服務入口。"">"
  5.     s = Split(s, "content=""")
  6.     MsgBox Join(s, vbLf)
  7.     MsgBox UBound(s)           '陣列上限元素索引值
  8.     For i = 0 To UBound(s)
  9.         MsgBox s(i)
  10.     Next
  11. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

非常謝謝 G 大 ^_^
學生很多問題 /___\
網頁內很多樣式的標籤
可用這樣的方法,還是有什麼方便的方法
Sub test()
Dim a, b, c, d

a = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/130asf302-190c8a5.jpg"" alt=""Video 圖片"" width=160 height=115><br>"
b = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/asf912151302190c8a35.jpg"" ></p>"
c = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/130f302-19c8a35.jpg"" alt=""Video 圖片"" height=115><br />"
d = "<img width=160 height=115 src=http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/13092151302190c8a35.jpg  ></a>"
a = Split(a, "http://")(1)
a = Split(a, ".jpg")(0)
a = "http://" & a & ".jpg"
b = Split(b, "http://")(1)
b = Split(b, ".jpg")(0)
b = "http://" & b & ".jpg"
c = Split(c, "http://")(1)
c = Split(c, ".jpg")(0)
c = "http://" & c & ".jpg"
d = Split(d, "http://")(1)
d = Split(d, ".jpg")(0)
d = "http://" & d & ".jpg"
MsgBox a & Chr(10) & b & Chr(10) & c & Chr(10) & d

End Sub
謝謝

TOP

回復 18# wufonna
  1. Option Explicit
  2. Sub test()
  3.     Dim a As String, b As String, c As String, d As String
  4.     Dim AR As Variant, i As Integer, S(1 To 2) As Integer
  5.     a = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/130asf302-190c8a5.jpg"" alt=""Video 圖片"" width=160 height=115><br>"
  6.     b = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/asf912151302190c8a35.jpg"" ></p>"
  7.     c = "<img src=""http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/130f302-19c8a35.jpg"" alt=""Video 圖片"" height=115><br />"
  8.     d = "<img width=160 height=115 src=http://l.yimg.com/ud/hp_editor/tw/13/09/12/15/13092151302190c8a35.jpg  ></a>"
  9.     AR = Array(a, b, c, d)
  10.     For i = 0 To UBound(AR)
  11.         S(1) = InStr(AR(i), "http://")
  12.         S(2) = InStr(AR(i), "jpg") + 3
  13.         AR(i) = Mid(AR(i), S(1), S(2) - S(1))
  14.     Next
  15.     MsgBox Join(AR, vbLf)
  16. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

謝謝  G 大
excel 內的好多函數就學不完,^_^
要多多的練習,
非常感謝 G 大

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言,就如鑽石般珍貴;但對愚人來說,卻像是一把泥土,一點價值也沒有。
返回列表 上一主題