Board logo

標題: [發問] 請教這個網頁要如何利用post取得資料？ [打印本頁]
作者: smart3135    時間: 2018-5-15 11:58     標題: 請教這個網頁要如何利用post取得資料？

請教各位高手，我想要抓附圖網頁上的資料，它前段的ID是用Get，後面的日期是用Post
我有試著寫看看，但總是抓不到我要的日期區間的資料，只能抓到網頁預設最近的一個星期資料
請問我是哪裡寫錯呢？
[attach]28715[/attach]
[attach]28716[/attach]
  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
複製代碼
作者: iamaraymond    時間: 2018-5-15 13:47

回復 1# smart3135

無法連上您提供的網址，只能建議您可以用開發人員工具(按F12)看一下POST的內容
作者: smart3135    時間: 2018-5-15 18:35

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

回復 3# smart3135

不知道是不是URL Encode的問題
若將"查詢"這兩個字改成
%E6%9F%A5%E8%A9%A2
呢?
作者: smart3135    時間: 2018-5-15 22:23

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)