ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] VBA¦p¦ó³B²zºô­¶¤¤ªº¿ï¾Ü¶µ¨Ïºô­¶§ó·s

[µo°Ý] VBA¦p¦ó³B²zºô­¶¤¤ªº¿ï¾Ü¶µ¨Ïºô­¶§ó·s

½Ð°ª¤â¤j®v¬Û§U

­n¨ú±oºô­¶¤¤ªº¸ê®Æ¶·¥ý¿ï¾Ü¶µ¥Ø¡A¦ý´N¤£ª¾¦p¦ó°µ
¨Ò¦p³o­Óºô­¶¡A¿ï¾Ü¨ä¤¤¤@­Ó¿ï¶µ­¶­±ªº¤º®e´N§ó·s¤F
  1. Sub EX()
  2.     Dim URL As String, A As Object, i As Integer, j%
  3.     Dim AA, BB, AB$, stationName$
  4.     URL = "http://e-service.cwb.gov.tw/HistoryDataQuery/index.jsp"
  5.     Application.StatusBar = "¬d¸ßºô­¶  ..."
  6.     With CreateObject("InternetExplorer.Application")
  7.         .Visible = True     '  ¬O§_Åã¥Ü IE
  8.         .Navigate URL
  9.         Do While .ReadyState <> 4
  10.             DoEvents
  11.         Loop
  12.         Application.Wait Time + #12:00:05 AM#                'µ¥­Ôºô­¶
  13.         Set A = .document.All
  14.         On Error Resume Next
  15.         For i = 0 To A.Length - 1
  16.             If A(i).tagname = "OPTION" Then
  17.                 If A.Item(i).Value <> "" Then
  18.                     AA = AA & "," & A(i).Value          '¨ú±o´ú¯¸½s½X
  19.                     BB = BB & "," & A(i).innertext      '¨ú±o¿ï¾Ü¶µ
  20.                 End If
  21.             End If
  22.         Next
  23.         AA = Split(AA, ",")     'String to Array
  24.         BB = Split(BB, ",")
  25.         
  26. ' ©³¤U¬O°ÝÃDÂI¡A¦p¦óÅÜ´«ºô­¶¤¤¤§ "´ú¯¸" ¿ï¶µ ¨Ï­¶­±§ó·s===============
  27. '======== ¤Î "¸ê®Æ®æ¦¡" ¿ï¶µ ¨Ó§ó·sºô­¶¸ê®Æ ========================
  28. '        For i = 0 To UBound(BB)
  29. '            .document.getElementsBytagname("SELECT").Value = BB(i)
  30. '            .submit
  31. '        Next
  32. ' ¥H¤W¬O°ÝÃD =========================


  33.         .ExecWB 17, 2     'Select All
  34.         .ExecWB 12, 2     'Copy selection
  35.         
  36.         With ActiveSheet
  37.             .Cells.Clear
  38.             .Range("A1").Activate
  39.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
  40.                                 False, NoHTMLFormatting:=True
  41.         End With
  42.         
  43.         .Quit
  44.     End With
  45.     Application.StatusBar = False
  46. End Sub
½Æ»s¥N½X

¦^´_ 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§½

TOP

¦^´_ 2# joey0415


    ½Ð°Ý¦p¦ó¥ÎVBA ¦bºô­¶­±ªº "´ú¯¸" ¿ï¶µ³B°µ¿ï¾Ü©O?
¥ç§Y¦pªG¤H¤u¾Þ§@ªº¸Ü´N¬O¡G1.«ö¤@¤U¿ï¶µ¯Ã 2.¦b¤U©Ô®i¶}ªº¯¸§O¿ï¾Ü¡A ­¶­±¸ê®ÆÅܤF¡Aºô§}¤´µM °±¯d¦b "http://e-service.cwb.gov.tw/HistoryDataQuery/index.jsp"

ÁÂÁÂ

TOP

¦^´_ 3# Scott090

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

TOP

1111111.gif
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

TOP

¦^´_ 5# joey0415


    ¤£¦n·N«ä¡A½Ð°Ý
1. " http://e-service.cwb.gov.tw/HistoryDataQuery/QueryDataController.do?command=doQueryStation&station_no="
    ¬O¦p¦ó±o¨ìªº ?

2. ÁÙ¬O´Á±æ¯àª½±µÅܧó¿ï¶µªº¤èªk¡A¬O§_·Ð½Ð´¦ÅS

·P®¦

TOP

¥»©«³Ì«á¥Ñ joey0415 ©ó 2015-1-14 10:14 ½s¿è

¦^´_ 6# Scott090

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

¤£¹L­nªá¤F¦n¦h®É¶¡
  1. Sub Æ[´ú¸ê®Æ¬d¸ß¨t²Î()

  2.        ActiveSheet.Cells.Clear
  3.        URLb = "http://e-service.cwb.gov.tw/HistoryDataQuery/index.jsp"
  4.        Set ie = CreateObject("internetexplorer.application")
  5.        ie.Visible = True
  6.        ie.Navigate URLb
  7.        Do While ie.readyState <> 4 Or ie.Busy: DoEvents: Loop
  8.         Application.Wait Now + TimeValue("00:00:01") 'µ¥«Ý­¶­±¡A¹L§Ö·|§ä¤£¨ì¸ê®Æ
  9.         x = ie.document.all.tags("option").Length '¬d¸ßselect¦@¦³´X¶µ
  10.       Stop
  11.            For i = 0 To x '¸Óºô­¶ªºoption¿ï¶µ±q0-35

  12.         '---------¡A¤º«Øªºfireevent ªºonchange¥¢®Ä¡A§ï¥Î½Õ¥Îjsªº¤èªk--------
  13.         Set evt = ie.document.createEvent("HTMLEvents")
  14.         evt.initEvent "change", True, False
  15.         Set lst = ie.document.getElementById("station") 'optionªºid¬Ostation
  16.         lst.selectedIndex = i '¦Û°Ê´`Àôoptionªº­È¡A§ä¨ìindex
  17.         lst.dispatchEvent evt

  18.          Do While ie.readyState <> 4 Or ie.Busy: DoEvents: Loop
  19.             Application.Wait Now + TimeValue("00:00:01")
  20. '            Cells(i + 1, 1) = Trim(ie.document.getelementsbytagname("table")(1).innertext)'­Y§ätalbe¬O²Ä¤@­Ó¡A¦ýªÅ¥Õ¹L¦h­n³B²z
  21.             Cells(i + 1, 1) = Trim(ie.document.getelementsbytagname("td")(4).innertext) '­Y§ätd¬O²Ä4­Ó¤U­±¥ç¦P
  22.             Cells(i + 1, 2) = Trim(ie.document.getelementsbytagname("td")(5).innertext)
  23.             Cells(i + 1, 3) = Trim(ie.document.getelementsbytagname("td")(6).innertext)
  24.             Cells(i + 1, 4) = Trim(ie.document.getelementsbytagname("td")(7).innertext)
  25.             Cells(i + 1, 5) = Trim(ie.document.getelementsbytagname("td")(8).innertext)
  26.             Cells(i + 1, 6) = Trim(ie.document.getelementsbytagname("td")(9).innertext)
  27.        Next
  28.                ie.Quit
  29.               ActiveSheet.Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
  30.    End Sub
½Æ»s¥N½X
2015-01-14_101343.gif

TOP

¦^´_ 7# joey0415


    «D±`ÁÂÁ¼ö¤ß¦a´£¨Ñ«ü¾É
¦³¤£¤Öºô­¶¸ê®Æ¬O»Ý­n¥Î³z¹L¿ï¾Ü¶µ¥Ø«á¤~¯àÂà¨ì¸ê®Æ­¶ªº¡A³o­Ó¤èªkÀ³¸Ó¥i¥H¥Î¨ì¦¹Ãþ±¡ªp§a?

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD