¤U¸üªí®æªº°ÝÃD

chenshinhui

¦U¦ì¤j¤j
·Q­n¤U¸ü¦p¤Uºô§}¿é¤JªÑ²¼¥N¸¹«áªºªí®æ¸ê®Æ
¦]§ä¤£¨ìªí®æªºid¡A©Ò¥H·Q½Ð±Ð¦U¦ì¤j¤j¦³¦ó
ºØ¤è¦¡¥i¥H¤U¸üªí®æ¡A¦A½Ð¦U¦ì¤j¤jÀ°¦£¡AÁÂ
Á¡C
ºô§}¡Ghttp://www.twse.com.tw/ch/trading/exchange/FMNPTK/FMNPTKMAIN.php

µ{¦¡½X¦p¤U¡G


Sub ¦~½u()
    Dim A As Object, E As Object
    With CreateObject("InternetExplorer.Application")
        .Visible = True
         .Navigate "http://www.twse.com.tw/ch/trading/exchange/FMNPTK/FMNPTKMAIN.php"
        Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
           For Each A In .document.getelementSbyTAGNAME("INPUT")
                 If A.Name = "CO_ID" Then A.Value = ActiveSheet.Range("A1")
                 If A.Value = "¬d¸ß" Then A.Click
            Next
            Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
            Cells.Clear
                    .ExecWB 17, 2
                    .ExecWB 12, 2
                    With ActiveSheet
                        .UsedRange.Offset(1).Clear
                        .Cells(2, 1).Select
                        .PasteSpecial Format:="HTML"
                    End With
                .Quit
    End With
End Sub