- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
5#
發表於 2011-11-15 16:31
| 只看該作者
1101~9999,需要很多時間(假設4hr)
不會吧？要這麼多時間？
1101~9999中真正有數據的只有945筆
我做同樣的操作只有幾分鐘。- Sub Macro1()
- Dim arr(), i%, j%, x, y
- t = Timer
- ActiveSheet.UsedRange.Offset(1, 0) = ""
- For i = 1101 To 9999
- With CreateObject("Microsoft.XMLHTTP")
- .Open "get", "http://tw.stock.yahoo.com/q/q?s=" & i, False
- .send
- On Error Resume Next
- k = .responsetext
- x = Split(Split(k, " href=""/q/bc?s=" & i & "")(1), "<")(0)
- If Err.Number = 0 Then
- m = m + 1
- ReDim Preserve arr(1 To 11, 1 To m)
- arr(1, m) = Mid(x, 2)
- For j = 1 To 10
- y = Split(Split(k, "<td align=""center"" bgcolor=""#FFFfff"" nowrap>")(j), "</")(0)
- arr(j + 1, m) = y
- Next
- arr(6, m) = Split(arr(6, m), ">")(1)
- End If
- End With
- Next
- Cells(2, 1).Resize(m, 11) = Application.Transpose(arr)
- MsgBox Timer - t
- End Sub
|
|
發表於 2011-10-5 11:45
| 
