- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¥»©«³Ì«á¥Ñ joey0415 ©ó 2015-1-14 10:14 ½s¿è
¦^´_ 6# Scott090
§ï¦n¤F¡I¬°¤F³oÓ¤S¾Ç¨ìªF¦è
¤£¹Lnªá¤F¦n¦h®É¶¡- Sub Æ[´ú¸ê®Æ¬d¸ß¨t²Î()
- ActiveSheet.Cells.Clear
- URLb = "http://e-service.cwb.gov.tw/HistoryDataQuery/index.jsp"
- Set ie = CreateObject("internetexplorer.application")
- ie.Visible = True
- ie.Navigate URLb
- Do While ie.readyState <> 4 Or ie.Busy: DoEvents: Loop
- Application.Wait Now + TimeValue("00:00:01") 'µ¥«Ý¶±¡A¹L§Ö·|§ä¤£¨ì¸ê®Æ
- x = ie.document.all.tags("option").Length '¬d¸ßselect¦@¦³´X¶µ
- Stop
- For i = 0 To x '¸Óºô¶ªºoption¿ï¶µ±q0-35
- '---------¡A¤º«Øªºfireevent ªºonchange¥¢®Ä¡A§ï¥Î½Õ¥Îjsªº¤èªk--------
- Set evt = ie.document.createEvent("HTMLEvents")
- evt.initEvent "change", True, False
- Set lst = ie.document.getElementById("station") 'optionªºid¬Ostation
- lst.selectedIndex = i '¦Û°Ê´`ÀôoptionªºÈ¡A§ä¨ìindex
- lst.dispatchEvent evt
- Do While ie.readyState <> 4 Or ie.Busy: DoEvents: Loop
- Application.Wait Now + TimeValue("00:00:01")
- ' Cells(i + 1, 1) = Trim(ie.document.getelementsbytagname("table")(1).innertext)'Y§ätalbe¬O²Ä¤@Ó¡A¦ýªÅ¥Õ¹L¦hn³B²z
- Cells(i + 1, 1) = Trim(ie.document.getelementsbytagname("td")(4).innertext) 'Y§ätd¬O²Ä4Ó¤U±¥ç¦P
- Cells(i + 1, 2) = Trim(ie.document.getelementsbytagname("td")(5).innertext)
- Cells(i + 1, 3) = Trim(ie.document.getelementsbytagname("td")(6).innertext)
- Cells(i + 1, 4) = Trim(ie.document.getelementsbytagname("td")(7).innertext)
- Cells(i + 1, 5) = Trim(ie.document.getelementsbytagname("td")(8).innertext)
- Cells(i + 1, 6) = Trim(ie.document.getelementsbytagname("td")(9).innertext)
- Next
- ie.Quit
- ActiveSheet.Cells.EntireColumn.AutoFit ' ¦Û°Ê½Õ¾ãÄæ¼e
- End Sub
½Æ»s¥N½X |
|