返回列表下一主題上一主題發帖

[發問] 請問這個抓得下來嗎?

leoncc

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 27
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2013-12-23
最後登錄: 2015-8-10

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-8-9 23:18 | 只看該作者

[發問] 請問這個抓得下來嗎?

https://djinfo.cathaysec.com.tw/z/zc/zcl/zclCathaysec.djhtm?A=2355

怎麼試都不成功，望版上先進給予小弟解答謝謝

樓主熱帖

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

2^#

發表於 2015-8-10 14:19 | 只看該作者

回復 1# leoncc

不小心試出來的，自己玩玩看吧！

Sub EX()
Cells.Delete
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.Navigate "https://djinfo.cathaysec.com.tw/Z/ZC/ZCL/CZCL3Cathaysec.DJBCD?A=2355&B=Y"
Do Until .ReadyState = 4
DoEvents
Loop
data = .Document.body.innerText
arr = Split(data, " ")
x = UBound(arr) + 1
y = UBound(Split(arr(0), ",")) + 1
For i = 1 To x
For j = 1 To y
Cells(j, i) = Split(arr(i - 1), ",")(j - 1)
Next
Next
.Quit
End With
Set ie = Nothing
End Sub

複製代碼

TOP

leoncc

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 27
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2013-12-23
最後登錄: 2015-8-10

3^#

發表於 2015-8-10 19:40 | 只看該作者

回復 2# joey0415

您抓的是這個網址 : https://djinfo.cathaysec.com.tw/Z/ZC/ZCL/CZCL3Cathaysec.DJBCD?A=2355&B=Y

我想要的是這個網址 https://djinfo.cathaysec.com.tw/z/zc/zcl/zclCathaysec.djhtm?A=2355

把您的語法改成上述小弟想要的網址有錯誤發生

謝謝

TOP

joey0415