返回列表 上一主題 發帖

[發問] 擷取web下拉式表單

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
1# 跳轉到 »
發表於 2011-3-9 14:41 | 顯示全部帖子
本帖最後由 FAlonso 於 2011-3-9 14:43 編輯

把H大的程式略為修改一下,變成
  1. Sub abc()
  2. Dim myie As SHDocVw.InternetExplorer, myURL As String, ar(), i As Integer

  4. Set myie = CreateObject("internetexplorer.application")
  5. myURL = "http://tw.weather.yahoo.com/"

  7. With myie
  8. .Navigate myURL

  10. Do While .Busy And .ReadyState <> READYSTATE_COMPLETE
  11. DoEvents
  12. Loop

  14. .Visible = False

  16. For i = 0 To .Document.all("select").Options.Length - 1
  17. ReDim Preserve ar(i)
  18. ar(i) = .Document.all("select").Options(i).innertext
  19. Next



  23. Range("A1").Activate
  24. For i = 1 To .Document.all("select").Options.Length - 1
  25. ActiveCell.Value = ar(i)
  26. ActiveCell.Offset(1).Activate
  27. Next

  29. .Quit
  30. End With
  31. End Sub
複製代碼
就行了
不過這個程式第16行不太穩定,有時會出現錯誤91,沒有設定物件變數或with區塊變數,有時成功執行,不知搞什麼鬼
80 字節以內
不支持自定義 Discuz! 代碼

TOP

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
2#
發表於 2011-3-9 21:21 | 顯示全部帖子
回復 7# Hsieh
其實由KTV至奇摩天氣的例子,久不久就有這個問題,不知是系統還是記憶體問題,但不深究了
80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題