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

½Ð°Ý³o­Óºô­¶¦p¦ó¥ÎWEB¬d¸ß¿é¤Jexcel

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-18 14:16 ½s¿è

¦^´_ 20# joey0415
.document(¤å¥ó).body(¥»Åé).innerHTML(¥N½X,¤å¦r) = .document.getElementById("queryResult").outerHTML(¿é¥Xªº:¥N½X,¤å¦r)
¥i¦b³o¦æµ{¦¡½X³]¤U¤¤Â_ÂI,¬Ý¤@¤Uºô­¶«e«áªºÅܤÆ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-11-18 15:27 ½s¿è

¦^´_ 18# stillfish00
½Ð±Ð¤@¤U¡A§Ú§â .Navigate "http://portal.sw.nat.gov.tw/APGQ/GB315" ´«¦¨
.Navigate "http://portal.sw.nat.gov.tw/APGQ/GB309" ¥X¤f³ø³æ³qÃö¬yµ{¬d¸ß

  1.        Set x = .document.getElementById("myform").getElementsByTagName("input")
  2.         x(2).Value = sID     '  ¶ñ¤J¸¹½X    (­ì¥»¬° x(0).Value = sID )
  3.         x(11).Click          '  ¬d¸ß        (­ì¥»¬° x(1).Click )
½Æ»s¥N½X
°õ¦æ¨ì ActiveSheet.PasteSpecial Format:="HTML" «oµo¥Í¤F¿ù»~°T®§¡A
½Ð°ÝÀ³¦p¦ó­×¥¿¤èÄÝ¥¿½T¡H ÁÂÁ§A¡I

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-18 16:06 ½s¿è

¦^´_ 22# c_c_lai
  1. For Each x In .document.getElementsByTagName("input")
  2.              If x.Name = "declNo" Then x.Value = sID
  3.             If x.Value = "¬d¸ß" Then x.Click
  4.         Next
½Æ»s¥N½X
³o¦æ¤]­n­×§ï =0
  1. If InStr(sStatus, "[°õ¦æ¦¨¥\]") = 0 Then .Quit: MsgBox sStatus: Exit Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 23# GBKEE
¦hÁ¤F¡I
¥¿·í§Ú´ú¸Õ§¹¦¨®É¡A¥¿¦n¥ç¬Ý¨ì±z°e¨Óªº°T®§¡A
¹ï§ÚÀ°§U¬Æ¤j¡A¥ç±N±zªºµùÄÀ¥[¤J¨ÃÀ³¥Î¡A
¦A¦¸¨¥Á¡I
  1. Sub ¥X¤f³ø³æ©ñ¦æ³æ¬d¸ßµ²ªG()
  2.     Dim sID As String, sStatus As String
  3.     Dim x
  4.    
  5.     sID = InputBox("¥X¤f³ø³æ¸¹½X", "¥X¤f³ø³æ©ñ¦æ¸ê®Æ¬d¸ß", "BE  02XE580024")
  6.     If sID = "" Then Exit Sub
  7.    
  8.     With CreateObject("InternetExplorer.Application")
  9.         .Visible = True     '  ¬O§_Åã¥Ü IE
  10.         .Navigate "http://portal.sw.nat.gov.tw/APGQ/GB309"
  11.         
  12.         Do While .readyState <> 4
  13.             DoEvents
  14.         Loop
  15.       
  16.         '  Set x = .document.getElementById("myform").getElementsByTagName("input")
  17.         '  x(1).Value = sID     '  ¶ñ¤J¸¹½X  ("declNo")
  18.         '  x(10).Click          '  ¬d¸ß      ("¬d¸ß")
  19.         '  ¹ï©ó x ªº¹B¥Î¡A¦¹¤W¤U¨âºØªí¹F¤è¦¡¨MªG¤@­P¡FµM¤U¦C¤è¦¡¥iÁקK§PÂ_¤W¤§»~§P±¡¨Æ¡C
  20.         For Each x In .document.getElementsByTagName("input")
  21.             If x.Name = "declNo" Then x.Value = sID
  22.             If x.Value = "¬d¸ß" Then x.Click
  23.         Next
  24.         
  25.         Do While .document.getElementById("statusMsg").Value = ""
  26.             DoEvents
  27.         Loop
  28.       
  29.         sStatus = .document.getElementById("statusMsg").Value
  30.         If InStr(sStatus, "[°õ¦æ¦¨¥\]") <= 0 Then .Quit: MsgBox sStatus: Exit Sub
  31.                               
  32.         .document.body.innerHTML = .document.getElementById("queryResult").outerHTML
  33.         .execwb 17, 2       '  Select All
  34.         .execwb 12, 2       '  Copy selection
  35.                
  36.         ActiveSheet.[A1].Select
  37.         ActiveSheet.PasteSpecial Format:="HTML"     ', NoHTMLFormatting:=True
  38.         .Quit
  39.     End With
  40. End Sub
½Æ»s¥N½X

TOP

¦^´_  joey0415
.document(¤å¥ó).body(¥»Åé).innerHTML(¥N½X,¤å¦r) = .document.getElementById("queryRe ...
GBKEE µoªí©ó 2013-11-18 14:13

¸É¥R¤@¤U innerHTML ©M outerHTML ¤£¦P:
    .getElementById("queryResult").outerHTML ¬O«ü¥]§t¦Û¨­¼ÐÅÒªºhtml¥N½X¡A¦p  <table id="queryResult"><tr>blahblah..</tr></table>
    .getElementById("queryResult").innerHTML ¬O¤£¥]§t¦Û¨­¼ÐÅÒ¡A¥u¦³¤º³¡ªºhtml¥N½X¡A§Y<tr>blahblah..</tr>

TOP

¦^´_ 25# stillfish00
·PÁ¸ɨ¬»¡©ú
¦^´_ 24# c_c_lai
¦pªG³o¨Ç ¥X¤f³ø³æ©ñ¦æ³æ¬d¸ßªººô­¶¬ÛÃþ¦üªº¥i¦p¦¹ (§ï¤@¤Ustillfish00ªºµ{¦¡½X)
  1. Option Explicit
  2. Sub ¥X¤f¬d¸ß()
  3.     Dim sID As String, sStatus As String, URL As String
  4.     Dim x
  5.     URL = InputBox("1:¥X¤f³ø³æ©ñ¦æ¸ê®Æ¬d¸ß(²£ÃÒ±M¥Î)(GB315)" & vbLf & "2:¥X¤f³ø³æ³qÃö¬yµ{¬d¸ß(GB309)", "¥X¤f¸ê®Æ¬d¸ß", 1)
  6.     If URL = "" Or (URL <> "1" And URL <> "2") Then Exit Sub
  7.     URL = IIf(URL = "1", "GB315", "GB309")
  8.     sID = InputBox("¥X¤f³ø³æ¸¹½X", "¥X¤f³ø³æ©ñ¦æ¸ê®Æ" & URL & "¬d¸ß", "BE  02XE580024")
  9.     If sID = "" Then Exit Sub
  10.     URL = "http://portal.sw.nat.gov.tw/APGQ/" & URL & "?&declNo=" & sID   
  11.     With CreateObject("InternetExplorer.Application")
  12.         .Visible = True     '  ¬O§_Åã¥Ü IE
  13.         .Navigate URL
  14.         Do While .readyState <> 4
  15.             DoEvents
  16.         Loop
  17.         For Each x In .document.getElementsByTagName("input")
  18.             If x.Value = "¬d¸ß" Then x.Click: Exit For
  19.         Next
  20.         Do While .document.getElementById("statusMsg").Value = ""
  21.             DoEvents
  22.         Loop
  23.         sStatus = .document.getElementById("statusMsg").Value
  24.         If InStr(sStatus, "[°õ¦æ¦¨¥\]") <= 0 Then .Quit: MsgBox sStatus: Exit Sub
  25.                               
  26.         .document.body.innerHTML = .document.getElementById("queryResult").outerHTML
  27.         .execwb 17, 2       '  Select All
  28.         .execwb 12, 2       '  Copy selection
  29.         With ActiveSheet
  30.             .Cells.Clear
  31.             .[A1].Select
  32.             .PasteSpecial Format:="HTML"
  33.         End With
  34.         .Quit
  35.     End With
  36. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 26# GBKEE
·J¾ãªºÆZ¶K¤ßªº¡A¦b§ÀºÝ§Ú¶¶«K¥[¤W¤F¦Û°Ê½Õ¾ãÄõ¼eªº³B¸Ì¡C
  1.         With ActiveSheet
  2.             .Cells.Clear
  3.             .[A1].Select
  4.             .PasteSpecial Format:="HTML"
  5.             .Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
  6.         End With
½Æ»s¥N½X
ÁÂÁÂÅo¡I

TOP

¥»©«³Ì«á¥Ñ joey0415 ©ó 2013-11-18 22:04 ½s¿è

¦^´_ 26# GBKEE

½Ð°Ý¶W¯Åª©¥D

¥H³o¤è¦¡¨Ó§ì¹d¨Éºô¨Ó½m²ß®É¡Aµ{¦¡½X¦p¤U
  1.     Sub TEST11()
  2.         Dim x   
  3.         With CreateObject("InternetExplorer.Application")
  4.             .Visible = True '¬O§_Åã¥ÜIE
  5.             .Navigate "http://www.cnyes.com/twstock/Institutional/1101.htm"
  6.             Do While .readyState <> 4: DoEvents: Loop
  7.             Set x = .document.getElementById("a_itrust")
  8.             x.Click  
  9.             Do While .readyState <> 4: DoEvents: Loop
  10.             .document.body.innerHTML = .document.getElementById("tabvl").outerHTML
  11.             .execwb 17, 2 'Select All
  12.             .execwb 12, 2 'Copy selection
  13.             ActiveSheet.[A1].Select
  14.             ActiveSheet.PasteSpecial Format:="HTML" ', NoHTMLFormatting:=True
  15.             .Quit
  16.         End With
  17.     End Sub
½Æ»s¥N½X
¨ì³o¤@¦æ·|¥X¿ù¡A¦p¹Ï
.document.body.innerHTML = .document.getElementById("tabvl").outerHTML

§Ú¥H¹d¦ëºô¤¤ªº§ë«H¶i¥X¬°¨Ò¤l½m²ß

¦A°Ý¤@­Ó§xÂZ«Ü¤[ªº°ÝÃD
.getElementById»P.getElementsByTagName
¦³¨Ç¦³id»Ptagname ¦³¨Ç¥u¦³id ¡A¦³¨Ç¥u¦³tagname
½Ð°Ý¦³¥ý«á±qÄݪºÃö«Y¶Ü¡H

­Y¦³¤÷¤lÃö«Y§â¤l³]¬°xªº¸Ü¡A¨º¤÷¼h´N¤£¯àªí¥Ü¶Ü¡HÁÙ¬O¥ý¤÷¼h¦A¥[¤@­Ó  ¡uÂI¡v

­Y³o¼Ë³]x=.document.getElementById("tabvl") ¥X¿ù

½Ðª©¥D«üÂI¤@¤U

TOP

¦^´_ 28# joey0415
¸Õ¸Õ³o­Ó¡G
  1. Sub ¹d¨Éºô()
  2.     Dim sID As String, sStatus As String, URL As String
  3.     Dim x
  4.    
  5.     URL = "http://www.cnyes.com/twstock/Institutional/1101.htm"
  6.     With CreateObject("InternetExplorer.Application")
  7.         .Visible = True     '  ¬O§_Åã¥Ü IE
  8.         .Navigate URL
  9.         
  10.         Do While .readyState <> 4
  11.             DoEvents
  12.         Loop
  13.         
  14.         For Each x In .Document.getelementsbytagname("input")
  15.             If x.Value = "¬d¸ß" Then x.Click: Exit For
  16.         Next
  17.                
  18.         .Document.body.innerHTML = .Document.getelementsbytagname("table")(1).outerHTML
  19.         .execwb 17, 2       '  Select All
  20.         .execwb 12, 2       '  Copy selection
  21.         
  22.         With ActiveSheet
  23.             .Cells.Clear
  24.             .[A2].Select
  25.             .PasteSpecial Format:="HTML"
  26.             .Cells.EntireColumn.AutoFit     '  ¦Û°Ê½Õ¾ãÄæ¼e
  27.         End With
  28.         .Quit
  29.     End With
  30. End Sub
½Æ»s¥N½X

TOP

¦^´_ 28# joey0415
¦]¬°§Úªº FireFox µLªk¨Ï¥Î¤W¶Ç¹Ï¤ù»Pªþ¥ó¡A©Ò¥H¤~¥t¥~¥Î IE ¤W¶Ç

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD