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

[µo°Ý] 2014Âd¶R§ïª©

§Ú¤]¨Ó´ú¸Õ¤@¤U¡Aªº½T¥i¥Hwork!
¦ý¬O
.WebSelectionType = xlEntirePage
·|§ì¤Ó¦h¤£¥²­nªº¸ê®Æ
---------------------
Sub WEBQ()
' ¿³Âd­ÓªÑ¾ú¥v¦æ±¡

    Dim ptxt As String
    Dim yy, stock
    Sheet1.Activate
    If Sheet1.QueryTables.Count = 0 Then
        Sheet1.QueryTables.Add Connection:="URL;", Destination:=Range("A1:E1")
    End If
    'yy = InputBox("¿é¤J¬d¸ß¤ë¥÷", "°ê¦~/¤ë¥÷")
    yy = "103/02"
    If yy = "" Then Exit Sub
   
    'stock = InputBox("¿é¤JªÑ²¼¥N½X", "­ÓªÑ")
   '4990 ´¹¬ü
    stock = "4990"
    If stock = "" Then Exit Sub

    With Sheet1.QueryTables(1)
        .Connection = "URL;http://www.gretai.org.tw/ch/emergingstock/single_historical/history.php"
        .PreserveFormatting = False
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebDisableDateRecognition = True
        .PostText = "ajax=true&input_month=" & yy & "&input_emgstk_code=" & stock
        .Refresh BackgroundQuery:=False
    End With
'
End Sub
«Ü©êºp¡A§Ú¬O¤p¾Ç¥Í¡A¤£¯à¤U¸üÀɮסA¬O­Ó¤p§¾«Ä¡I

TOP

¦^´_ 3# stillfish00
¯uªº«Ü¼F®`¡A¹L¥h§Ú³£¬Ýºô­¶¤º®e©Ç¤£±o¤U¿ù°Ñ¼Æ¡A­ì¨Ó¬O­n[ÀË´úºô¸ô­n¨D]¡A¬d¬Ý[½Ð¨D¤º®e]­n³o¼Ë§ä¤~¯à§ä¨ì¯u¥¿ªº°Ñ¼Æ¡C
Thanks!:lol
«Ü©êºp¡A§Ú¬O¤p¾Ç¥Í¡A¤£¯à¤U¸üÀɮסA¬O­Ó¤p§¾«Ä¡I

TOP

¦^´_ 5# joey0415
ªGµM³£¬O¦æ®a¡A¥»¨Ó§ÚÁÙ¦b©ê«èµÛ¬°¤°»ò¤£»¡²M·¡¤@ÂI¡A­ì¨Ó¬O¦Û¤v¬O²Â©å¤£·|¥Îºô­¶¶}µo¤u¨ã¡Aªá¤F¤@ÂI®É¶¡¤~ºN¨ì¥ÛÀY¹Lªe¡A§A­Ì³£¬O§Úªº¦Ñ®v§r¡I
«Ü©êºp¡A§Ú¬O¤p¾Ç¥Í¡A¤£¯à¤U¸üÀɮסA¬O­Ó¤p§¾«Ä¡I

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD