GBKEE

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

GBKEE

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

GBKEE

¦^´_ 5# c_c_lai
¤W¶ÇÀɮ׬ݬÝ

GBKEE

¦^´_ 7# c_c_lai
§AªºÀÉ®×2003¨S°ÝÃDªº,¶·½Ð2007,2010¨Ó¸Õ¸Õ¬Ý
(¥Ø«eµL½×¬O¤W¶Çªþ¥ó©Î¹Ï¤ù¡A³£¥²¶·¥t¥~¨Ï¥Î IE¡A·|¬O³o­ì¦]...)

GBKEE

¦^´_ 10# c_c_lai
¦ý¶Ç¦^ªº¥Ã»·¬O102/11/08³Ìªñ¤@¤ÑªÑ¥«ªº¸ê®Æ

GBKEE

¦^´_ 13# c_c_lai
¥i¯à¬O "¬d¸ß" ªº°ÝÃD
½Ð°Ýjava ªººô­¶¥i¥H§ìªº¤U¨Ó¶Ü¡H

1.     webURL = "URL; http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?input_date=" & YMD_day & "&login_btn=%ACd%B8%DF.dat"

½Æ»s¥N½X

GBKEE

¦^´_ 18# stillfish00
ÁÂÁÂÀ°¦£°£¿ù.
¦^´_ 19# c_c_lai
stillfish00 ¤wÀ°¦£°£¿ù

GBKEE

¦^´_ 22# joey0415
¤S¦h¤@­Óºô§}¥iweb¶×¤J,¤j¹Ù¼ö¯Pªº¥æ¬y.
¦ý¼Ó¥Dvesperlee,«o¤@ÂI¤ÏÀ³³£¨S¦³.(§Ú­Ì¬O«cÀY¾á¤l¤@ÀY¼öªº)

GBKEE

¦^´_ 31# jak

1. Option Explicit
   
2. Sub ExA()
   
3.     With ActiveSheet
   
4.         With .QueryTables.Add("URL;http://www.twse.com.tw/ch/trading/block/BFIAUU/BFIAUU.php?combination_choice=sub&cno=1&input_date=102/11/06", .[A1])
   
5.             .WebSelectionType = xlSpecifiedTables
   
6.             .WebFormatting = xlWebFormattingNone
   
7.             .WebTables = """data_table"""
   
8.             .WebPreFormattedTextToColumns = True
   
9.             .WebConsecutiveDelimitersAsOne = True
   
10.             .WebSingleBlockTextImport = False
    
11.             .WebDisableDateRecognition = False
    
12.             .WebDisableRedirections = False
    
13.             .Refresh BackgroundQuery:=False
    
14.         End With
    
15.     End With
    
16. End Sub
    
17. Sub ExB()
    
18.     With ActiveSheet
    
19.         With .QueryTables(1)
    
20.            ' .WebSelectionType = xlSpecifiedTables
    
21.            ' .WebFormatting = xlWebFormattingNone
    
22.            ' .WebTables = """data_table"""
    
23.            ' .WebPreFormattedTextToColumns = True
    
24.            ' .WebConsecutiveDelimitersAsOne = True
    
25.            ' .WebSingleBlockTextImport = False
    
26.            ' .WebDisableDateRecognition = False
    
27.            ' .WebDisableRedirections = False
    
28.             .Refresh BackgroundQuery:=False
    
29.         End With
    
30.     End With
    
31. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 33# joey0415
Sub ExA() ¬O·s¼W¤@­ÓQueryTable
Sub ExB() ¬O©µÄò³oQueryTable¤¤¬d¸ß,¤£¥²¤@ª½¥Î.QueryTables.Add,·|¦û¥Î¸ê·½