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

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

1^# 跳轉到 »

發表於 2013-11-17 00:20 | 顯示全部帖子

http://portal.sw.nat.gov.tw/APGQ/GB315!query?declNo=BE++02XE580024

內容是json格式
{"msg":"[執行成功]","transTypeCd":"海","totGrossWeight":49376,"destCd":"VNCLI","totPackQty":"32","declType":"G5","relDate":"102\/09\/17","totPackQtyUnit":"PLT","declNo":"BE 02XE580024","vslSign":"BKHC","examRelNote":"Y","voyageFlightNo":"1084-186S","marketMftNote":"Y","status":"ok","vslName":"UNI-PROSPER "}

可能要下xmlhttp下載
可果要用excel web查詢，我試過會亂碼，可能還要會轉碼

就要用ie法找到tag按下去，從裏面找table

提供兩個網頁參考：
http://club.excelhome.net/forum.php?mod=viewthread&action=printable&tid=939881

http://blog.csdn.net/a814153a/article/details/9071577

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

2^#

發表於 2013-11-17 12:37 | 顯示全部帖子

回復 10# GBKEE

請問超級版主

透過您的方法，大概知道怎麼切，我只會版主的方式修改如下：

Sub Ex()
Dim Ar, AA(), 出口報單號碼 As String, Sh As Worksheet
出口報單號碼 = InputBox("出口報單號碼", "出口報單放行資料查詢", "BE 02XE580024")
If 出口報單號碼 = "" Then Exit Sub
Set Sh = ActiveSheet '指定顯示資料的工作表 'ActiveSheet->作用中的工作表
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", "http://portal.sw.nat.gov.tw/APGQ/GB315!query?declNo=" & 出口報單號碼, False
.send
Ar = Split(Replace(.responsetext, """", ""), ",")
For i = 0 To UBound(Ar)
Sh.Cells(1 + i, 1) = Ar(i) 'B欗
Next
For i = 0 To UBound(Ar)
Sh.Cells(1 + i, 2) = Split(Sh.Cells(1 + i, 1), ":")(0) 'B欗
Sh.Cells(1 + i, 3) = Split(Sh.Cells(1 + i, 1), ":")(1) 'B欗
Next

複製代碼

請問版主：
AA = Array(1, 8, 4, 7, 2, 14, 11)          'A欗的標題內容 Ar中陣列對應之索引值
AA = Array(5, 3, 10, 6, 12, 9)                'C欗的標題內容 Ar中陣列對應之索引值

是為了方便指定AR陣列中指定的元素，在放進想要的CELLS中嗎？

============================
         On Error GoTo Er                         '出口報單號碼不正確會有錯誤:

它跳到
Er:
      Sh.[b2].Resize(7, 1) = ""
      Sh.[d2].Resize(7, 1) = ""
要讓這兩欄都設為空字串嗎？

如果要批次找100值放進去跑回圈，中間有錯的話
要放 on error resume next嗎？
或是這兩個方式有分別嗎？

謝謝

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

3^#

發表於 2013-11-17 20:52 | 顯示全部帖子

本帖最後由 joey0415 於 2013-11-17 20:58 編輯

回復 15# c_c_lai

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

請問程式碼的最中的核心柝解成陣列，再分柝時需要另命陣列嗎？否則再柝解時

比如柝成五個元素，可以再同時往下一起柝嗎？

謝謝
============================
我看錯了，原來是先取代
" =>空字串
}=>空字串

{=>空字串
\=>空字串

最後才柝分

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

4^#

發表於 2013-11-18 11:59 | 顯示全部帖子

本帖最後由 joey0415 於 2013-11-18 12:00 編輯

回復 19# GBKEE

.document.body.innerHTML = .document.getElementById("queryResult").outerHTML

複製代碼

把.outerHTML的傳給.body.innerHTML ?

請問超版，這句話怎解呢？

謝謝

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

5^#

發表於 2013-11-18 22:02 | 顯示全部帖子

本帖最後由 joey0415 於 2013-11-18 22:04 編輯

回復 26# GBKEE

請問超級版主

以這方式來抓鉅享網來練習時，程式碼如下

Sub TEST11()
Dim x
With CreateObject("InternetExplorer.Application")
.Visible = True '是否顯示IE
.Navigate "http://www.cnyes.com/twstock/Institutional/1101.htm"
Do While .readyState <> 4: DoEvents: Loop
Set x = .document.getElementById("a_itrust")
x.Click
Do While .readyState <> 4: DoEvents: Loop
.document.body.innerHTML = .document.getElementById("tabvl").outerHTML
.execwb 17, 2 'Select All
.execwb 12, 2 'Copy selection
ActiveSheet.[A1].Select
ActiveSheet.PasteSpecial Format:="HTML" ', NoHTMLFormatting:=True
.Quit
End With
End Sub

複製代碼

到這一行會出錯，如圖
.document.body.innerHTML = .document.getElementById("tabvl").outerHTML

我以鉅亨網中的投信進出為例子練習

再問一個困擾很久的問題
.getElementById與.getElementsByTagName
有些有id與tagname 有些只有id ，有些只有tagname
請問有先後從屬的關係嗎？

若有父子關係把子設為x的話，那父層就不能表示嗎？還是先父層再加一個「點」

若這樣設x=.document.getElementById("tabvl") 出錯

請版主指點一下

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

6^#

發表於 2013-11-19 10:31 | 顯示全部帖子

回復 30# c_c_lai

感謝大大分享，我昨天最後也用table來找
不過請問大大.Document.getelementsbytagname("table")(1).outerHTML

中的1是怎麼算的，我算的是2，網頁的table有固定算法嗎？由上而下，尤左而右嗎？
感謝

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

7^#

發表於 2013-11-19 13:30 | 顯示全部帖子

回復 33# GBKEE

謝謝版主！我大概知道了！
謝謝

請教一下，鉅亨網的網頁常會定時重新整理
若要用上面的方法抓取時，最後不要quit
只想要將body.innertext內容放上去，不要讓鉅亨網再重新整理成原來的畫面，要加上什麼語句呢？

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

8^#

發表於 2013-11-19 22:58 | 顯示全部帖子

本帖最後由 joey0415 於 2013-11-19 23:02 編輯

回復 36# c_c_lai
我後來用excelhome 藍天大的分析法，只要輸入網頁，每個tag是哪一個都跑不掉，非常好用

還是感謝指點，教學相長

查找標籤.zip (82.59 KB)

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

9^#

發表於 2013-11-20 11:40 | 顯示全部帖子

回復 38# c_c_lai

將網址貼在首頁的 A1

再按查詢

點擊該單元格就會看到內容

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

10^#

發表於 2013-11-20 11:49 | 顯示全部帖子

回復 35# GBKEE

小弟又換了一個網站
這個網站我會用好幾種方法抓了，只不過這次換成這種方式時，如果直接run結果，會出現如下圖，卡在那一句話
表格("table")(7)是對的，因為有成功過
.document.body.innerHTML = .document.getelementsbytagname("table")(7).outerHTML

如果按F8一步步執行時，有時候會成功，有時候會失敗

Sub test1()
Dim URL As String
ActiveSheet.Cells.Clear
URL = "http://www.tdcc.com.tw/smWeb/QryStock.jsp"
With CreateObject("InternetExplorer.Application")
.Visible = True ' 是否顯示 IE
.Navigate URL
Do While .readyState <> 4: DoEvents: Loop
.document.All.tags("option")(7).Selected = True
.document.getelementsbytagname("input")(1).Value = "2330"
.document.getelementsbytagname("input")(4).Click
Do While .readyState <> 4: DoEvents: Loop
.document.body.innerHTML = .document.getelementsbytagname("table")(7).outerHTML
.execwb 17, 2 ' Select All
.execwb 12, 2 ' Copy selection
With ActiveSheet
.Cells.Clear
.[A1].Select
.PasteSpecial Format:="HTML", NoHTMLFormatting:=True
.Cells.EntireColumn.AutoFit ' 自動調整欄寬
End With
.Quit
End With
End Sub

複製代碼