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

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

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

·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¤£ºÉ><

Test.zip (62.16 KB)

¿Ã¹õºI¹Ï01416.jpg (82.4 KB)

¿Ã¹õºI¹Ï01416.jpg

Jared

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

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD