請問:如何下載PDF? 連結有點特別(含有 javascript的<a>連結)

bugsfamily

我想要做自動下載的網址有點特別(含有javascript的<a>連結)，如附圖。

下載 (115.57 KB)
HTML圖

2011-4-30 03:40

因為使用以下程式碼、可以打開 DOC 檔案，
但不知道為什麼，並不能開啟PDF的網頁連結。因為打開連結後才能再按右鍵，另存新檔。
請問大大，該如何做才好? 謝謝!!

1. Sub Test()
   
2.   Set IE = CreateObject("InternetExplorer.Application")
   
3.   IE.Navigate ("http://doc.twse.com.tw/server-java/t57sb01?step=1&colorchg=1&co_id=3013&year=99&mtype=F&")
   
4.   IE.Visible = True
   
5.   searchText = "2010_3013_20100609F02.pdf"
   
6.   Do While IE.ReadyState <> 4
   
7.   Loop
   
8. 
   
9.   countLinks = IE.Document.Links.Length
   
10.   For i = 0 To countLinks - 1
    
11.     currentText = IE.Document.Links(i).innerText
    
12.      If currentText Like searchText Then
    
13.      oldURL = IE.LocationURL
    
14.      Debug.Print i, oldURL
    
15.       IE.Document.getElementsByTagName("a").Item(i).Click
    
16.      Do While oldURL = IE.LocationURL
    
17.     '  javascript:readfile2("F","3013","2010_3013_20100609F02.pdf");
    
18.      Loop
    
19.      i = countLinks
    
20.    End If
    
21.   Next
    
22. 
    
23. End Sub

複製代碼