- 帖子
- 22
- 主題
- 8
- 精華
- 0
- 積分
- 30
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 7.0
- 閱讀權限
- 10
- 註冊時間
- 2014-4-6
- 最後登錄
- 2024-3-31
|
本帖最後由 pideo 於 2014-4-9 23:00 編輯
先感謝一下這邊的高手大大對小弟的指導
小弟目前想把
以下網址的內容弄到excel裡
http://jdata.yuanta.com.tw/z/zc/zc3/zc3_2885.djhtm
其中2885是個變數此變數的值將放在sheet1 中的A列表裡
先簡單的隨便寫兩個數自A1= 2885 ， A2=1907
然後小弟想讓網址部分的數字依照Sheet1 裡的A列自動一個一個讀取後套上原網址2885的位置
然後讓他自己抓取網頁表格後放到Sheet2裡
因此小弟寫了以下程式
但是測試時根本無法執行OTZ
可否請高手大大指導
感恩- Sub test()
- Dim x As Integer
- Set s = Worksheets("sheet2")
- For i = 1 To 2
- x = Worksheets("sheet1").Cells(i, 1)
- With s.QueryTables.Add(Connection:= _"URL;http://jdata.yuanta.com.tw/z/zc/zc3/zc3_" & x & ".djhtm", _ Destination:=s.Range("$A$1"))
- .Selection = EntirePage
- .Formatting = None
- .PreFormattedTextToColumns = True
- .ConsecutiveDelimitersAsOne = True
- .SingleBlockTextImport = False
- .DisableDateRecognition = False
- .DisableRedirections = False
- End With
- Next
- End Sub
|
|
發表於 2014-4-9 22:58
| 
發表於 2014-4-11 10:38
| 