返回列表 上一主題 發帖

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

smart3135

帖子
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
我有試著寫看看，但總是抓不到我要的日期區間的資料，只能抓到網頁預設最近的一個星期資料
請問我是哪裡寫錯呢？

  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
複製代碼
收藏 分享

smart3135

帖子
96 
主題
18 
精華
0 
積分
125 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-3-23 
最後登錄
2022-8-2 
2#
發表於 2018-5-15 18:35 | 顯示全部帖子
回復 2# iamaraymond
不好意思，由於是公司內部網頁，所以在公司外連不上去
我的附圖紅框處就是按F12找到的幾個POST的關鍵詞
但不論怎麼搭配，都無法下載我要的區間資料到EXCEL
應該是我程式碼中的"Post = "txtPID=11380" & "&txtStartDate=2016-05-07" & "&txtEndDate=2018-05-07" & "&btnQuery=查詢"
這段有問題，但又不知道是哪裡出問題，所以才上來請教高手

TOP

smart3135

帖子
96 
主題
18 
精華
0 
積分
125 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-3-23 
最後登錄
2022-8-2 
3#
發表於 2018-5-15 22:23 | 顯示全部帖子
回復 4# iamaraymond
您好，有照您提供的試過了，一樣是不行
因為是公司內部網頁，所以也沒辦法讓您依我的程式碼測試，這是比較困擾的地方

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題