Веб-сайт для загрузки Adobe Reader не может открыть PDF, потому что это не поддерживаемый тип файла или потому что файл был поврежден - PullRequest
0 голосов
/ 06 ноября 2018

Пытаюсь зайти на сайт отслеживания компании и загрузить документы из файла на диск 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...