GBKEE

¦^´_ 20# joey0415
.document(¤å¥ó).body(¥»Åé).innerHTML(¥N½X,¤å¦r) = .document.getElementById("queryResult").outerHTML(¿é¥Xªº:¥N½X,¤å¦r)
¥i¦b³o¦æµ{¦¡½X³]¤U¤¤Â_ÂI,¬Ý¤@¤Uºô­¶«e«áªºÅܤÆ

c_c_lai

¦^´_ 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. 
   
2.        Set x = .document.getElementById("myform").getElementsByTagName("input")
   
3.         x(2).Value = sID     '  ¶ñ¤J¸¹½X    (­ì¥»¬° x(0).Value = sID )
   
4.         x(11).Click          '  ¬d¸ß        (­ì¥»¬° x(1).Click )

½Æ»s¥N½X

°õ¦æ¨ì ActiveSheet.PasteSpecial Format:="HTML" «oµo¥Í¤F¿ù»~°T®§¡A
½Ð°ÝÀ³¦p¦ó­×¥¿¤èÄÝ¥¿½T¡H ÁÂÁ§A¡I

GBKEE

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

c_c_lai

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

¤U¸ü (51.29 KB)

2013-11-18 16:55

stillfish00

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

GBKEE

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

c_c_lai

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

joey0415

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

¤U¸ü (137.97 KB)

2013-11-18 21:56

c_c_lai

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

c_c_lai

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

¤U¸ü (22.84 KB)

2013-11-19 07:22