³]°j°é

518587

§Ú·Q­n±q²Ä¤@­Óºô§}¶×¤J¥~³¡¸ê®Æ¡B²Ä¤G­Óºô§}¶×¤J¥~³¡¸ê®Æ.....¨ì²Ä¤­­Ó¡A½Ð°Ý§Ú¸Ó¦p¦ó³]¥ß¤@­Ó°j°é?
°j°é.rar (7.53 KB)

¤U¸ü¦¸¼Æ: 6

2014-10-20 17:25

¥H¤U¬O§Ú¶×¤Jªº²Ä¤@­Óºô§}ªº¥~³¡¸ê®Æ

1. ' Â^¨úºô¸ô¸ê®Æ
   
2. 
   
3.     Range("C3").Select
   
4.     ActiveCell.FormulaR1C1 = _
   
5.         "http://www.atpworldtour.com/Tennis/Players/Ac/R/Ricardo-Acioly.aspx"
   
6.     Sheets("Â^¨ú¸ê®Æ").Select
   
7.     Range("A1").Select
   
8.     With ActiveSheet.QueryTables.Add(Connection:= _
   
9.         "URL;http://www.atpworldtour.com/Tennis/Players/Ac/R/Ricardo-Acioly.aspx", _
   
10.         Destination:=Range("$A$1"))
    
11.         .Name = "Ricardo-Acioly"
    
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 = xlEntirePage
    
24.         .WebFormatting = xlWebFormattingNone
    
25.         .WebPreFormattedTextToColumns = True
    
26.         .WebConsecutiveDelimitersAsOne = True
    
27.         .WebSingleBlockTextImport = False
    
28.         .WebDisableDateRecognition = False
    
29.         .WebDisableRedirections = False
    
30.         .Refresh BackgroundQuery:=False
    
31.     End With

½Æ»s¥N½X

³\·ç²»

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

518587

¦^´_ 2# ³\·ç²»


    ¹ï!!! ÁÙ¯Ê

1. Sub ¥¨¶°1()
   
2. '
   
3. ' ¥¨¶°1 ¥¨¶°
   
4. '
   
5. ' §Ö³tÁä: Ctrl+q

½Æ»s¥N½X

luhpro

§Ú·Q­n±q²Ä¤@­Óºô§}¶×¤J¥~³¡¸ê®Æ¡B²Ä¤G­Óºô§}¶×¤J¥~³¡¸ê®Æ.....¨ì²Ä¤­­Ó¡A½Ð°Ý§Ú¸Ó¦p¦ó³]¥ß¤@­Ó°j°é?

¥H ...
518587 µoªí©ó 2014-10-20 17:25

Sub nn()
' Â^¨úºô¸ô¸ê®Æ
Dim lRows

lRows = 2
Do While Cells(lRows, 2) <> ""
    Range("C3").Select
    ActiveCell.FormulaR1C1 = Cells(lRows, 2)
    Sheets("Â^¨ú¸ê®Æ").Select
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & Cells(lRows, 2), _
...
    End With
Loop
End Sub

518587

¦^´_ 4# luhpro


    ½Ð°Ý¤j¤j¯à§_¸Ô²Ó»¡©ú¤@¤U ¦]¬°§Ú­è¤Jªù ÁÙ¤£¤ÓÀ´ ·PÁÂ

luhpro

¦^´_ 5# 518587
Dim lRows ' ©w¸q lRows ÅܼÆ, °µ°j°é¤¤¦C¸¹ÅܰʨϥÎ
lRows = 2 ' ±q²Ä2¦C¶}©l§ìºô§}
Do While Cells(lRows, 2) <> "" ' Do °j°é¶}©l, While ²Å¦X«á­±±ø¥ó´NÄ~Äò°õ¦æ°j°é, Cells(¦C¸¹=lRows, Ä渹=2)  Àx¦s®æªí¥Ü¤è¦¡, <>"" Àx¦s®æ¤º®e¤£µ¥©óªÅ¦r¦ê
    Range("C3").Select
    ActiveCell.FormulaR1C1 = Cells(lRows, 2) ' ºô§}¥ÎÀx¦s®æ¤º®e¨ú¥N, ¦] lRows ·|»¼¼W, ©Ò¥H¨C¦¸°j°é§ìªººô§}³£¤£¦P
    Sheets("Â^¨ú¸ê®Æ").Select
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & Cells(lRows, 2), _ '   "URL;ºô§}"  §ï¬°  "URL;" & Àx¦s®æ¤º®e(§Yºô§}), & ¬°¦r¦ê³s±µ¨Ï¥Î¦r¤¸
...
    End With
lRows = lRows + 1 ' ½Ð¥[¤W³o¦æ,¤W­±§Ñ¤F¥[, ©êºp.  lRows ¨C¦¸ÅÜ°Ê¥[ 1 , §Y ²Ä 2 ¦C ->  ²Ä 3 ¦C -> ...
Loop ' °j°éµ²§ô

³\·ç²»

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