ªð¦^¦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Åý§Ú°Ñ¦Òªº¸ê®Æ
½Ð«ü¾É
ÁÂÁÂ!!

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



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

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

¦^´_ 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

¦^´_ 8# GBKEE


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

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

¦^´_ 8# GBKEE


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

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

¦^´_ 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

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

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD