- 帖子
- 21
- 主題
- 8
- 精華
- 0
- 積分
- 35
- 點名
- 0
- 作業系統
- winXP
- 軟體版本
- 1.0
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-8-4
- 最後登錄
- 2018-3-8
|
好像可以用 ie 查詢的方式來抓資料
Const url As String = "http://www.insidermonkey.com/insider-trading/screener/#/symbol=&price=&filing-date-from=&filing-date-to=2014-05-23&transaction=All&amount=&title-director=false&title-officer=false&title-large-shareholder=false&title-other=false&min-transaction-amount=1000000&number-of-min-insiders="
Cells.Clear
Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
With ie
.Visible = True 'True為開啟ie, False為不開啟ie
.Navigate url
Do While .ReadyState <> 4 '等待網頁開啟
DoEvents
Loop
.....
再來的 我就不會寫了
有人可以給我點提示嗎 |
|
發表於 2014-5-27 22:56
| 