[發問] 連續抓取規則改變之網址資料

pideo

先感謝一下這邊的高手大大對小弟的指導
小弟目前想把
以下網址的內容弄到excel裡
http://jdata.yuanta.com.tw/z/zc/zc3/zc3_2885.djhtm

其中2885是個變數此變數的值將放在sheet1 中的A列表裡
先簡單的隨便寫兩個數自A1= 2885 ， A2=1907

然後小弟想讓網址部分的數字依照Sheet1 裡的A列自動一個一個讀取後套上原網址2885的位置
然後讓他自己抓取網頁表格後放到Sheet2裡
因此小弟寫了以下程式
但是測試時根本無法執行OTZ
可否請高手大大指導
感恩

1. Sub test()
   
2.     Dim x As Integer
   
3.     Set s = Worksheets("sheet2")
   
4.     For i = 1 To 2
   
5.         x = Worksheets("sheet1").Cells(i, 1)
   
6.         With s.QueryTables.Add(Connection:= _"URL;http://jdata.yuanta.com.tw/z/zc/zc3/zc3_" & x & ".djhtm", _ Destination:=s.Range("$A$1"))
   
7.              .Selection = EntirePage
   
8.              .Formatting = None
   
9.              .PreFormattedTextToColumns = True
   
10.              .ConsecutiveDelimitersAsOne = True
    
11.              .SingleBlockTextImport = False
    
12.              .DisableDateRecognition = False
    
13.              .DisableRedirections = False
    
14.         End With
    
15.     Next
    
16. End Sub

複製代碼

准提部林

EXCEL．連續更新〔Web 查詢〕工作表，取得指定欄位內容
http://blog.xuite.net/smile1000mile/blog/124471213

pideo

太感謝大大了
感恩