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

¦p¦ó§ó§ï??

¦p¦ó§ó§ï??

½Ð±Ð«e½ú!
¼Ó¤Uªºµ{¦¡­n¦p¦ó§ï¤~¯à§ì©¹«e5­Ó¤ëªº¸ê®Æ,¥B¨C­Ó¤ëªº¸ê®Æ³£¯à¥ô·N§ó§ï¶K¹Ïªº¦ì¸m
Sub WEBQYT()
    Dim ptxt As String
    Dim yy, mm, stock
    Sheet1.Activate
    If Sheet1.QueryTables.Count = 0 Then
        Sheet1.QueryTables.Add Connection:="URL;", Destination:=Range("A1")
    End If
    yy = InputBox("¿é¤J¬d¸ß¡u¦è¤¸¡v¦~¥÷", "¤WÂdªÑ²¼ - ­ÓªÑ¤é¦¨¥æ¸ê°T")
    If yy = "" Then Exit Sub
    mm = InputBox("¿é¤J¬d¸ß¤ë¥÷", "¤WÂdªÑ²¼ - ­ÓªÑ¤é¦¨¥æ¸ê°T")
    If mm = "" Then Exit Sub
    stock = InputBox("¿é¤JªÑ²¼¥N½X", "¤WÂdªÑ²¼ - ­ÓªÑ¤é¦¨¥æ¸ê°T")
    If stock = "" Then Exit Sub
    With Sheet1.QueryTables(1)
        .Connection = "URL;http://www.otc.org.tw/ch/stock/aftertrading/daily_trading_info/result_st43.php"
        .PreserveFormatting = False
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebDisableDateRecognition = True
        .PostText = "ajax=true&yy=" & yy & "&mm=" & mm & "&input_stock_code=" & stock
        .Refresh False
    End With
End Sub

¦^´_ 1# ddhh4053


    ³Â·Ð¼ÐÃD½Ð¥´¦n
±z³o¼Ë¥´½Öª¾¹D¦b°Ý¬Æ»ò

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

0 0 sorry ¦]¬°¼ÐÃD«ÜÃø¸Ô­z!!

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD