oobird

À£ÁY¦¨rar©Îzip®æ¦¡¤~¥i¤W¶Ç¡C

oobird

¨Ì§A²{¦³¥N½X¡A¥[¤W´`Àô´N¦æ¤F¡C
¦¹¨Ò¨ú±o¤µ¦~ªº¸ê®Æ¡G

1. Sub Macro1()
   
2.     d = DateValue("2011/10/17")
   
3.     i = 3
   
4.     Do
   
5.         dt = Application.Text(d, "yyyy/mm/dd")
   
6.         Set s = Sheet2
   
7.         s.UsedRange.Clear
   
8.         With s.QueryTables.Add(Connection:= _
   
9.                                "URL;http://www.trademag.org.tw/ExchangeRate.asp?vdate=" & dt, _
   
10.                                Destination:=s.Range("$A$1"))
    
11.             .Name = "17"
    
12.             .FieldNames = True
    
13.             .RowNumbers = False
    
14.             .FillAdjacentFormulas = False
    
15.             .PreserveFormatting = True
    
16.             .RefreshOnFileOpen = False
    
17.             .BackgroundQuery = True
    
18.             .RefreshStyle = xlInsertDeleteCells
    
19.             .SavePassword = False
    
20.             .SaveData = True
    
21.             .AdjustColumnWidth = True
    
22.             .RefreshPeriod = 0
    
23.             .WebSelectionType = xlSpecifiedTables
    
24.             .WebFormatting = xlWebFormattingNone
    
25.             .WebTables = "2"
    
26.             .WebPreFormattedTextToColumns = True
    
27.             .WebConsecutiveDelimitersAsOne = True
    
28.             .WebSingleBlockTextImport = False
    
29.             .WebDisableDateRecognition = False
    
30.             .WebDisableRedirections = False
    
31.             .Refresh BackgroundQuery:=False
    
32.         End With
    
33.         With Sheet1
    
34.             For j = s.[iv3].End(1).Column To 3 Step -1
    
35.                 a = s.Cells(3, j).Resize(41, 1).Value
    
36.                 .Cells(i, 2) = s.Cells(1, j)
    
37.                 .Cells(i, 3).Resize(1, 41) = Application.Transpose(a)
    
38.                 i = i + 1
    
39.             Next
    
40.         End With
    
41.         d = d - 7
    
42.     Loop Until Year(d) < 2011
    
43. End Sub

½Æ»s¥N½X

oobird

³o¥u¬OÀ³§Aªº­n¨D­×§ï§Aªºµ{¦¡
¹F¨ì¨ú¾ú¥v°O¿ýªº¥Øªº
¨ä¹ê¸Óµ{¦¡¥u­n¶]¤@¹M¡A¥H«á´N¥Î¤£¨ì¤F
¥H«áªº¥u­n¨C­Ó¬P´Á§ó·s¤@¦¸¡A§â¥Ø«e½d©¹¤U²¾¡A¦b«e´X¦æ¼g¤J·sªº¼Æ¾Ú
³o¤S¬O¥t¤@­Ó¤£¦Pªºµ{¦¡¡C
¤£¥²¨C¦¸§ó·s³£­n¥þµ{¶]¤@¹Mªº¡I

oobird

ºô­¶§A¨S¬Ý¶Ü¡H¬P´Á6¡B¤é¥»´N¨S¦³¸ê®Æªº¡C

oobird

s.UsedRange.Clear  
s¬Osheet2
²MªÅsheet2ªº¨Ï¥Î½d³ò¡A¥H«K¼g¤J·sªº¤@µ§¸ê®Æ§r¡C   
   [iv3]¬O¬Æ»ò?

´N¬OÀx¦s®æiv3  
s.[iv3].End(1).Column To 3 Step -1  
ªí¥Üsheet2±qiv3©¹¥ªªº²Ä¤@­Ó¦³¸ê®ÆªºÄ渹¨ì3ªº¤Ï¦V´`Àô