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

[µo°Ý] ºô­¶ªí³æ¤U¸ü

[µo°Ý] ºô­¶ªí³æ¤U¸ü

¥»©«³Ì«á¥Ñ lalalada ©ó 2017-3-27 11:45 ½s¿è

¦U¦ì«e½ú¦n!
§Ú·Q§ì¨úhttp://pivot.tii.org.tw/lifesta/DQPFrame1.htmªº¸ê®Æ
³]©w¦p¤U¹Ï

µM«á·|¸õ¥X·sµøµ¡

¦]¬°¦³28­¶
·Q½Ð°Ý¬O§_¯à¤@¤f®ð¤U¸ü¦¨³æ¤@excelÀÉ©O?
§Úª¾¹D°ò¥»ªºget/post¤èªk¦ý°µ¤£¥X¨Ó....
ÁÂÁÂ!

¥»©«³Ì«á¥Ñ GBKEE ©ó 2017-3-28 13:20 ½s¿è

¦^´_ 1# lalalada
1. IE ºô§} http://pivot.tii.org.tw/lifesta/DQPFrame1.htm ,(³]¦n­n¬d´Mªº¶µ¥Ø) ,«ö¤U[¶}©l¬d´M]
2.¦bExcel ¤W°õ¦æ,vbaµ{¦¡
  1. Option Explicit
  2. Sub Ex()
  3.     '½Ð¥ý±N±M®× [³]©w¤Þ¥Î¶µ¥Ø]¥[¤J  Microsoft Internet Controls
  4.     Dim shell_windows As New SHDocVw.ShellWindows
  5.     Dim Ie As SHDocVw.InternetExplorer
  6.     For Each Ie In shell_windows
  7.         With Ie
  8.             Do While .Busy Or .ReadyState <> 4:         Loop
  9.             If InStr(.Document.Title, "²£ª««OÀI·~°È²Î­p¬d¸ßµ²ªG") Then .Quit
  10.         End With
  11.     Next
  12.     Ex_²£ª««OÀI·~°È²Î­p¤U¸ü
  13. End Sub
  14. Sub Ex_²£ª««OÀI·~°È²Î­p¤U¸ü()
  15.     Dim i As Integer, P, xTab As Object, R, C, II
  16.     With CreateObject("InternetExplorer.Application")
  17.       ' .Visible = True
  18.         Do
  19.             .Navigate "http://pivot.tii.org.tw/lifesta/NLifeResult.asp?page=" & i + 1
  20.             Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  21.             Set xTab = .Document.all.tags("table")
  22.             If i = 0 Then
  23.                 P = Split(xTab(2).innertext, ")")(0)
  24.                 P = Val(Split(P, "¦@")(1))
  25.                 Cells.Clear
  26.             End If
  27.             Application.StatusBar = "¦@ " & P & " ­¶  /  ²Ä " & i + 1 & " ­¶"
  28.             For R = IIf(i = 0, 0, 1) To xTab(1).Rows.Length - 1
  29.                 For C = 0 To xTab(1).Rows(R).Cells.Length - 1
  30.                     Cells(II + 1, C + 1) = xTab(1).Rows(R).Cells(C).innertext
  31.                 Next
  32.                 II = II + 1
  33.             Next
  34.             i = i + 1
  35.         Loop Until i = P
  36.         .Quit        'Ãö³¬ºô­¶
  37.     End With
  38. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD