- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
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
|
|
發表於 2012-10-21 10:18
| 
