ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó®»¨úºô­¶¤º¥þ³¡¹Ï¤ùªººô¤î

[µo°Ý] ½Ð°Ý¦p¦ó®»¨úºô­¶¤º¥þ³¡¹Ï¤ùªººô¤î

½Ð°Ý¦p¦ó®»¨úºô­¶¤º¥þ³¡¹Ï¤ùªººô«ü


¨Ò¦p
http://blog.mjjq.com/archives/1975.html

ªº


.
.
.
.


ÁÂÁÂ

¥»©«³Ì«á¥Ñ jakcy1234 ©ó 2013-9-10 15:05 ½s¿è

¦^´_ 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

TOP

²{¾Ç²{½æ¡A§A¥i¥H§Q¥Îchrome µM«á¿ï¤@±i¹Ï«ö¤U¥kÁä¿ï¾ÜÀˬd¤¸¯À¡A<br>
µM«á¿ï¨úresourcesªº image ´N¥X²{¤@°ï¹ÏÀÉ¡A¦A¨Ó§A´NÀ³¸Óª¾¹D¤F¡ã<br>

TOP

jakcy1234  cji3cj6xu6  ¤j¤j¡AÁÂÁ±z­Ì
§Ú¬O·Q¥Î
CreateObject("InternetExplorer.Application")
¬O¦p¦ó¥Î
¥H«á­n¥Î¦bµ{¦¡¤¤
¨Ò¦p ¨ú±o
http://xxx.xxx.xxx/........../a.xls
http://xxx.xxx.xxx/..../.../.....o.zip
¦UºØÀÉ®×µ¥
ÁÂÁÂ

TOP

¦^´_ 3# cji3cj6xu6
  1. Option Explicit
  2. Sub ¤U¸üºô¸ô·Ó¤ù()
  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
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂ G¤j
¤£ª¾ CreateObject("Microsoft.XMLHTTP") ¥i¥H
G¤j±z¦n
¬O¤£¬O§Úªº¨t²Îªº°ÝÃD¡A°õ¦æ®É¦³¥H¤Uªº¿ù»~¡A½ÐG¤j«üÂI
ÁÂÁÂ

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

2013-09-10_171722.jpg

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

2013-09-10_171804.jpg

test.rar (10.66 KB)

TOP

¦^´_ 6# wufonna
¤£¤F¸Ñ³o¿ù»~.(2003 ¥¿±`)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

½Ð°ÝG¤j¡A¬O¤£¬O
.Pictures.Insert (.Cells(i, 2))
ªº°ÝÃD
§Úµù¸Ñ¤F¡A´N¥i°õ¦æ
ÁÂÁÂ

Option Explicit
Sub ¤U¸üºô¸ô·Ó¤ù()
    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¤j¬O¤£¬O¹ÏÀɤӤj
§Úªº¹q¸£¤£¯à¶]

2013-09-10_174329.jpg (155.77 KB)

2013-09-10_174329.jpg

TOP

¦^´_ 6# wufonna
¦^´_ 7# GBKEE

§Ú¥Î2010¡A­n§â23¦æ§ï¦¨  .Pictures.Insert .Cells(i, 2).Value ¤~¯à¶]¡C

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD