stillfish00

1. Sub TEST11()
   
2.     Dim sID As String, sStatus As String
   
3.     Dim x
   
4.    
   
5.     sID = InputBox("出口報單號碼", "出口報單放行資料查詢", "BE  02XE580024")
   
6.     If sID = "" Then Exit Sub
   
7.    
   
8.     With CreateObject("InternetExplorer.Application")
   
9.         .Visible = True '是否顯示IE
   
10.         .Navigate "http://portal.sw.nat.gov.tw/APGQ/GB315"
    
11.         Do While .readyState <> 4: DoEvents: Loop
    
12.       
    
13.         Set x = .document.getElementById("myform").getElementsByTagName("input")
    
14.         x(0).Value = sID  '填入號碼
    
15.         x(1).Click  '查詢
    
16.         Do While .document.getElementById("statusMsg").Value = "": DoEvents: Loop
    
17.       
    
18.         sStatus = .document.getElementById("statusMsg").Value
    
19.         If InStr(sStatus, "[執行成功]") < 0 Then .Quit: MsgBox sStatus: Exit Sub
    
20.                        
    
21.         .document.body.innerHTML = .document.getElementById("queryResult").outerHTML
    
22.         .execwb 17, 2 'Select All
    
23.         .execwb 12, 2 'Copy selection
    
24.                
    
25.         ActiveSheet.[A1].Select
    
26.         ActiveSheet.PasteSpecial Format:="HTML" ', NoHTMLFormatting:=True
    
27.         .Quit
    
28.     End With
    
29. End Sub

複製代碼

stillfish00

回復  joey0415
.document(文件).body(本體).innerHTML(代碼,文字) = .document.getElementById("queryRe ...
GBKEE 發表於 2013-11-18 14:13

補充一下 innerHTML 和 outerHTML 不同:
    .getElementById("queryResult").outerHTML 是指包含自身標籤的html代碼，如  <table id="queryResult"><tr>blahblah..</tr></table>
    .getElementById("queryResult").innerHTML 是不包含自身標籤，只有內部的html代碼，即<tr>blahblah..</tr>