- 帖子
- 3
- 主題
- 1
- 精華
- 0
- 積分
- 4
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 32
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-5-6
- 最後登錄
- 2013-10-22
|
本帖最後由 gugi001 於 2013-5-6 15:53 編輯
各位先進好
我想利用巨集的方式把考選部的榜單
複製並貼入EXCEL內
下段code 為爬文後找到的結果
測試後發現
ExecWB 的複製貼上
似乎無法使用在線上檢視的PDF檔案
不知道有沒有其他的解決方法
謝謝
附上code- url = "http://wwwc.moex.gov.tw/main/Exam/FileHandler.ashx?F=102&N=1_10204000401.pdf&T=L&Code=102040&Sequence=1"
-
- Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
- With ie
- .Visible = True 'True為開啟ie, False為不開啟ie
- .Navigate url
- Do While .ReadyState <> 4 '等待網頁開啟
- DoEvents
- Loop
-
- .ExecWB 17, 2 'Select All
- .ExecWB 12, 2 'Copy selection
- '^^^^^^^^此處無法運行
- Range("A1").Activate
- ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
- False, NoHTMLFormatting:=True
- End With
|
|
發表於 2013-5-6 15:52
| 
發表於 2013-5-6 17:59
| 