c_c_lai

http://portal.sw.nat.gov.tw/PPL/pages/integration/layout.jsp?appId=APGQAGB315

¥X¤f³ø³æ¸¹½X¡GBE  0 ...
jewayy µoªí©ó 2013-11-15 22:02

¥X¤f³ø³æ¸¹½X¡GBE  02XE580024 ¸Õ¸Õ¦¨ BE%2002XE580024

1. http://portal.sw.nat.gov.tw/PPL/pages/integration/layout.jsp?appId=APGQAGB315declNo=BE%2002XE580024

½Æ»s¥N½X

c_c_lai

ÁÂÁ±zªº¦^ÂСA¤£¹L¦n¹³ÁÙ¬O¨S¦³¤ÏÀ³¡C

¤p§Ì¦A´y­z²M·¡¤@¤U¡A¥X¤f³ø³æ¸¹½X"BE  02XE580024"¡ABE»P02XE¤¤ ...
jewayy µoªí©ó 2013-11-16 17:28

¨º´N§ï¦¨    BE%20%2002XE580024

1. http://portal.sw.nat.gov.tw/PPL/pages/integration/layout.jsp?appId=APGQAGB315declNo=BE%20%2002XE580024

½Æ»s¥N½X

c_c_lai

¦^´_ 8# GBKEE

1. Ar(2) = IE.getElementById("declNo").Value                   '¥X¤f³ø³æ¸¹½X

½Æ»s¥N½X

­n§ï¦¨

1. Ar(2) = IE.getElementById("declNo").innertext            '¥X¤f³ø³æ¸¹½X

½Æ»s¥N½X

¤~¤£·|²£¥Í 438ªº¿ù»~°T®§¡C
«Ü´Îªº¸àÄÀ¡I¶¶±a½Ð±Ð¤@¤U¡A¦pªG§Ú­n³s¦P¨C­Ó¼ÐÃD (¦p¡G¬d¸ßµ²ªG¡B®üªÅ¹B§O¡B¥X¤f³ø³æ¸¹½Xµ¥)
¤@¨Ö¤U¸ü¡AÀ³¸Ó­n¦p¦ó³B²z¡H
ÁÂÁ±z¡I

c_c_lai

¦^´_ 10# GBKEE
·PÁ¡A Ex() °õ¦æ¥X¨Óªºµ²ªG¹êµLªk¤J¥Ø¡AÁÙ¬O±z­ì¨Óªºµ{¦¡½X¸û¨Î¡A
¦Ü©ó "¼ÐÃD" ªº°ÝÃD§Ú¶i¤J Html ¬Ý¤F¤@¤U¡AÁŵM¤j®©¡A­ì¨Ó¥¦¬O
¨Ï¥Î <TD> </TD> ³B­ù¡A©Ò¥H¤]¥u¦n·Ó³æ¤J®y¤F¡C

c_c_lai

¦^´_ 14# GBKEE
ÁÂÁ±z¸ÔºÉªº¸Ñ»¡¡A²×©ó°ÝÃD¸Ñ¨M¤F¡C­ì¦]¬O¦­¤W°õ¦æ®É
Åã¥Ü¦b Excel ªí³æ¤Wªº¬O¤@°ï¶Ã½X¡C¤U¤È§Ú¥Î Debug ¤è¦¡
°õ¦æ¤~µoı¬O Explorer ªº¸ÑĶ°ÝÃD¡CIE (10) »P  Firefox ¨âªÌ
ªº Decode ¦³¨Ç·Lªº®t²§¡A¦p³z¹L IE ¶Ç¤J­È·|¦³¶Ã½X¡A¤Ï¤§¡B
«h¤@¤Á¥¿±`¡A ¦p¤U¡G

1. {"msg":"[°õ¦æ¦¨¥\]","transTypeCd":"®ü","totGrossWeight":49376,"destCd":"VNCLI",
   
2.   "totPackQty":"32","declType":"G5","relDate":"102\/09\/17",
   
3. "totPackQtyUnit":"PLT","declNo":"BE  02XE580024","vslSign":"BKHC",
   
4. "examRelNote":"Y","voyageFlightNo":"1084-186S","marketMftNote":"Y",
   
5. "status":"ok","vslName":"UNI-PROSPER                        "}

½Æ»s¥N½X

§Ú±N Ar = Split(Replace(.responsetext, """", ""), ",") µyµy­×§ï¦p¤U¡G

1. Ar = Split(Trim(Replace(Replace(.responsetext, """", ""), "}", "")), ",")

½Æ»s¥N½X

1. Ar(0) =  "msg:[°õ¦æ¦¨¥\]"
   
2. Ar(1) =  "transTypeCd:®ü"
   
3. Ar(2) =  "totGrossWeight":49376
   
4. Ar(3) =  "destCd:VNCLI"
   
5. Ar(4) =  "totPackQty:32"
   
6. Ar(5) =  "declType:G5"
   
7. Ar(6) =  "relDate:102\/09\/17"
   
8. Ar(7) =  "totPackQtyUnit:PLT"
   
9. Ar(8) =  "declNo:BE  02XE580024"
   
10. Ar(9) =  "vslSign:BKHC"
    
11. Ar(10) =  "examRelNote:Y"
    
12. Ar(11) =  "voyageFlightNo:1084-186S"
    
13. Ar(12) =  "marketMftNote:Y"
    
14. Ar(13) =  "status:ok"
    
15. Ar(14) =  "vslName:UNI-PROSPER"

½Æ»s¥N½X

¦p¦¹°õ¦æ°_«KµL·åÒ¯¤F¡AÁÂÁ±z¡I

c_c_lai

¦^´_ 16# joey0415

1.         '  http://portal.sw.nat.gov.tw/APGQ/GB315!query?declNo=BE++02XE580024
   
2.         '  "GET" ¶Ç¤J (Send) ¤§ XML ¤º®e¡G
   
3.         '  {"msg":"[°õ¦æ¦¨¥\]","transTypeCd":"®ü","totGrossWeight":49376,"destCd":"VNCLI",
   
4.         '  "totPackQty":"32","declType":"G5","relDate":"102\/09\/17",
   
5.         '  "totPackQtyUnit":"PLT","declNo":"BE  02XE580024","vslSign":"BKHC",
   
6.         '  "examRelNote":"Y","voyageFlightNo":"1084-186S","marketMftNote":"Y",
   
7.         '  "status":"ok","vslName":"UNI-PROSPER                        "}
   
8.         AR = Split(Trim(Replace(Replace(.responsetext, """", ""), "}", "")), ",")
   
9.         '  ¥ý¥h°£ "¡B¦AªÌ¥h°£ }¡B±µ¤U¨Ó¦A±N«e«áªÅ¥Õ (Space) ²MªÅ¡F³Ì«á¤~³B²z Split() ¨Ã Assign µ¹ AR
   
10.         '  Ar :  Variant/String(0 to 14)
    
11.         '  Ar(0) =  "msg:[°õ¦æ¦¨¥\]"
    
12.         '  Ar(1) =  "transTypeCd:®ü"
    
13.         '  Ar(2) =  "totGrossWeight":49376
    
14.         '  Ar(3) =  "destCd:VNCLI"
    
15.         '  Ar(4) =  "totPackQty:32"
    
16.         '  Ar(5) =  "declType:G5"
    
17.         '  Ar(6) =  "relDate:102\/09\/17"
    
18.         '  Ar(7) =  "totPackQtyUnit:PLT"
    
19.         '  Ar(8) =  "declNo:BE  02XE580024"
    
20.         '  Ar(9) =  "vslSign:BKHC"
    
21.         '  Ar(10) =  "examRelNote:Y"
    
22.         '  Ar(11) =  "voyageFlightNo:1084-186S"
    
23.         '  Ar(12) =  "marketMftNote:Y"
    
24.         '  Ar(13) =  "status:ok"
    
25.         '  Ar(14) =  "vslName:UNI-PROSPER"

½Æ»s¥N½X

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

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

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

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