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

·Q­nÀu¤Æºô¸ôª¦¨ú¿ïªÑºô¯¸¸ê®Æ

·Q­nÀu¤Æºô¸ôª¦¨ú¿ïªÑºô¯¸¸ê®Æ

¤@ª½³£¬O¥Î Excel ¤º«Øªº Web ³s½u¥\¯à§ì¨úºô¯¸ªº¼Æ¾Ú¸ê®Æ
§â­nªº­ÓªÑ¦p2330
±q2021¦~1¤ë1¤é¨ì2021¦~7¤ë13¤éªºªk¤H¶R½æ¶W
§ó§ï¨é°Óªººô­¶
https://fubon-ebrokerdj.fbs.com.tw/z/zc/zcl/zcl.djhtm?a=2330&c=2021-1-1&d=2021-7-13
´N¯à§ì¨ì2330³o­Ó°Ï¶¡ªº¸ê®Æ
¥i¬Oª¦¥X¨Óªº¸ê®ÆÁ٫ܦh¬O§Ú¤£·Q­nªº¤å¦r¤ÎÄæ¦ì
³£­n¦A¸g¹Lµ{¦¡·j´M©ÎµÛ¹ï¸Óª¦¤U¨ÓªºÄæ©Î¦Cª½±µ§R°£
¤~·|³Ñ¤U§Ú·Q­nªº¸ê®Æ

¸Óºô­¶§Ú¯Âºé¥u­n
"¤é´Á"
"¥~¸êªº¶R½æ¶W"
"§ë«Hªº¶R½æ¶W"
"¥~¸êªº¦ô­p«ùªÑ"
"§ë«Hªº¦ô­p«ùªÑ"

¬O§_¦³¥i¯àª½±µ´N§ì¨ú³o¨ÇÄæ¦ì´N¦n?

¬Ý¤F¸Óºô­¶ªº­ì©l½X
view-source:https://fubon-ebrokerdj.fbs.com.tw/z/zc/zcl/zcl.djhtm?a=2330&c=2021-1-1&d=2021-7-13
¦b188¦æ¶}©l¦³¬Ý¨ì§Ú·Q­nªº¸ê®Æ
¦³¿ìªkª½±µ±q³o¶}©l§ì¨ú¶Ü??

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-14 17:15 ½s¿è

¦^´_ 1# vuptp6

¥x¿n¹q2330.zip (124.76 KB)

TOP

¥»©«³Ì«á¥Ñ quickfixer ©ó 2021-7-15 14:02 ½s¿è

¦^´_ 1# vuptp6

°õ¦ætest
    Sub test()
    Dim getxml As Object, url As String, temp, t As Double
    t = Timer
    Set getxml = CreateObject("msxml2.xmlhttp")
    url = "https://fubon-ebrokerdj.fbs.com.tw/Z/ZC/ZCL/CZCL3.DJBCD?A=2330&B=Y"
    getxml.Open "GET", url, False
    getxml.send
    temp = Split(getxml.responsetext, " ")
    Application.ScreenUpdating = False
    Cells.Clear
    For i = 1 To 5
    Call col(i, Split(temp(Choose(i, 0, 5, 6, 2, 3)), ","))
    Next i
    Set getxml = Nothing
    Range("f1") = Timer - t & "¬í"
    Application.ScreenUpdating = True

End Sub

Sub col(c, temp)
    r = 1
    For j = UBound(temp) To 0 Step -1
    r = r + 1
        If c = 1 Then Cells(r, c) = "'" & temp(j) Else Cells(r, c) = temp(j)
    Next j
End Sub

TOP

¦^´_ 2# singo1232001
¦^´_ 3# quickfixer


ÁÂÁÂsingo1232001¤Îquickfixer¨â¦ìªºÀ°§U
¦]¬°¥»¤H§Þ³N¤£°÷¯à¤O¤]¤£¨¬¹ê¦b¬Ý¤£À´¨â¦ì«e½ú¼gªº¤º®e(Ãø¹L)
»¡¹ê¦bªº¨ä¹ê¨C¤@¦æ³£¬Ý¤£À´
quickfixer±z¥i¥H¸ò§Ú»¡©úºô§}«ç»ò¥Ñ
https://fubon-ebrokerdj.fbs.com.tw/z/zc/zcl/zcl.djhtm?a=2330&c=2021-1-1&d=2021-7-13
Åܦ¨
https://fubon-ebrokerdj.fbs.com.tw/Z/ZC/ZCL/CZCL3.DJBCD?A=2330&B=Y

§Ú¬O¤£¬O­n©ñ±óºô¸ôª¦¸ê®Æ
¸ê®Æ®w¤Îºô­¶ªºª¾Ãѧڧ¹¥þ¨S¦³

TOP

¦^´_ 4# vuptp6

3BUcQDZ0oo.jpg
2021-7-15 15:40


¬O±q chrome F12 °l踨¨ìªº¸ê®Æ¨Ó·½ºô§}

¨C¤@¦æ³£¬Ý¤£À´,¨º§A¥i¯à­n±qvba¤Jªù¾Ç²ß,¥[ªo:)

TOP

¦^´_ 5# quickfixer

ÁÂÁ§A
vba§Ú¥u·|°ò¥»ªºÀx¦s®æªº±±¨î½Æ»sµ¥µ¥
±qºô­¶¡Bºô¸ô§ì¨ú§¹¥þ¤@¬¤£³q¬Æ»òjs,xhmalµ¥µ¥ªº
¤§«e³£¬O¥Î¿ý»s
¥i¬O§ì¨ú¤U¨Óªº®Ä²v¤£¤Ó¦n

¥t¥~´£°Ý
https://fubon-ebrokerdj.fbs.com.tw/Z/ZC/ZCL/CZCL3.DJBCD?A=2330&B=Y
³o­Óºô§}±q¸Ó¨é°Óªº¦øªA¾¹§ì¥X¨Óªº¸ê®Æ
§Ú«ç»ò§ï¤é´Á°Ï¶¡³£¬O±q110/01/13¶}©l
¨Ò¦p
https://fubon-ebrokerdj.fbs.com.tw/z/zc/zcl/zcl.djhtm?a=2330&c=2019-1-1&d=2019-12-31
¥L¤@¼Ë¬Oµ¹³o­Óºô§}
https://fubon-ebrokerdj.fbs.com.tw/Z/ZC/ZCL/CZCL3.DJBCD?A=2330&B=Y
¸ê®Æ¨Ã«D±q2019¦~(108)¶}©l

­Y¬O³o­Óºô­¶
https://stock.wearn.com/cdata.asp?Year=110&month=07&kind=2330
¦ü¥G¤£¯à®M¥Î¸Ó¤èªk
¯à§_«ü¾É¨ä¥L¤è¦¡Â^¨ú

TOP

¦^´_ 6# vuptp6


    Sub fubon()
   
    Dim URL As String, Html As Object, GetXml As Object, table, i As Integer, j As Integer, t As Double
    Cells.Clear
    t = Timer
    Application.ScreenUpdating = False
    Set Html = CreateObject("htmlfile")
    Set GetXml = CreateObject("msxml2.xmlhttp")
    URL = "https://fubon-ebrokerdj.fbs.com.tw/z/zc/zcl/zcl.djhtm?a=2330&c=2019-1-1&d=2019-12-31"
   
    With GetXml
        .Open "GET", URL, False
        .send
        Html.body.innerhtml = .responsetext
        Set table = Html.all.tags("table")(2).Rows
        For i = 1 To table.Length - 1
            For j = 0 To table(i).Cells.Length - 2
                Cells(i, j + 1) = Trim(table(i).Cells(j).innertext)
            Next j
        Next i
    End With
    Rows("1:5").Delete Shift:=xlUp
    Range("D:D,E:E,H:H,I:I,J:J").Delete Shift:=xlToLeft
    Application.ScreenUpdating = True
    Range("f1") = Timer - t & "¬í"
    Cells.Columns.AutoFit
    Set Html = Nothing
    Set GetXml = Nothing
        
End Sub


stock.wearn.com §ï2¦æ,§R°£¦CÄ椣­n,¶Ã½X¥Î¤å¦r»\¹L´N¦n,¨ä¾l¦P¤W

URL = "https://stock.wearn.com/cdata.asp?Year=110&month=07&kind=2330"
Set table = Html.all.tags("table")(0).Rows

TOP

¦^´_ 7# quickfixer


    stock.wearn.com º|§ï¤@¦æ
.Cells.Length - 2  §ï .Cells.Length - 1

TOP

¦^´_ 8# quickfixer


ÁÂÁÂ
¬Ý¼Ë¤lÁÙ¦³«Ü¦h­n¾Ç²ßªº
§Ú¦A¬ã¨s¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD