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

[µo°Ý] CreateObject("InternetExplorer.Application") °õ¦æ§¹¦³®É·|µLªk¸õ¥X??

¤é´Á§ï¬°1/8 ·|Åܦ¨¨â­Ó¸ê®Æ®Ø(³£»Ý­n¶×¤J)
²Ä¤@­Ó¶×¥X·|Åܦ¨1/9 (·í¤é)(¤µ¤é¸ê®Æ±ß¤W¤~·|update)
²Ä ...
t8899 µoªí©ó 2014-1-9 14:37

½Ð±Ð¤@¤U
1 ==> webURL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php

2 ==>  With CreateObject("InternetExplorer.Application")
   .Navigate "http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"

1,2¦³¦ó¤£¦P?? ²Ä¤G­Ó¥i¥H¥Î§ï¥Î²Ä¤@­Ó¤èªk ??

TOP

¦^´_ 6# t8899

¦bwith ¸Ì­±¥[¤W .AdjustColumnWidth = False¡A´N¦n¤F¡A¥i¥H¦Û¤v¥Î¿ý»s¥¨¶°¬Ý¬Ý¿ý¥X¤°»òµ{¦¡½X


Option Explicit
Sub TWSE_¥æ©ö¸ê°T()
    Dim YMD_day As String, N As Name, webURL As String
    YMD_day = InputBox("¿é¤J ¥Á°ê¦~«× : 102/10/07", "¤U¸ü¯S©w¤é´Áªº¸ê®Æ", Format(Date - 1, "E/MM/DD")) '¥Á°ê¦~«× "102/10/07"
    With ActiveSheet  '¥i«ü©w¤u§@ªí
        '·í¤é¨R¾P¥æ©ö¼Ðªº¤Î²Î­p
        webURL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php?input_date=" & YMD_day & "&login_btn=¬d¸ß.dat"
        '¹dÃB¥æ©ö¤é¦¨¥æ¸ê°T
        'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=¬d¸ß.dat"
        'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=%ACd%B8%DF.dat"
        If .QueryTables.Count = 0 Then
            .QueryTables.Add Connection:=webURL, Destination:=.Range("A1")
        Else
            .QueryTables(1).Connection = webURL
        End If
        .Cells.Clear
        With .QueryTables(1)
            .AdjustColumnWidth = False
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
           ' .WebTables = "data_table"  '¹dÃB¥æ©ö¤é¦¨¥æ¸ê°T     :¸ê®Æ¶×¤JªºTables
            .WebTables = "9,11"         '·í¤é¨R¾P¥æ©ö¼Ðªº¤Î²Î­p :¸ê®Æ¶×¤JªºTables
            .Refresh BackgroundQuery:=False
        End With
    End With
End Sub

TOP

¦^´_  t8899
GBKEE µoªí©ó 2014-1-9 15:43

¦A½Ð±Ð¤@¤U¡A¦p¦ó¤£­n¦Û°Ê½Õ¾ãÄæ¼e??

TOP

¦^´_  t8899
GBKEE µoªí©ó 2014-1-9 15:43


±z¤]§â¹dÃB¥æ©ö¤é¦¨¥æ¸ê°T¤]©ñ¶i¨Ó, ÁÂÁÂ

TOP

¦^´_ 3# t8899
  1. Option Explicit
  2. Sub TWSE_¥æ©ö¸ê°T()
  3.     Dim YMD_day As String, N As Name, webURL As String
  4.     YMD_day = InputBox("¿é¤J ¥Á°ê¦~«× : 102/10/07", "¤U¸ü¯S©w¤é´Áªº¸ê®Æ", Format(Date - 1, "E/MM/DD")) '¥Á°ê¦~«× "102/10/07"
  5.     With ActiveSheet  '¥i«ü©w¤u§@ªí
  6.         '·í¤é¨R¾P¥æ©ö¼Ðªº¤Î²Î­p
  7.         webURL = "URL;http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php?input_date=" & YMD_day & "&login_btn=¬d¸ß.dat"
  8.         '¹dÃB¥æ©ö¤é¦¨¥æ¸ê°T
  9.         'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=¬d¸ß.dat"
  10.         'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=%ACd%B8%DF.dat"
  11.         If .QueryTables.Count = 0 Then
  12.             .QueryTables.Add Connection:=webURL, Destination:=.Range("A1")
  13.         Else
  14.             .QueryTables(1).Connection = webURL
  15.         End If
  16.         .Cells.Clear
  17.         With .QueryTables(1)
  18.             .WebSelectionType = xlSpecifiedTables
  19.             .WebFormatting = xlWebFormattingNone
  20.            ' .WebTables = "data_table"  '¹dÃB¥æ©ö¤é¦¨¥æ¸ê°T     :¸ê®Æ¶×¤JªºTables
  21.             .WebTables = "9,11"         '·í¤é¨R¾P¥æ©ö¼Ðªº¤Î²Î­p :¸ê®Æ¶×¤JªºTables
  22.             .Refresh BackgroundQuery:=False
  23.         End With
  24.     End With
  25. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  t8899

ªí®æ¤¤«ö¤U·Æ¹«¥kÁä
GBKEE µoªí©ó 2014-1-9 09:08


¤é´Á§ï¬°1/8 ·|Åܦ¨¨â­Ó¸ê®Æ®Ø(³£»Ý­n¶×¤J)
²Ä¤@­Ó¶×¥X·|Åܦ¨1/9 (·í¤é)(¤µ¤é¸ê®Æ±ß¤W¤~·|update)
²Ä¤G­Ó¶×¥X·|Åܦ¨"¦¹web¨S¦³¶Ç¦^¸ê®Æ............"

TOP

¦^´_ 1# t8899

ªí®æ¤¤«ö¤U·Æ¹«¥kÁä

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

TOP

¦³µL¿ìªk±N¦¹ºô­¶¶×¤JEXCEL ??

¥»©«³Ì«á¥Ñ t8899 ©ó 2014-1-9 07:31 ½s¿è

http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php  (ºô¯¸·í¤Ñ¸ê®Æ¤j¬ù21:00·|§ó·s)

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD