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

[µo°Ý] ¤W¥«ªÑ²¼¿Ä¸ê¿Ä¨é¾lÃBCSV¤U¸ü°ÝÃD

¦^´_ 8# GBKEE


    坂¤j
¬O§Úªº°ÝÃD
§Ú¬Q±ß¼õ©]§ä¨ì°ÝÃD ¸Ñ¨M¤F
ÁÂÁ§AªºÀ°¦£

TOP

¦^´_ 2# GBKEE


½Ð±Ðª©¤j ©M¦U¦ì¤j¤j..
³o¨â¤Ñµo²{­ì¨Ó§ì¿Ä¸ê¿Ä¨÷¾lÃB url ¤£¯à¥Î¤F...

­ì¨Óªº:  (¥H 2015/8/12¬°¨Ò)
http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201508/A11220150812MS.php?select2=MS&chk_date=104/08/12
¥i¥H¨ú±o "«H¥Î¥æ©ö²Î­p"³oÃþªº¸ê®Æ
¦ý³o¨â¤Ñ³o­Óurl ·|§ä¤£¨ì A11220150812MS.php

¦ý¬O¦pªG±N "MS" §ï¦¨ "01" (¿Ä¸ê¿Ä¨é·JÁ`(¤ôªd¤u·~)), ¤]´N¬O
http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201508/A1122015081201.php?select2=MS&chk_date=104/08/12
«h¥i¥H¥¿½T¨ú±o¤ôªdÃþªÑªº¸ê®Æ.

½Ð°Ý¦U¦ì¤j¤j¡A¸Ó¥Î­þºØ url ¨ú±o "«H¥Î¥æ©ö²Î­p" ³oÃþªº¸ê®Æ..
Thanks..

TOP

¦^´_ 12# hipper68

§A¸Õ¸Õ¬Ý¡AÀ³¸Ó¥i¦æ¡I
  1. Sub ex()

  2.     With CreateObject("internetexplorer.application")
  3.         .Visible = True
  4.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php"
  5.         Do Until .ReadyState = 4
  6.             DoEvents
  7.         Loop
  8.         
  9.         .Document.getElementById("date-field").Value = "104/08/12" '¶ñ¤J
  10.          
  11.         '---------¡A¤º«Øªºfireevent ªºonchange¥¢®Ä¡A§ï¥Î½Õ¥Îjsªº¤èªk--------
  12.         Set evt = .Document.createEvent("HTMLEvents")
  13.         evt.initEvent "change", True, False
  14.         Set lst = .Document.all("selectType") 'optionªºname¬OselectType¡A¦ýgetElementsByNameµLªk³B²z¡A­nall¤~¦æ
  15.         lst.selectedIndex = 0
  16.         lst.dispatchEvent evt
  17.    
  18.         .Document.all("query-button").Click


  19.          Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop

  20.         Application.Wait Now + TimeValue("00:00:5")
  21. '        Stop
  22.         
  23. '        For Z = 0 To 10
  24. '        MsgBox .Document.getElementsByTagName("table")(Z).innerText
  25. '        Next
  26.             Stop
  27.         Set hTable = .Document.getElementsByTagName("table")(3) '²Ä4­Ótable
  28. '        tt = hTable.Rows.Length
  29. '        qq = hTable.Rows(2).Cells.Length

  30.             With ActiveSheet
  31.                 For i = 1 To hTable.Rows.Length - 1 '«e3­Ó¬O¼ÐÃD»PªÅ¥Õ¸õ¹L
  32.                     For j = 0 To hTable.Rows(i).Cells.Length - 1
  33.                         .Cells(i, j + 1) = hTable.Rows(i).Cells(j).innerText
  34.                     Next
  35.                 Next
  36.             End With

  37.         .Quit
  38. '        MsgBox "OK"
  39.     End With
  40.    
  41. End Sub
½Æ»s¥N½X

TOP

¦^´_  pupai
¸Õ¸Õ¬Ý
GBKEE µoªí©ó 2014-8-13 13:02



    ½Ð°Ýª©¤j
¤W­zµ{¦¡8/11«eÁÙ¥i¥H¨Ï¥Î
8/12«á´N¤£¯à¥Î¤F
À°¦£­×¥¿
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD