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

[發問] 請教這個網頁要如何利用post取得資料？

smart3135

中學生 Rank: 2

帖子: 96
主題: 18
精華: 0
積分: 125
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2014-3-23
最後登錄: 2022-8-2

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-5-15 11:58 | 只看該作者

[發問] 請教這個網頁要如何利用post取得資料？

請教各位高手，我想要抓附圖網頁上的資料，它前段的ID是用Get，後面的日期是用Post
我有試著寫看看，但總是抓不到我要的日期區間的資料，只能抓到網頁預設最近的一個星期資料
請問我是哪裡寫錯呢？

Sub 巨集2()
' 巨集2 巨集
Dim Url As String, Post As String
Url = "http://peweb/home/StencilInfo/QueryMesFlow.aspx?"
Post = "txtPID=11380" & "&txtStartDate=2016-05-07" & "&txtEndDate=2018-05-07" & "&btnQuery=查詢"
'
With ActiveSheet.QueryTables.Add(Connection:="URL;" & Url, Destination _
:=Range("$A$1"))
.Name = "QueryMesFlow.aspx?PID=11380"
.PostText = Post
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-24
End Sub

複製代碼

樓主熱帖

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

2^#

發表於 2018-5-15 13:47 | 只看該作者

回復 1# smart3135

無法連上您提供的網址，只能建議您可以用開發人員工具(按F12)看一下POST的內容

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

smart3135

中學生 Rank: 2

帖子: 96
主題: 18
精華: 0
積分: 125
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2014-3-23
最後登錄: 2022-8-2

3^#

發表於 2018-5-15 18:35 | 只看該作者

回復 2# iamaraymond
不好意思，由於是公司內部網頁，所以在公司外連不上去
我的附圖紅框處就是按F12找到的幾個POST的關鍵詞
但不論怎麼搭配，都無法下載我要的區間資料到EXCEL
應該是我程式碼中的"Post = "txtPID=11380" & "&txtStartDate=2016-05-07" & "&txtEndDate=2018-05-07" & "&btnQuery=查詢"
這段有問題，但又不知道是哪裡出問題，所以才上來請教高手

TOP

iamaraymond