返回列表 上一主題 發帖

設迴圈

許瑞祥

帖子
14 
主題
3 
精華
0 
積分
52 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2014-5-7 
最後登錄
2015-5-11 
1# 跳轉到 »
發表於 2014-10-20 21:28 | 顯示全部帖子
你的程式碼是不是沒有複製完整  怎麼會沒有第一行 "sub"
大家互相幫忙解決問題,才會進步

TOP

許瑞祥

帖子
14 
主題
3 
精華
0 
積分
52 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2014-5-7 
最後登錄
2015-5-11 
2#
發表於 2014-10-21 10:42 | 顯示全部帖子
回復 1# 518587
  1. Sub test1()

  3.     Dim a As String           '設定a變數為字串
  4.     Dim i As Integer          '跑迴圈
  5.    
  6.     For i = 2 To 6            '跑回圈  因為你有五個網址   所以是從2跑到6 五次

  8.         a = Worksheets("工作表2").Range("B" & i)   'i=2 是B2  以此類推 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"))   '以下網址是你提供  就不解說
  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
複製代碼
迴圈1test.rar (15.56 KB)
大家互相幫忙解決問題,才會進步

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題