返回列表 上一主題 發帖

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

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

請教各位高手,我想要抓附圖網頁上的資料,它前段的ID是用Get,後面的日期是用Post
我有試著寫看看,但總是抓不到我要的日期區間的資料,只能抓到網頁預設最近的一個星期資料
請問我是哪裡寫錯呢?
55555555555.jpg
2018-5-15 11:56

333333333.jpg
2018-5-15 11:56
  1. Sub 巨集2()
  2. ' 巨集2 巨集
  3. Dim Url As String, Post As String
  4. Url = "http://peweb/home/StencilInfo/QueryMesFlow.aspx?"
  5. Post = "txtPID=11380" & "&txtStartDate=2016-05-07" & "&txtEndDate=2018-05-07" & "&btnQuery=查詢"
  6. '
  7.     With ActiveSheet.QueryTables.Add(Connection:="URL;" & Url, Destination _
  8.         :=Range("$A$1"))
  9.         .Name = "QueryMesFlow.aspx?PID=11380"
  10.         .PostText = Post
  11.         .RefreshOnFileOpen = False
  12.         .BackgroundQuery = True
  13.         .RefreshStyle = xlInsertDeleteCells
  14.         .AdjustColumnWidth = False
  15.         .RefreshPeriod = 0
  16.         .WebSelectionType = xlAllTables
  17.         .WebFormatting = xlWebFormattingNone
  18.         .WebTables = "1"
  19.         .WebDisableDateRecognition = True
  20.         .WebDisableRedirections = False
  21.         .Refresh BackgroundQuery:=False
  22.     End With
  23.     ActiveWindow.SmallScroll Down:=-24
  24. End Sub
複製代碼

回復 1# smart3135

無法連上您提供的網址,只能建議您可以用開發人員工具(按F12)看一下POST的內容
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

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

TOP

回復 3# smart3135

不知道是不是URL Encode的問題
若將"查詢"這兩個字改成
%E6%9F%A5%E8%A9%A2
呢?
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

回復 4# iamaraymond
您好,有照您提供的試過了,一樣是不行
因為是公司內部網頁,所以也沒辦法讓您依我的程式碼測試,這是比較困擾的地方

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言,就如鑽石般珍貴;但對愚人來說,卻像是一把泥土,一點價值也沒有。
返回列表 上一主題