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

¤WÂdªÑ²¼¿Ä¸ê¿Ä¨é¾lÃBCSV¤U¸ü°ÝÃD

¤WÂd½L«á¸ê®ÆCSV¤U¸ü°ÝÃD

¦U¦ì¤j¤j±z¦n:½Ð°Ý
ºô§}http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade.php
¦p¦ó¦bºô§}¦C¿é¤Jºô§}¤À§O¤U¸ü¤é³øªí.©P³øªí.¤ë³øªíCSV
¦³°Ñ¦Òhttp://forum.twbts.com/thread-11030-1-1.html³o½g
http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade_download.php?d=102/12/31³o¼Ë¤£¦æ
¤£ª¾¹DÁÙ­n¤À§O¥[¤J¤°»ò¤~¯à¤U¸ü¤é³øªí.©P³øªí.¤ë³øªíCSV
½Ð¤j¤j«ü±Ð ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-1-2 11:23 ½s¿è

¦^´_ 1# jerrystock

http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade_download.php?t=D&d=102/12/31&s=0
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

«D±`·PÁÂGBKEE¤j¤j§Ö³t¦a¸Ñ¨M§ÚªººÃ°ÝÁÂÁ±z

TOP

¤WÂdªÑ²¼¿Ä¸ê¿Ä¨é¾lÃBCSV¤U¸ü°ÝÃD

¦U¦ì¤j¤j±z¦n:½Ð°Ý
¤WÂdªÑ²¼¿Ä¸ê¿Ä¨é¾lÃBCSV¤U¸ü :
ºô§}:http://www.otc.org.tw/ch/stock/margin_trading/margin_balance/margin_bal.php

¥H:http://www.otc.org.tw/ch/stock/margin_trading/margin_balance/margin_bal_download.php?d=103/01/03&s=0,asc,1

²£¥Í¤U±¡ªp
¥N¸¹,  ¦WºÙ,  «e¸ê¾lÃB(±i),  ¸ê¶R,  ¸ê½æ,  ²{Àv,  ¸ê¾lÃB,  ¸êÄÝÃÒª÷, ¸ê¨Ï¥Î²v(%), ¸ê­­ÃB,,  ¨é¾lÃB,  ¨éÄÝÃÒª÷,  ¨é¨Ï¥Î²v(%), ¨é­­ÃB,  ¸ê¨é¬Û©è(±i),  ³Æµù
1259  ,"¦w¤ß","303","2","0","0","305","6","3.77","8,097","0","0","0","0","0","0","0.0","8,097","0","1     C    "                                                                       
1333  ,"®¦±o§Q","0","0","0","0","0","0","0.0","21,275","0","0","0","0","0","0","0.0","21,275","0"," OX        "                                                                       

½Ð¤j¤j«ü±Ð ÁÂÁÂ

¦^´_ 4# tsuneng
  1. Option Explicit
  2. Sub Ex()
  3.    Workbooks.Open Filename:="http://www.otc.org.tw/ch/stock/margin_trading/margin_balance/margin_bal_download.php?d=103/01/03&s=0"
  4. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁ¤j¤j ¦^À³!
¦]§Ú¬O¥Ñºô¤W¦Û¾ÇVBA , ¬GªF«÷¦è´ê, ¥i§_½Ð¤j¤j«ü±Ð, §Ú¤U¦Cµ{¦¡¿ù»~¦a¤è

' ¤WÂdªÑ²¼¿Ä¸ê¿Ä¨é¾lÃB
Theurl = "http://www.otc.org.tw/ch/stock/margin_trading/margin_balance/margin_bal_download.php?d=" & Sdate & "&s=0"

   With ActiveSheet.QueryTables.Add(Connection:="URL;" & Theurl, Destination:=Range("b1"))
            .BackgroundQuery = True
            .RefreshStyle = xlOverwriteCells
            .RefreshPeriod = 0
            .AdjustColumnWidth = False
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "1,2,3,4"
            .WebDisableDateRecognition = True         'Ãö³¬¤é´Á¿ëÃÑ
            .Refresh BackgroundQuery:=False
            .Delete

End With

·|¥X²{
1259  ,"¦w¤ß","303","2","0","0","305","6","3.77","8,097","0","0","0","0","0","0","0.0","8,097","0","1     C    "

½Ð¤j¤j«ü±Ð ÁÂÁÂ

TOP

¦^´_ 6# tsuneng

¸Õ¥Î¸ê®Æ­åªR¬Ý¬Ý

TOP

¦^´_ 6# tsuneng
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Theurl As String, Sdate
  4.     Theurl = "http://www.otc.org.tw/ch/stock/margin_trading/margin_balance/margin_bal_download.php?d=" & Sdate & "&s=0"
  5.     With ActiveSheet.QueryTables.Add(Connection:="URL;" & Theurl, Destination:=Range("b1"))
  6.         .BackgroundQuery = True
  7.         .RefreshStyle = xlOverwriteCells
  8.         .RefreshPeriod = 0
  9.         .AdjustColumnWidth = False
  10.         .WebSelectionType = xlSpecifiedTables
  11.         .WebFormatting = xlWebFormattingNone
  12.         '.WebTables = "1,2,3,4"
  13.         .WebDisableDateRecognition = True         'Ãö³¬¤é´Á¿ëÃÑ
  14.         .Refresh BackgroundQuery:=False
  15.         .ResultRange.Columns(1).TextToColumns Destination:=.ResultRange.Cells(1), DataType:=xlDelimited, _
  16.                 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
  17.                 Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
  18.                 :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
  19.                 Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
  20.                 ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
  21.                 (20, 1)), TrailingMinusNumbers:=True
  22.             'TextToColumns ¤èªk (¸ê®Æ­åªR)ªº°Ñ¼Æ¥i¿ý»s±o¨ì
  23.             'ResultRange.Columns(1):weby¸ê®Æªº²Ä¤@Äæ
  24.             'ResultRange.Cells(1)  :weby¸ê®Æªº²Ä¤@­ÓCells(Àx¦s®æ)
  25.             .Delete
  26.     End With
  27. End Sub
  28. Sub Ex1()
  29.     Dim Theurl As String, Sdate, AR
  30.     Sdate = "103/01/03"
  31.     Theurl = "http://www.otc.org.tw/ch/stock/margin_trading/margin_balance/margin_bal_download.php?d=" & Sdate & "&s=0"
  32.     With Workbooks.Open(Theurl)
  33.         AR = .Sheets(1).UsedRange
  34.         .Close False
  35.     End With
  36.     With ActiveSheet
  37.         .UsedRange.Clear
  38.         .Range("A1").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
  39.    
  40.     End With
  41. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·P®¦!! ¾Ç²ß¤¤

TOP

¦^´_ 5# GBKEE


      ½Ð°Ýª©¥D
§Ú±N¤W­zºô§}´«¦¨ http://www.otc.org.tw/ch/stock/3insti/DAILY_TradE/3itrade_download.php?t=D&d=102/12/31&s=0 ³o¤@¬q
µ²ªG¥u¤U¸ü¤FªíÀY¡A¨S¦³¤U¸ü¸ê®Æ¤º®e
½Ð°Ý¸Ó¦p¦ó­×§ï
ÁÂÁÂ!!

TOP

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