麻辣家族討論版版 » Excel程式區 » 請問這個網頁如何用WEB查詢輸入excel

12 3 4 5 6 7 8 下一頁

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 36
主題: 9
精華: 0
積分: 51
點名: 0
作業系統: Win7
軟體版本: Office2003
閱讀權限: 20
性別: 男
註冊時間: 2011-10-30
最後登錄: 2015-1-31

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-11-15 22:02 | 只看該作者

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

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
----------------------------------------------------------------------------------------------

樓主熱帖

收藏

Hi~

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 9
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
性別: 男
註冊時間: 2010-7-18
最後登錄: 2016-12-14

77^#

發表於 2014-1-21 21:02 | 只看該作者

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

E-mail: [email protected]
感激不敬~

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: windows7
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2013-12-5
最後登錄: 2013-12-8

76^#

發表於 2013-12-7 02:16 | 只看該作者

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

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

75^#

發表於 2013-11-22 09:04 | 只看該作者

回復 72# GBKEE

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "about:Tabs"
' ie.Visible = True
Set shts = ActiveSheet ' Sheets("工作表2")
shts.Cells.Clear
URL = "http://www.cnyes.com/twstock/Institutional/1101.htm"
With CreateObject("InternetExplorer.Application")
' .Visible = True ' 是否顯示 IE
.Navigate URL

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

74^#

發表於 2013-11-22 09:01 | 只看該作者

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

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

73^#

發表於 2013-11-22 08:44 | 只看該作者

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

72^#

發表於 2013-11-22 08:33 | 只看該作者

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

71^#

發表於 2013-11-22 08:17 | 只看該作者

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

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

70^#

發表於 2013-11-22 08:03 | 只看該作者

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

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

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

69^#

發表於 2013-11-22 07:48 | 只看該作者

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

靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。

12 3 4 5 6 7 8 下一頁

返回列表下一主題上一主題