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

¦³ÃöEXCEL VBA §ì¨ú¤£¨ì§¹¾ãºô§}CSV°ÝÃD

½Ð±Ð¦p¦ó¹B¥Î VBA §â ºô¸ô*.csv ªºÀɮפU¸ü¨ìEXCELªºªí®æùØ¡H

½Ð±Ð¦p¦ó¹B¥Î VBA §â
  ¯S©w¤é´Áªº  ¹dÃB¥æ©ö¤é¦¨¥æ¸ê°T -  ¸ê®Æ
¤U¸ü¨ìEXCELªºªí®æùØ¡H
°Ñ¦Òºô§}¡G
http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php





½Ð±Ð°ÝÃD102.11.8.rar (17.84 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-9 17:13 ½s¿è

¦^´_ 1# vesperlee
URL; http://www.twse.com.tw/ ¦h¥X¤@ªÅ®æ¤£¾A¥Î2003«áªº·sª©¥»,
ÁÂÁÂstillfish00À°¦£°£¿ù,¤w§ó¥¿¬° URL;http://www.twse.com.tw/
  1. Option Explicit
  2. Sub TEXT_102()
  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"))  
  5.     With Sheets("¤U¸ü¸ê®Æ")
  6.         For Each N In .Names
  7.             N.Delete
  8.         Next
  9.         .Cells.Clear
  10.        'GetData_URL = "http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?edition=ch&filename=genpage/A" & YMD_day & ".dat&type=csv"
  11.         webURL = "URL;http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=¬d¸ß.dat"
  12.         With .QueryTables.Add(Connection:=webURL, Destination:=.Range("A1"))
  13.             .WebSelectionType = xlSpecifiedTables
  14.             .WebFormatting = xlWebFormattingNone
  15.             .WebTables = "data_table"
  16.             .WebPreFormattedTextToColumns = True
  17.             .WebConsecutiveDelimitersAsOne = False
  18.             .WebSingleBlockTextImport = False
  19.             .WebDisableDateRecognition = False
  20.             .WebDisableRedirections = True
  21.             .Refresh BackgroundQuery:=False
  22.         End With
  23.     End With
  24. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

°õ¦æ¨ì .Refresh BackgroundQuery:=False «K¥X²{ 1004 ªº¿ù»~°T®§¡C
½Ð±Ð±z¡A³o·|¬O¬Æ»òª¬ªp¡H

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-9 11:10 ½s¿è

¦^´_ 3# c_c_lai
¤Ö¤F¤@ÂI .Range("A1"),ÁÂÁ§Aªº´ú¸Õ.(2#ªºµ{¦¡½X¤w¥[¤W¤@ÂI¤F)
¦]¬°§@¥Î¤¤ªº¤u§@ªí¤£¬OSheets("¤U¸ü¸ê®Æ")®É,¤Ö¤F¤@ÂI´N¬O§@¥Î¤¤ªº¤u§@ªíªºRange("A1")
  1. With .QueryTables.Add(Connection:=webURL, Destination:=.Range("A1"))
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-11-9 11:31 ½s¿è
¦^´_  c_c_lai
¤Ö¤F¤@ÂI .Range("A1"),ÁÂÁ§Aªº´ú¸Õ.(2#ªºµ{¦¡½X¤w¥[¤W¤@ÂI¤F)
¦]¬°§@¥Î¤¤ªº¤u§@ªí¤£¬OS ...
GBKEE µoªí©ó 2013-11-9 11:00

¤§«e§Ú¥ç¥[¤W¤F¤@ "."¡A ÁÙ¬O¤@¼Ëªºµ²ªG¡C
Destination:=.Range("A1")
§Ú¤]¬O¦b§ä­ì¦]¡C ¦b 2003  ¯à°õ¦æ¶Ü¡H

TOP

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

TOP

¦^´_ 6# GBKEE
¬¡­¶Ã¯1.rar (9.73 KB)
¥Ø«eµL½×¬O¤W¶Çªþ¥ó©Î¹Ï¤ù¡A³£¥²¶·¥t¥~¨Ï¥Î IE¡A
µLªk¦b FireFox ¤º°õ¦æ¡A«D±`¦a¤£¤è«K¡A§Ú¤]¸ò
¤p»xª©¥D´£¹L¡AÁÙ¬OµLªk¤W²î¡AÆZ§xÂZªº¡C

TOP

Sub TEXT_102()
    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"))
    With Sheets("¤U¸ü¸ê®Æ")
       For Each N In .Names
            'N.Delete
       Next
        .Cells.Clear
       GetData_URL = "URL;http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?edition=ch&filename=genpage/A" & YMD_day & ".dat&type=csv"
        'webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=¬d¸ß.dat"
        With .QueryTables.Add(Connection:=GetData_URL, Destination:=.Range("A1"))
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "data_table"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = False
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = True
            .Refresh BackgroundQuery:=False
        End With
    End With
End Sub

TOP

¦^´_ 7# c_c_lai
§AªºÀÉ®×2003¨S°ÝÃDªº,¶·½Ð2007,2010¨Ó¸Õ¸Õ¬Ý
(¥Ø«eµL½×¬O¤W¶Çªþ¥ó©Î¹Ï¤ù¡A³£¥²¶·¥t¥~¨Ï¥Î IE¡A·|¬O³o­ì¦]...)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE
À³¥Î #8 ªº GetData_URL «K OK ¤F¡C
  1.         GetData_URL = "URL;http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?edition= _
  2.                                                                                      ch&filename=genpage/A" & YMD_day & ".dat&type=csv"
  3.         '  webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date= _
  4.                                                                                     " &  YMD_day & "&login_btn=¬d¸ß.dat"
½Æ»s¥N½X
¤º®e¬O¦³¨Ç·L¤£¦P¡A´N¬O¤£¬Æ¤F¸Ñ¥¦ªº¹ê½è®M¥Î¡B¤Î¦p¦óÀ³¥Î¡C

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD