返回列表 上一主題 發帖

設迴圈

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2014-10-20 22:20 | 顯示全部帖子
我想要從第一個網址匯入外部資料、第二個網址匯入外部資料.....到第五個，請問我該如何設立一個迴圈?

以 ...
518587 發表於 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

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2014-10-20 23:16 | 顯示全部帖子
回復 5# 518587
Dim lRows ' 定義 lRows 變數, 做迴圈中列號變動使用
lRows = 2 ' 從第2列開始抓網址
Do While Cells(lRows, 2) <> "" ' Do 迴圈開始, While 符合後面條件就繼續執行迴圈, Cells(列號=lRows, 欄號=2)  儲存格表示方式, <>"" 儲存格內容不等於空字串
    Range("C3").Select
    ActiveCell.FormulaR1C1 = Cells(lRows, 2) ' 網址用儲存格內容取代, 因 lRows 會遞增, 所以每次迴圈抓的網址都不同
    Sheets("擷取資料").Select
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & Cells(lRows, 2), _ '   "URL;網址"  改為  "URL;" & 儲存格內容(即網址), & 為字串連接使用字元
...
    End With
lRows = lRows + 1 ' 請加上這行,上面忘了加, 抱歉.  lRows 每次變動加 1 , 即 第 2 列 ->  第 3 列 -> ...
Loop ' 迴圈結束

TOP

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