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

wufonna

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


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

ªº


.
.
.
.


ÁÂÁÂ

jakcy1234

¦^´_ 1# wufonna

¤U¸ü (135.28 KB)

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

cji3cj6xu6

²{¾Ç²{½æ¡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>

wufonna

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ºØÀÉ®×µ¥
ÁÂÁÂ

GBKEE

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

wufonna

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

GBKEE

¦^´_ 6# wufonna
¤£¤F¸Ñ³o¿ù»~.(2003 ¥¿±`)

wufonna

½Ð°Ý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

wufonna

½Ð°ÝG¤j¬O¤£¬O¹ÏÀɤӤj
§Úªº¹q¸£¤£¯à¶]

stillfish00

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

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