从网站/网页下载/保存文件

Question

我需要从下面的链接中下载第一/前5个日期的PDF文件，并将它们保存在桌面上。我不知道如何开始，但也找不到明确的谷歌。

你认为你可以帮我吗？

http://cetatenie.just.ro/ordine/articol-11/

Answer 1

我会使用IE浏览器，并使用SHDocVw.InternetExplorer对象自动执行它（VBA参考 'Microsoft Internet控制'，ieframe.dll）。

您可以（一）创建使用Set x = New SHDocVw.InternetExplorer或（b）取得使用Set owins = CreateObject("Shell.Application").Windows现有的Internet Explorer窗口，一个新的Internet Explorer窗口（owins是一个数组，通过它循环，直到你找到一个地方Mid(TypeName(owins(i).Document), 1, 12) = "HTMLDocument"）。

一旦你有一个Internet Explorer ie，你可以拨打ie.Navigate(url)去一个网站。

要等待的Internet Explorer浏览完你询问它之前，你可以运行类似：

Do While mascot_win.Busy 
    Application.Wait DateAdd("s", 1, Now) 
    DoEvents 
Loop 

要获取该网页上的第一个五年PDF文件的URL，你需要检查页面的HTML。有两种方法，取决于HTML的格式。如果HTML编写得很好，则可以使用ie.Document.all()导航文档对象模型（标记，如XML）。但是，如果HTML格式不正确，则可能不得不求助于阅读ie.Document.all(0).innerHTML中的HTML。

在你给的链接的外观，你会寻找的东西，如：

<li>Data de <strong>22.03.2013</strong>, numarul: <a href="/wp-content/uploads/Ordin-149P-din-22.03.2013.pdf">149P</a></li> 

一旦你已经相互隔离PDF URL（使用<a>标签的任何属性在DOM模型或使用大量的HTML Mid()电话），您可以使用下载：

Private Declare Function URLDownloadToFile _ 
Lib "urlmon" _ 
Alias "URLDownloadToFileA" _ 
(_ 
    ByVal pCaller As Long, _ 
    ByVal szURL As String, _ 
    ByVal szFileName As String, _ 
    ByVal dwReserved As Long, _ 
    ByVal lpfnCB As Long _ 
) As Long 

Dim ss As String 
Dim ts As String 
ss = "http://blah/blah/blah.pdf" 
ts = "c:\meh\blah.pdf" 
URLDownloadToFile 0, ss, ts, 0, 0