«ç»ò¿z¿ï©Ò»Ý­nªº¸ê®Æ

Jared

·Q½Ð°Ý¤@¤U¯«¤H
§Ú¥Ø«e¥Î¡A¥H¤U¨âºØ¼gªk¤£¦æ¡A¥D­n¬O·Q­n±N¡yid¡z¡B¡y stroke¡z«áªº¤Þ¸¹¤º¸ê®Æ¨ú¥X¨Ó
LEFT(A1,FIND("=",A1)-1)
MID(A1,SEARCH("""",A1)+1,SEARCH("""",A1,SEARCH("""",A1)+1)-SEARCH("""",A1)-1)

¦pªG·Q­n¦b¸ê®Æ­¶­±¤U ±NÃöÁä¦r¦ê¨ú¥X¨Ó
¨ç¼Æ«ç»ò¼g? ·P¿E¤£ºÉ><

¤U¸ü (82.4 KB)

2014-9-11 11:55

Test.zip (62.16 KB)

¤U¸ü¦¸¼Æ: 7

2014-9-11 11:55

GBKEE

¦^´_ 1# Jared
§A­n§ì¨úªº¬Oºô­¶ªº¸ê®Æ

1. Option Explicit
   
2. Sub Ex() '§ì¨úID
   
3.     Dim URL As String, a As Object, e As Object, i
   
4.     URL = "http://forum.twbts.com/thread-12514-1-1.html"
   
5.     'URL = "http://§Aªººô­¶"
   
6.     With CreateObject("InternetExplorer.Application")
   
7.         .Navigate URL
   
8.         .Visible = True
   
9.         Do While .Busy Or .ReadyState <> 4:         Loop
   
10.         Set a = .Document.all
    
11.         With ThisWorkbook.Sheets(1)
    
12.             .Cells = ""
    
13.             On Error Resume Next
    
14.             For Each e In a
    
15.                 If e.ID <> "" Then
    
16.                     i = i + 1
    
17.                     .Cells(i, "a") = e.TAGNAME
    
18.                     .Cells(i, "B") = e.ID
    
19.                     .Cells(i, "C") = e.innertext  'ºô­¶¤Wªº¤å¦r
    
20.                 End If
    
21.             Next
    
22.         End With
    
23.         .Quit
    
24.     End With
    
25. End Sub
    
26. Sub Ex1() '§ì¨ústroke=
    
27.     Dim SP As Variant, i As Integer
    
28.     URL = "http://§Aªººô­¶"
    
29.     With CreateObject("Microsoft.XMLHTTP")
    
30.         .Open "get", URL, False
    
31.        .send
    
32.         SP = Split(.responseText, "stroke=""")
    
33.     End With
    
34.     With ThisWorkbook.Sheets(2)
    
35.         .Cells = ""
    
36.         For i = 1 To UBound(SP)
    
37.             .Cells(i, "A") = Mid(SP(i), 1, InStr(SP(i), """") - 1)
    
38.         Next
    
39.     End With
    
40. End Sub

½Æ»s¥N½X