- 帖子
- 75
- 主題
- 1
- 精華
- 0
- 積分
- 371
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-5-4
- 最後登錄
- 2024-11-29
|
2#
發表於 2019-1-9 10:28
| 只看該作者
Sub 擷取資料()
Dim ReTxt, i&, ARR, BRR(9), V As Currency, GetTime$
uTxtStr = ""
Call 取得網頁原始碼: If uTxtStr = "" Then Exit Sub
'-----------------------------------------------------
GetStr = ""
ST1 = "href=""/q/bc?s=" & uRng & """>"
ST2 = "<a href=""/q/ts?s=" & uRng & """>成交明細</a>"
GetStr = 擷取文字碼(uTxtStr, ST1, ST2): If GetStr = "" Then Exit Sub
ReTxt = Array("</td>", "", "</b>", "", "△", "", "▽", "-", "▲", "", "▼", "-", ",", "", ">", String(20, " "))
For i = 0 To UBound(ReTxt) Step 2
GetStr = Replace(GetStr, ReTxt(i), ReTxt(i + 1))
Next i
'-----------------------------------------------------
ARR = Split(GetStr, Chr(10))
For i = 0 To UBound(ARR)
If i = 0 Then BRR(i) = Trim(Mid(Replace(ARR(i), "<", String(10, " ")), Len(uRng) + 1, 10))
If i > 1 And i < 11 Then BRR(i - 1) = Trim(Right(ARR(i), 20))
Next
Range(uRng(1, 2), uRng(1, 11)).Value = BRR
'-----------------------------------------------------
ST1 = "<span class=""ssbodyw"">"
ST2 = "</span></div></td>"
GetTime = 擷取文字碼(uTxtStr, ST1, ST2)
uRng(1, 12) = Time ' CDate(Mid(Left(GetTime, 16), 12))
End Sub
試試 |
|
