joey0415

¦^´_ 1# Scott090

http://e-service.cwb.gov.tw/HistoryDataQuery/QueryDataController.do?command=doQueryStation&station_no=467610


    ¨Ò¦p¤W­±´N¬O¡u¦¨¥\¡v¯¸ªº¸ê®Æ¡Aµ²ªG¦p¤U
¦¨¥\ (467610) |121¢X21' 55¡ªE|23¢X05' 57¡ªN|33.5M|»OªF¿¤¦¨¥\Âí¤½¥Á¸ô84¸¹|¤¤¥¡®ð¶H§½

§A¥u­n§â§A·Q­nªº¸ê®Æ¥N½X§ïÅÜ´N·|¦³¤£¦Pªº¦a°Ï¸ê®Æ

¨Ò¦p»O¤¤ (467490)
http://e-service.cwb.gov.tw/HistoryDataQuery/QueryDataController.do?command=doQueryStation&station_no=467490
»O¤¤ (467490) |120¢X40' 33¡ªE|24¢X08' 51¡ªN|84.04M|»O¤¤¥«¥_°ÏºëªZ¸ô295¸¹|¤¤¥¡®ð¶H§½

joey0415

¦^´_ 3# Scott090

³£§ä¨ì¥N½X´N¤£­nªá¤ß«ä¤F¡I¥u­n§ï¥N½X´N·|ª¾¹D·Å«×¡A§â·Å«×§ì¤U¨Ó§Y¥i

joey0415

¤U¸ü (68.68 KB)

2015-1-13 21:23

´N§â°Ï°ì¥N½X§ï¤@¤U©ñ¦b¤W´Nª¾¹D®×¤F

§¹¥þ¤£¥Îµ¥

1. Sub EX()
   
2. finalrow=Cells(Rows.Count, 1).End(xlUp).Row
   
3.     For i = 1 To finalrow
   
4.         s = Cells(i, 1)
   
5.         URL = "http://e-service.cwb.gov.tw/HistoryDataQuery/QueryDataController.do?command=doQueryStation&station_no=" & s
   
6.         With CreateObject("InternetExplorer.Application")
   
7.             .Visible = False     '  ¬O§_Åã¥Ü IE
   
8.             .Navigate URL
   
9.                 Do While .ReadyState <> 4
   
10.                     DoEvents
    
11.                 Loop
    
12.             Set ieDoc = .Document
    
13.             Cells(i, 2) = ieDoc.body.innerText
    
14.             .Quit
    
15.         End With
    
16.     Next
    
17.     Application.StatusBar = False
    
18. End Sub

½Æ»s¥N½X

joey0415

¦^´_ 6# Scott090

§ï¦n¤F¡I¬°¤F³o­Ó¤S¾Ç¨ìªF¦è

¤£¹L­nªá¤F¦n¦h®É¶¡

1. Sub Æ[´ú¸ê®Æ¬d¸ß¨t²Î()
   
2. 
   
3.        ActiveSheet.Cells.Clear
   
4.        URLb = "http://e-service.cwb.gov.tw/HistoryDataQuery/index.jsp"
   
5.        Set ie = CreateObject("internetexplorer.application")
   
6.        ie.Visible = True
   
7.        ie.Navigate URLb
   
8.        Do While ie.readyState <> 4 Or ie.Busy: DoEvents: Loop
   
9.         Application.Wait Now + TimeValue("00:00:01") 'µ¥«Ý­¶­±¡A¹L§Ö·|§ä¤£¨ì¸ê®Æ
   
10.         x = ie.document.all.tags("option").Length '¬d¸ßselect¦@¦³´X¶µ
    
11.       Stop
    
12.            For i = 0 To x '¸Óºô­¶ªºoption¿ï¶µ±q0-35
    
13. 
    
14.         '---------¡A¤º«Øªºfireevent ªºonchange¥¢®Ä¡A§ï¥Î½Õ¥Îjsªº¤èªk--------
    
15.         Set evt = ie.document.createEvent("HTMLEvents")
    
16.         evt.initEvent "change", True, False
    
17.         Set lst = ie.document.getElementById("station") 'optionªºid¬Ostation
    
18.         lst.selectedIndex = i '¦Û°Ê´`Àôoptionªº­È¡A§ä¨ìindex
    
19.         lst.dispatchEvent evt
    
20. 
    
21.          Do While ie.readyState <> 4 Or ie.Busy: DoEvents: Loop
    
22.             Application.Wait Now + TimeValue("00:00:01")
    
23. '            Cells(i + 1, 1) = Trim(ie.document.getelementsbytagname("table")(1).innertext)'­Y§ätalbe¬O²Ä¤@­Ó¡A¦ýªÅ¥Õ¹L¦h­n³B²z
    
24.             Cells(i + 1, 1) = Trim(ie.document.getelementsbytagname("td")(4).innertext) '­Y§ätd¬O²Ä4­Ó¤U­±¥ç¦P
    
25.             Cells(i + 1, 2) = Trim(ie.document.getelementsbytagname("td")(5).innertext)
    
26.             Cells(i + 1, 3) = Trim(ie.document.getelementsbytagname("td")(6).innertext)
    
27.             Cells(i + 1, 4) = Trim(ie.document.getelementsbytagname("td")(7).innertext)
    
28.             Cells(i + 1, 5) = Trim(ie.document.getelementsbytagname("td")(8).innertext)
    
29.             Cells(i + 1, 6) = Trim(ie.document.getelementsbytagname("td")(9).innertext)
    
30.        Next
    
31.                ie.Quit
    
32.               ActiveSheet.Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
    
33.    End Sub

½Æ»s¥N½X