请帮忙修改下代码，用于下载网上的PDF文档

schliemann

我原来的设想是从这个网址（https://www.hongkongairport.com/ ... e/fact-figures.page）上打开相应的PDF文档，并且也写好了代码，但公司的浏览器有时候不好使，打开不了PDF，所以想将PDF保存到指定位置。我之前的代码是照猫画虎写的，对InternetExplorer.Application并不是太熟，所以请大神帮忙修改一下。

1. Option Explicit
   
2. 
   
3. Sub GetHKPDF()
   
4. 
   
5. Dim IE As Object
   
6. Dim strUrl As String
   
7. 
   
8. Set IE = CreateObject("internetExplorer.Application")
   
9. 
   
10. With IE
    
11.     .Visible = False
    
12.     .navigate "https://www.hongkongairport.com/en/the-airport/hkia-at-a-glance/fact-figures.page"
    
13.     Application.StatusBar = "The webpage is loading, please wait..."
    
14.     Do While .readystate <> 4
    
15.         DoEvents
    
16.     Loop
    
17. End With
    
18. 
    
19.     Application.StatusBar = "The webpage is fully loaded."
    
20.    
    
21.     'construct the string of PDF with input from the user
    
22.     Dim PDFname As String
    
23.     PDFname = "/iwov-resources/file/the-airport/hkia-at-a-glance/facts-figures/"
    
24.     PDFname = PDFname & Cells(1, 1)
    
25.     PDFname = PDFname & "e.pdf"
    
26.     Debug.Print PDFname
    
27.    
    
28.     'looking for the PDF,when the hyperlink contains the PDF name, click the link
    
29.     'to open it
    
30.    
    
31.     Dim strFound As Boolean
    
32.     Dim aTag As Variant
    
33.     strFound = False
    
34.    
    
35.     For Each aTag In IE.document.GetElementsBytagName("a")
    
36.         If aTag.getattribute("href") = PDFname Then
    
37.             aTag.Click
    
38.             strFound = True
    
39.             Exit For
    
40.         End If
    
41.     Next
    
42.    
    
43.     'Notify the user that the PDF is not found.
    
44.     If strFound = False Then
    
45.         MsgBox "HongKong AA has not yet published the statistics.Please try it later."
    
46.     End If
    
47.    
    
48. Set IE = Nothing
    
49. Application.StatusBar = False
    
50. 
    
51. End Sub

复制代码

schliemann

顶一下，咋都没人看 ：-）

onlycxb

schliemann 发表于 2018-7-4 12:56
顶一下，咋都没人看 ：-）

onlycxb

机场PDF下载.zip (4.76 KB, 下载次数: 20)

2018-7-5 09:17 上传

点击文件名下载附件

schliemann

谢谢老师的回复。请问老师是用什么软件做的？能否在我原先的代码上更改一下？因为公司的电脑只能用Excel，不能安装外来的软件。谢谢啦。