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

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

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

±z¦n
§Ú·Q¥ÎVBA¤U¸üºô¯¸ªº¨C¤Ñ"¿Ä¸ê¿Ä¨é·JÁ`(¤j½L²Î­p¸ê°T)"
http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811_1.php?select2=&chk_date=103/08/11

½Ð°Ý¥LªºURL¬O¤°»ò
©ÎªÌ¦³¤°»ò¥i¥HÅý§Ú°Ñ¦Òªº¸ê®Æ
½Ð«ü¾É
ÁÂÁÂ!!

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-8-12 17:25 ½s¿è

¦^´_ 1# pupai

20140811 «ü©wªº¤é´Á

http://www.twse.com.tw/ch/tradin ... A11220140811_1.php?
value=''>¥þ³¡ (¤j½L²Î­p¸ê°T) ¬O¿ù»~ªº »Ý§ï¬°  value='_1'>¥þ³¡

http://www.twse.com.tw/ch/tradin ... A11220140811MS.php?
value='MS'>«H¥Î¥æ©ö²Î­p

http://www.twse.com.tw/ch/tradin ... 2201408110099P.php?
value='0099P'>ETF

http://www.twse.com.tw/ch/tradin ... A1122014081101.php?
value='01'>¤ôªd¤u·~

value='02'>­¹«~¤u·~
value='22'>¥Í§ÞÂåÀø·~
......

ºô­¶­ì©l¤å¥ó,¤ÀÃþ¶µ¥Ø ªº value
  1. <option   value='MS'>«H¥Î¥æ©ö²Î­p</option><option  selected  value=''>¥þ³¡</option><option   value='0049'>«Ê³¬¦¡°òª÷</option><option   value='0099P'>ETF</option><option   value='019919T'>¨ü¯qÃÒ¨é</option><option   value='0999'>»{ÁÊÅvÃÒ</option><option   value='0999P'>»{°âÅvÃÒ</option><option   value='01'>¤ôªd¤u·~</option><option   value='02'>­¹«~¤u·~</option><option   value='03'>¶ì½¦¤u·~</option><option   value='04'>¯¼Â´ÅÖºû</option><option   value='05'>¹q¾÷¾÷±ñ</option><option   value='06'>¹q¾¹¹qÆl</option><option   value='07'>¤Æ¾Ç¥Í§ÞÂåÀø</option><option   value='21'>¤Æ¾Ç¤u·~</option><option   value='22'>¥Í§ÞÂåÀø·~</option><option   value='08'>¬Á¼þ³³²¡</option><option   value='09'>³y¯È¤u·~</option><option   value='10'>¿ûÅK¤u·~</option><option   value='11'>¾ó½¦¤u·~</option><option   value='12'>¨T¨®¤u·~</option><option   value='13'>¹q¤l¤u·~</option><option   value='24'>¥b¾ÉÅé·~</option><option   value='25'>¹q¸£¤Î¶gÃä³]³Æ·~</option><option   value='26'>¥ú¹q·~</option><option   value='27'>³q«Hºô¸ô·~</option><option   value='28'>¹q¤l¹s²Õ¥ó·~</option><option   value='29'>¹q¤l³q¸ô·~</option><option   value='30'>¸ê°TªA°È·~</option><option   value='31'>¨ä¥L¹q¤l·~</option><option   value='14'>«Ø§÷Àç³y</option><option   value='15'>¯è¹B·~</option><option   value='16'>Æ[¥ú¨Æ·~</option><option   value='17'>ª÷¿Ä«OÀI</option><option   value='18'>¶T©ö¦Ê³f</option><option   value='23'>ªo¹q¿U®ð·~</option><option   value='9299'>¦s°U¾ÌÃÒ</option><option   value='19'>ºî¦X</option><option   value='20'>¨ä¥L</option><option   value='CB'>¥iÂà´«¤½¥q¶Å</option>         
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ª©¥D±z¦n
§Ú¼gªºªF¦è¦³ÂI¦æ¤£³q
½ÐÀ°§Ú¬Ý¬Ý­×§ï
ÁÂÁÂ
  1. Sub ¤WÂd()
  2.       
  3.     Theurl = "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811_1.php"
  4.     With Workbooks.Open(Theurl)
  5.         AR = .Sheets(1).UsedRange
  6.         .Close False
  7.     End With
  8.     With ActiveSheet
  9.         Range("B:U").Select
  10.         Selection.ClearContents
  11.         '.UsedRange.Clear ¥þ³¡²M°£
  12.         .Range("B2").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
  13.    
  14.     End With
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# pupai
¸Õ¸Õ¬Ý ¥Îweb¬d¸ß
  1. Option Explicit
  2. Sub Ex()
  3.     With ActiveSheet
  4.         If .QueryTables.Count = 0 Then
  5.             With .QueryTables.Add("URL;about:Tabs", .[A1])
  6.             .Refresh BackgroundQuery:=False
  7.             End With
  8.         End If
  9.         With .QueryTables(1)
  10.             '¥þ³¡¤U¸ü¤[¤@ÂI
  11.             .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811_1.php"
  12.         
  13.             '.Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811MS.php?"
  14.         
  15.             .WebSelectionType = xlSpecifiedTables
  16.             .WebFormatting = xlWebFormattingNone
  17.             .WebTables = "10"
  18.             '³o¥þ³¡ªº­n¥Î   .WebTables = "10"
  19.             '¨ä¥L¶µ¥Øªº­n¥Î .WebTables = "8"
  20.             .WebPreFormattedTextToColumns = True
  21.             .WebConsecutiveDelimitersAsOne = True
  22.             .WebSingleBlockTextImport = False
  23.             .WebDisableDateRecognition = False
  24.             .WebDisableRedirections = False
  25.             .Refresh BackgroundQuery:=False
  26.         End With
  27.     End With
  28. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


    ·P®¦ª©¥Dªº¦^ÂÐ

¦pªG§Ú­n¥i¥H«ü©w¤é´Áªº¬d¸ß¥\¯à
½Ð°Ý§Ú­n¦p¦ó§e²{
ÁÂÁÂ!!

TOP

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ª©¥D
§Ú¥u¯à¼g³o¼Ë¡A¦ýµ{¦¡¦³¿ù
½ÐÀ°§Ú«ü¾É¤@¤U
ÁÂÁÂ!!
  1. Sub EX()
  2.      
  3.   Dim A As Date
  4.   Dim Sdate As Variant
  5.   
  6.   
  7.     A = Range("A1").Value
  8.     Sdate = Format(A, "E/MM/DD")
  9.      
  10.      
  11.      With ActiveSheet
  12.         If .QueryTables.Count = 0 Then
  13.             With .QueryTables.Add("URL;about:Tabs", .[B1])
  14.             .Refresh BackgroundQuery:=False
  15.             End With
  16.         End If
  17.         With .QueryTables(1)
  18.             '¥þ³¡¤U¸ü¤[¤@ÂI
  19.             .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report=" & Sdate / A112 = " & Sdate_1.php"
  20.         
  21.            
  22.         
  23.             .WebSelectionType = xlSpecifiedTables
  24.             .WebFormatting = xlWebFormattingNone
  25.             .WebTables = "10"
  26.             '³o¥þ³¡ªº­n¥Î   .WebTables = "10"
  27.             '¨ä¥L¶µ¥Øªº­n¥Î .WebTables = "8"
  28.             .WebPreFormattedTextToColumns = True
  29.             .WebConsecutiveDelimitersAsOne = True
  30.             .WebSingleBlockTextImport = False
  31.             .WebDisableDateRecognition = False
  32.             .WebDisableRedirections = False
  33.             .Refresh BackgroundQuery:=False
  34.         End With
  35.     End With
  36. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# pupai
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub EX()
  3.   Dim A As Date
  4.   Dim Rep_Ym As String
  5.   Dim Rep_Day As String
  6.     Range("A1") = "2011/12/20"   '¥Ü½dªº¤é´Á
  7.     A = Range("A1").Value
  8.     Rep_Ym = Format(A, "yyyyMM")
  9.     Rep_Day = Format(A, "yyyyMMDD")
  10.      With ActiveSheet
  11.         If .QueryTables.Count = 0 Then
  12.             With .QueryTables.Add("URL;about:Tabs", .[B1])
  13.             .Refresh BackgroundQuery:=False
  14.             End With
  15.         End If
  16.         With .QueryTables(1)
  17.             '¥þ³¡¤U¸ü¤[¤@ÂI
  18.             .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report" & Rep_Ym & "/A112" & Rep_Day & "_1.php"
  19.             .WebSelectionType = xlSpecifiedTables
  20.             .WebFormatting = xlWebFormattingNone
  21.             .WebTables = "10"
  22.             '³o¥þ³¡ªº­n¥Î   .WebTables = "10"
  23.             '¨ä¥L¶µ¥Øªº­n¥Î .WebTables = "8"
  24.             .WebPreFormattedTextToColumns = True
  25.             .WebConsecutiveDelimitersAsOne = True
  26.             .WebSingleBlockTextImport = False
  27.             .WebDisableDateRecognition = False
  28.             .WebDisableRedirections = False
  29.             .Refresh BackgroundQuery:=False
  30.         End With
  31.     End With
  32. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE


    ª©¥D·P®¦
ÁÂÁÂ

TOP

¦^´_ 8# GBKEE


      ½Ð°Ýª©¥D
³o­Óµ{¦¡¬°¤°»ò¤£¥i¥H¥Î¥¨¶°±Ò°Ê
´N¹³ Application.Run "¤u§@ªí1.EX" ³o¤@ºØ¤èªk
·|¥X²{°õ¦æ¶¥¬q¿ù»~"1004":
Run¤èªk('Application'ª«¥ó)¥¢±Ñ
¦ý¬O¦pªG³æ¿W¥ÎF8µ{¦¡¤SOK

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD