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

[µo°Ý] ·s¦~¤§«áµLªk¦Û°Ê§ó·sªÑ»ùªº°ÝÃD

Sub Â^¨ú¸ê®Æ()
Dim ReTxt, i&, ARR, BRR(9), V As Currency, GetTime$
uTxtStr = ""
Call ¨ú±oºô­¶­ì©l½X: If uTxtStr = "" Then Exit Sub
'-----------------------------------------------------
GetStr = ""
ST1 = "href=""/q/bc?s=" & uRng & """>"
ST2 = "<a href=""/q/ts?s=" & uRng & """>¦¨¥æ©ú²Ó</a>"
GetStr = Â^¨ú¤å¦r½X(uTxtStr, ST1, ST2):  If GetStr = "" Then Exit Sub
ReTxt = Array("</td>", "", "</b>", "", "¡µ", "", "¡¾", "-", "¡¶", "", "¡¿", "-", ",", "", ">", String(20, " "))
For i = 0 To UBound(ReTxt) Step 2
    GetStr = Replace(GetStr, ReTxt(i), ReTxt(i + 1))
Next i
'-----------------------------------------------------
ARR = Split(GetStr, Chr(10))
For i = 0 To UBound(ARR)
    If i = 0 Then BRR(i) = Trim(Mid(Replace(ARR(i), "<", String(10, " ")), Len(uRng) + 1, 10))
    If i > 1 And i < 11 Then BRR(i - 1) = Trim(Right(ARR(i), 20))
Next
Range(uRng(1, 2), uRng(1, 11)).Value = BRR
'-----------------------------------------------------
ST1 = "<span class=""ssbodyw"">"
ST2 = "</span></div></td>"
GetTime = Â^¨ú¤å¦r½X(uTxtStr, ST1, ST2)
uRng(1, 12) = Time ' CDate(Mid(Left(GetTime, 16), 12))
End Sub
¸Õ¸Õ

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD