如何找出Post查詢方法中各項 PostText 屬性!! - Excel程式區

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。