³\·ç²»

§Aªºµ{¦¡½X¬O¤£¬O¨S¦³½Æ»s§¹¾ã  «ç»ò·|¨S¦³²Ä¤@¦æ "sub"

³\·ç²»

¦^´_ 1# 518587

1. Sub test1()
   
2. 
   
3.     Dim a As String           '³]©waÅܼƬ°¦r¦ê
   
4.     Dim i As Integer          '¶]°j°é
   
5.    
   
6.     For i = 2 To 6            '¶]¦^°é  ¦]¬°§A¦³¤­­Óºô§}   ©Ò¥H¬O±q2¶]¨ì6 ¤­¦¸
   
7. 
   
8.         a = Worksheets("¤u§@ªí2").Range("B" & i)   'i=2 ¬OB2  ¥H¦¹Ãþ±À B3   B4   B5   B6
   
9.         
   
10.         With ActiveSheet.QueryTables.Add(Connection:= _
    
11.             "URL;http://www.atpworldtour.com/Tennis/Players/Ac/R/Ricardo-Acioly.aspx", _
    
12.             Destination:=Range("$A$1"))   '¥H¤Uºô§}¬O§A´£¨Ñ  ´N¤£¸Ñ»¡
    
13.             .Name = "Ricardo-Acioly"
    
14.             .FieldNames = True
    
15.             .RowNumbers = False
    
16.             .FillAdjacentFormulas = False
    
17.             .PreserveFormatting = True
    
18.             .RefreshOnFileOpen = False
    
19.             .BackgroundQuery = True
    
20.             .RefreshStyle = xlInsertDeleteCells
    
21.             .SavePassword = False
    
22.             .SaveData = True
    
23.             .AdjustColumnWidth = True
    
24.             .RefreshPeriod = 0
    
25.             .WebSelectionType = xlEntirePage
    
26.             .WebFormatting = xlWebFormattingNone
    
27.             .WebPreFormattedTextToColumns = True
    
28.             .WebConsecutiveDelimitersAsOne = True
    
29.             .WebSingleBlockTextImport = False
    
30.             .WebDisableDateRecognition = False
    
31.             .WebDisableRedirections = False
    
32.             .Refresh BackgroundQuery:=False
    
33.         End With
    
34.     Next i
    
35. End Sub

½Æ»s¥N½X

°j°é1test.rar (15.56 KB)

µ{¦¡½X¦b¸Ì­±
¤U¸ü¦¸¼Æ: 5

2014-10-21 10:42