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

[µo°Ý] ¤U¸ü°ÝÃD

[µo°Ý] ¤U¸ü°ÝÃD

¥»©«³Ì«á¥Ñ spermbank ©ó 2013-9-6 10:32 ½s¿è

¤j®a¦n:
     §Ú·Q¤U¸ü¦pºô§}http://newmis.twse.com.tw/stock/fibest.jsp?stock=1101ªº³Ì¨Î¤­ÀÉ»ù¶q¸ê°T´¦¥Ü¡C
     ¦]¬°¨Ï¥Î¹Lexcel±qºô¯¸¨ú±o¥~³¡¸ê®Æªº¥\¯à¡A¦ý¬OµLªkŪ¨ú¡A¤£ª¾¹D¬O¤°»ò°ÝÃD¡C

    ©Ò¥H·Q»¡¬O§_¥i¥H¦b¤À­¶¿ï¨úªÑ¸¹¦WºÙ¡A±Ò°Ê¥¨¶°¡A¦A±q¦p¤Wºô§}±N¥Ø«e®É¶¡©Ò´¦¥Üªº³Ì¨Î¤­ÀÉ»ù¶q¸ê°T¡AÀx¦s¦¨csvÀÉ¡A¨Ã±N¶R¶i¡B½æ¥X¼Æ¶q¥[Á`¡AÅã¥Ü©ó¤À­¶¤¤©O?
    ÁÂÁ¡C

¥»©«³Ì«á¥Ñ spermbank ©ó 2013-9-6 14:15 ½s¿è

¦^´_ 2# GBKEE


    ·PÁÂG¤j¡A¦ý¬O§Úµo²{­Ó°ÝÃD¡A¦]¬°³o­Óºô¯¸¶}±Ò«á¡A·|Ū¨ú§Y®É¸ê®Æ¡A­Yª½±µ°õ¦æ¥¨¶°¡A³t«×¹L§Ö¡A·|µo¥Í""µLªk¨C¦¸""¸ê®Æ§¹¥þ½Æ»s¦Ü¤À­¶
    §Ú§Q¥ÎApplication.Wait Now + TimeValue("00:00:02")¨Ó¨Ïºô§}°±¯d2¬íµ¥«Ýºô­¶¸ê®ÆŪ¤J¸ê®Æ¦A½Æ»s¦Ü¤À­¶¡AÁöµM¥i¥H´£°ª¤@ÂI¸ê®Æ§¹¥þ½Æ»s
    ¥i¬OÁÙ¬O¦³®ÉµLªk§¹¥þŪ¨ì¡A¬O§_¦³¤°»ò§PÂ_¤è¦¡¡AÁÙ¬O­þÃ䦳°ÝÃD©O?ÁÂÁ¡C
   
    ­Y¬O¥ÎGoogle Chrome¬O§âInternetExplorer.Application§ï¦¨¤°»ò©O?
    ºô­¶¬O§_¤£­nÅã¥Ü´N½Æ»s¦Ü¤À­¶©O? ÁÂÁ¡C

TOP

¦^´_ 4# GBKEE

Option Explicit
Sub °ò¥»¥«ªp³ø¾Éºô¯¸()
    Sheets("¤u§@ªí3").Select
    Dim xlVbTable(1 To 2) As Object, R As Integer, C As Integer, i As Variant, Y As Integer
    With CreateObject("InternetExplorer.Application")
        .Visible = True
       .Navigate "http://newmis.twse.com.tw/stock/fibest.jsp?stock=5490"
        Application.Wait Now + TimeValue("00:00:02")
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
        Set xlVbTable(1) = .Document.getElementById("hor-minimalist-a")
        Set xlVbTable(2) = .Document.getElementById("hor-minimalist-b")
        On Error Resume Next
        With ActiveSheet
            .Cells.Clear
            Y = 1
            For i = 1 To 2
                For R = 0 To xlVbTable(i).Rows.Length - 1
                    For C = 0 To xlVbTable(i).Rows(R).all.Length - 1
                        .Cells(Y, C + 1) = xlVbTable(i).Rows(R).Cells(C).innertext
                    Next
                    Y = Y + 1
                Next
            Next
        End With
       .Quit
    End With
End Sub

TOP

¦^´_ 5# spermbank


    ­Y¬O¥ÎGoogle Chrome¬O§âInternetExplorer.Application§ï¦¨¤°»ò©O?
    ºô­¶¬O§_¤£­nÅã¥Ü´N½Æ»s¦Ü¤À­¶©O? ÁÂÁ¡C

TOP

¥»©«³Ì«á¥Ñ spermbank ©ó 2013-9-6 15:13 ½s¿è

¦^´_ 7# GBKEE


G¤j±z¦n:
     ¤j·§´N¬O¦pªþ¥ó¨â±i¹Ï¤ù©Ò¥Ü(Ū¤£¨ìªº±¡ªp¤£¤@©w)¡C
     ¥t¥~ºô­¶·|¶]¥X¨Ó¯àÁôÂöÜ? ÁÂÁ¡C
     
     §ï¦¨¶}±Òºô­¶¦h2¬í¡A¯à°÷§¹¾ã½Æ»s¾÷²vÅÜ90%¥H¤W¡A¦ý¬O³t«×¤WºC2¬í¤]¤£¯à§¹¥þ¸Ñ¨M°ÝÃD¡C

1.PNG (8.15 KB)

1.PNG

2.PNG (9.47 KB)

2.PNG

TOP

¦^´_ 10# GBKEE


     G¤j¦A½Ð°Ý¤@¤U:
     ¦]¬°¤@¦¸¥u¯à¶}±Ò¤@­Óºô§}´N¥²¶·µ¥«Ý2¬í¡A¥i¤£¥i¥H¤@¦¸¶}±ÒX­Óºô§}¦Aµ¥«Ý2¬í©O?
     ³o¼Ë´N¥i¥H¤@¦¸¸Ñ¨MX­Ó¡A¥uªáB¬í¡C

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD