[發問] 如何找出Post查詢方法中各項 PostText 屬性!!

我想從證交所的"三大法人買賣超日報"擷取資料,如以下網址:

http://www.twse.com.tw/ch/trading/fund/T86/T86.php

希望是能夠由EXCEL表格內輸入如同以上網址中輸入的引數:"資料日期"與"分類項目"來更新data

然而因為此web查詢方式是以POST方法,而非GET,爬文看以前前輩的示範,似乎要檢視網頁原始碼找出相對引數(PostText ),如以下示範:

http://gb.twbts.com/index.php?topic=11774.8

然而此例子的 PostText = "ajax=true&yy=" & yy & "&mm=" & mm & "&input_stock_code=" & stock 是怎麼知道的??

回歸我目前想查詢的資料連結:"三大法人買賣超日報" http://www.twse.com.tw/ch/trading/fund/T86/T86.php

我又該如何建構我的程式嗎??

煩請版上的高手大大們指教^^ 謝謝!!

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2012-10-21 11:52 | 只看該作者

回復 1# 活力充沛
我是用chrome直接看原始碼找的

日期參數是 input_date , 分類項目參數是 select2
你可以試看看query網址用像這樣的格式
http://www.twse.com.tw/ch/trading/fund/T86/T86.php&input_date=101/10/19&select2=13

分類項目和對應的值如下 , 可以另建一表提供下拉選單

TOP

GBKEE

超級版主 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兔年全勤獎章

3^#

發表於 2012-10-21 11:54 | 只看該作者

回復 1# 活力充沛
新開活頁簿插入一表單 : 加入三控制項 WebBrowser1 , CommandButton1 , CommandButton2

執行表單: 1) WebBrowser1中: 選擇日期 ,分類項目 ,按下查詢
2)按下表單的CommandButton1

表單的程式碼

Option Explicit
Dim Sh As Worksheet, IE As Object
Private Sub UserForm_Initialize()
Set Sh = ActiveSheet '指定工作表: 寫入資料
With WebBrowser1
.Navigate "http://www.twse.com.tw/ch/trading/fund/T86/T86.php" '指定網址
Do While .Busy = True
DoEvents
Loop
End With
Set IE = WebBrowser1.Document
End Sub
Private Sub CommandButton1_Click() '寫入資料
Dim i, k, j
Sh.UsedRange.Clear
On Error Resume Next
For i = 0 To IE.getElementsByTagName("table")(8).Rows.Length - 1
k = k + 1
For j = 0 To 13
Sh.Cells(k, j + 1) = IE.getElementsByTagName("table")(8).Rows(i).Cells(j).innerText
Next
Next
Sh.Columns.AutoFit
Sh.Range("A1").ColumnWidth = 15
End Sub
Private Sub CommandButton2_Click() '結束程式
Unload Me
End Sub

複製代碼

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2012-10-21 12:19 | 只看該作者

回復活力充沛
日期參數是 input_date , 分類項目參數是 select2
你可以試看看query網址用像這樣的格式
http://www.twse.com.tw/ch/trading/fund/T86/T86.php&input_date=101/10/19&select2=13
...
stillfish00 發表於 2012-10-21 11:52

抱歉說錯了 , 不是query網址 , 應該是postText
像這樣去改變參數
Dim selectDate As String, selectType As String
selectDate = "101/10/19"
selectType = "13"

With QueryTables(1)
      .Connection = "URL;http://www.twse.com.tw/ch/trading/fund/T86/T86.php"
      .PreserveFormatting = False
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebDisableDateRecognition = True
      .WebTables = "9"
      .PostText = "input_date=" & selectDate & "&select2=" & selectType
      .Refresh False
End With

TOP

活力充沛