請問這個網頁如何用WEB查詢輸入excel

jewayy

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

出口報單號碼：BE  02XE580024

希望能將查詢結果，匯入EXCEL中，
小弟已經做了一個iqy,如下所示，但還是無法顯示，請各位先進幫忙，感激不盡！
----------------------------------------------------------------------------------------------
WEB
1
http://portal.sw.nat.gov.tw/PPL/pages/integration/layout.jsp?appId=APGQAGB315declNo=BE  02XE580024

Selection=1
Formatting=None
----------------------------------------------------------------------------------------------

活力充沛

積分還不夠><"
可下載"查找標籤.zip" 的大大,可否傳給小弟!

E-mail: a82794125678@yahoo.com.tw
感激不敬~

gable

新手 剛加入 學習了
謝謝大大們 ^^

c_c_lai

回復 72# GBKEE

1.     Set ie = CreateObject("InternetExplorer.Application")
   
2.     ie.Navigate "about:Tabs"
   
3.     '  ie.Visible = True
   
4.    
   
5.     Set shts = ActiveSheet    '  Sheets("工作表2")
   
6.     shts.Cells.Clear
   
7.    
   
8.     URL = "http://www.cnyes.com/twstock/Institutional/1101.htm"
   
9.     With CreateObject("InternetExplorer.Application")
   
10.         '  .Visible = True     '  是否顯示 IE
    
11.         .Navigate URL
    
12.         

複製代碼

c_c_lai

回復 72# GBKEE
不信邪再試一次 (Marked 後先儲存一次，再行執行)。
事後只出現過一次"權限問題"後，一切又歸於平靜 (正常了)。
這便是我佩服 Microsoft 的緣故。

c_c_lai

回復 72# GBKEE
所以說嘛，這就是我之所以佩服 Micrsoft 的地方！
不得不服氣。

GBKEE

回復 71# c_c_lai
2個IE都不顯示,2003再跑一次,OK!

c_c_lai

回復 68# GBKEE
哈哈！
太清爽了也不行！ (只能第一個 "空白網頁")

下載 (83.91 KB)

2013-11-22 08:17

c_c_lai

回復 68# GBKEE
事後想想，發覺利用 "空白網頁" 來做為臨時戰場  (進行複製工作)，
這個 Idea 蠻好的，亦不會破壞原本網頁的 Table 內容。

1.         Set A = .Document.getElementsBytagname("table")
   
2.         For x = 1 To 6
   
3.             With ie
   
4.                 .Document.body.innerHTML = A(x).outerHTML
   
5.                 .ExecWB 17, 2       '  Select All
   
6.                 .ExecWB 12, 2       '  Copy selection
   
7.             End With
   
8.             
   
9.             With shts
   
10.                 .Range("A" & .[A65535].End(xlUp).Row + 1).Select
    
11.                 .PasteSpecial Format:="HTML"
    
12.             End With
    
13.         Next

複製代碼

c_c_lai

回復 68# GBKEE
說的也是！
謝謝指導。