Пытаюсь зайти на сайт отслеживания компании и загрузить документы из файла на диск C, при открытии загруженных документов с диска C я получаю сообщение об ошибке, т.е.
Adobe Reader не удалось открыть pdf, так как он не поддерживает тип файла или файл поврежден
Можете ли вы сообщить, есть ли другой способ загрузить файл PDF с веб-сайта?
Option Explicit
#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
Sub DowloadSingleFile()
Dim FileURL As String
Dim DestinationFile As String
FileURL = "https://expo.expeditors.com/expotr/expotr?action=com.expd.webapp.tracking.action.document.DocumentImageDownloadWebAction&Type=Image.Get&xref=IVP9OABdjwlQyfAP4d8VNzKeBtYse1TlCWJmb5gzyMxbwbgxBLP19w%3D%3D"
DestinationFile = "C:\VBA\4750422330.pdf"
If URLDownloadToFile(0, FileURL, DestinationFile, 0, 0) = 0 Then
Debug.Print "file download started"
Else
Debug.Print "file download not started"
End If
End Sub