返回列表 上一主題 發帖

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

carzyindex

帖子
42 
主題
11 
精華
0 
積分
104 
點名
0  
作業系統
windows 
軟體版本
office007 
閱讀權限
20 
性別
男 
註冊時間
2011-1-20 
最後登錄
2015-1-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-3-2 15:57 | 只看該作者

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

請問下拉式表單裡面的文字可以擷取出來嗎

有用F12看過了

但是還是不知道該怎麼使用才好
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2011-3-2 21:48 | 只看該作者
表單裡的?
把單裡東西放在SHEET的A1
    Dim Arrlist()
    Arrlist = ComboBox1.List
    Range("A1").Resize(UBound(Arrlist)) = Arrlist
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
243  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-9 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-3-2 23:25 | 只看該作者
回復 1# carzyindex
以錢櫃KTV網頁為例，門市查詢的下拉選單內容
http://www.cashboxparty.com/ktv/ktv_index.asp
  1. Sub GetWebObj()
  2. Dim MyURL$, Ar()
  3. MyURL = "http://www.cashboxparty.com/ktv/ktv_index.asp"
  4. Set MyIE = Nothing
  5. Set MyIE = CreateObject("InternetExplorer.Application")
  6.             With MyIE
  7.                 .Navigate MyURL
  8.                 Do While .Busy Or .ReadyState <> 4
  9.                     DoEvents
  10.                 Loop
  11.                 .Visible = False
  12.                For i = 0 To .document.all("dept").Options.Length - 1
  13.                ReDim Preserve Ar(i)
  14.                Ar(i) = .document.all("dept").Options(i).innerText
  15.                Next
  16.                .Quit
  17.             End With
  18. MsgBox Join(Ar, Chr(10))
  19. End Sub
複製代碼
學海無涯_不恥下問

TOP

carzyindex

帖子
42 
主題
11 
精華
0 
積分
104 
點名
0  
作業系統
windows 
軟體版本
office007 
閱讀權限
20 
性別
男 
註冊時間
2011-1-20 
最後登錄
2015-1-21 
4#
發表於 2011-3-2 23:28 | 只看該作者
回復 2# kimbal


    感謝你的回覆

我是指
http://tw.weather.yahoo.com/

裡面的國際主要都市天氣

洲的下拉式表單

該怎麼從這網站匯入excel

得到亞洲大洋洲歐洲等文字

TOP

carzyindex

帖子
42 
主題
11 
精華
0 
積分
104 
點名
0  
作業系統
windows 
軟體版本
office007 
閱讀權限
20 
性別
男 
註冊時間
2011-1-20 
最後登錄
2015-1-21 
5#
發表於 2011-3-2 23:30 | 只看該作者
回復 3# Hsieh


    感謝版大相助會受惠良多

TOP

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
6#
發表於 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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
243  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-9 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2011-3-9 20:29 | 只看該作者
本帖最後由 Hsieh 於 2011-3-11 10:47 編輯

回復 6# FAlonso

直接寫入儲存格，不須先寫入陣列
這重點只是取出下拉選單內容的語法
  1. Sub abc()
  2. Dim myURL As String,i As Integer
  3. Set myie = Nothing
  4. Set myie = CreateObject("internetexplorer.application")
  5. myURL = "http://tw.weather.yahoo.com/"
  6. With myie
  7. .Navigate myURL
  8. .Visible = False
  9. Do While .Busy And .ReadyState <> READYSTATE_COMPLETE
  10. DoEvents
  11. Loop
  12. For i = 0 To .Document.all("select").Options.Length - 1
  13. Cells(i + 1, 1) = .Document.all("select").Options(i).innertext
  14. Next
  15. .Quit
  16. End With
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

FAlonso

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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
243  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-9 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
9#
發表於 2011-3-11 10:44 | 只看該作者
回復 8# FAlonso


    這個原因可能是因為前一次的myie變數未被卸載所致
所以我在程式開頭就先
Set myie = Nothing
然後再去建立物件
Set myie = CreateObject("internetexplorer.application")
學海無涯_不恥下問

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
10#
發表於 2011-12-4 11:45 | 只看該作者
回復 9# Hsieh
    請問如果是這種的下拉該怎麼寫?
   http://www.cnyes.com/twstock/incomes/1503.htm
   下面是網頁原始碼
    請問從哪裡改才能抓到別的區間資料?
   如果用excel裡面的從外部匯入資料
    都只能匯入最新的資料就算點到其他區間在匯入資料一樣是最新的不是所選擇的區間
      

        <option selected="selected" value="2011年1~9月">2011年1~9月</option>
        <option value="2011年1~6月">2011年1~6月</option>

        <option value="2011年1~3月">2011年1~3月</option>
        <option value="2010年1~12月">2010年1~12月</option>
        <option value="2010年1~9月">2010年1~9月</option>
        <option value="2010年1~6月">2010年1~6月</option>
        <option value="2010年1~3月">2010年1~3月</option>
        <option value="2009年1~12月">2009年1~12月</option>

        <option value="2009年1~9月">2009年1~9月</option>
        <option value="2009年1~6月">2009年1~6月</option>
        <option value="2009年1~3月">2009年1~3月</option>
字典兩各字 還真難理解

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題