[發問] 複製網頁資料並貼入工作表內

gugi001

各位先進好
我想利用巨集的方式把考選部的榜單
複製並貼入EXCEL內

下段code 為爬文後找到的結果

測試後發現  
ExecWB 的複製貼上
似乎無法使用在線上檢視的PDF檔案
不知道有沒有其他的解決方法
謝謝


附上code

1. url = "http://wwwc.moex.gov.tw/main/Exam/FileHandler.ashx?F=102&N=1_10204000401.pdf&T=L&Code=102040&Sequence=1"
   
2.    
   
3.     Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
   
4.     With ie
   
5.         .Visible = True 'True為開啟ie, False為不開啟ie
   
6.         .Navigate url
   
7. 
   
8.     Do While .ReadyState <> 4 '等待網頁開啟
   
9.         DoEvents
   
10.     Loop
    
11. 
    
12.         .ExecWB 17, 2 'Select All
    
13.         .ExecWB 12, 2 'Copy selection
    
14.         '^^^^^^^^此處無法運行
    
15.         Range("A1").Activate
    
16.         ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
    
17.                 False, NoHTMLFormatting:=True
    
18.     End With

複製代碼

Hsieh

回復 1# gugi001

該pdf應該是有設置保全無法複製

gugi001

瞭解了   謝謝版主.....  看來只好手動自己抓了

gugi001

不好意思 藉標題再問一下
如果是公司年報如下
http://doc.twse.com.tw/pdf/201001_2330_A02_20130507_113011.pdf

沒有被鎖住的檔案
該如何使其自動複製並貼入工作表內呢  
謝謝