使用VBA Selenium在Chrome中下载PDF文档

Question

我目前需要从特定网站下载多个PDF文件。

一旦我到达这一点，通常的动作是点击保存按钮或键入"保存"；CTRL+S"；

点击保存按钮

我在IE Automation 的这篇文章中检索到了这个

但我正试图用以下代码来优化下载操作：

bot.SendKeys Keys.Control, "s"

而且不起作用。

我如何在Chrome上运行此功能？

谢谢，

Answer 1

您可以使用它来下载pdf。

Dim PDF_URL as string
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As LongPtr, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As LongPtr, _
ByVal lpfnCB As LongPtr) As LongPtr
#Else
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
#End If

Private Sub File_Download()
Dim FileURL As String
Dim DestinationFile As String
FileURL = PDF_URL
DestinationFile = "C:PDFsPDFName.pdf"
If URLDownloadToFile(0, FileURL, DestinationFile, 0, 0) = 0 Then
Debug.Print "File downloaded started"
Else
Debug.Print "File downloaded not started"
End If
End Sub

Private Sub GetURL
PDF_URL = Chrome_Driver.FindElementById("EleID").Attribute("src")
File_Download
end sub

Answer 2

有很多网站可能不允许使用机器人。你应该访问网站的/robots.txt，看看是否对机器人提取你试图获取的内容有任何限制。这些部分将显示"；不允许"；任何机器人都被禁止访问。

示例：google/robots.txt

是的，网站甚至可以判断你是否在使用硒。