הורדת קבלות מאתר איזיקאונט (ezcount)

מלא

@ארי
יש לך את הקישור לPDF שהם נותנים בעת יצירה?

אם כן
אני מוריד קבלות עם הקוד הזה
זה ההצרה והפונקציה

Option Compare Database
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


Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function

וככה אני מוריד

Private Sub txtOrginalFileLink_DblClick(Cancel As Integer)
    Dim strPDFLink As String
    Dim strPDFFile As String
    Dim Result As Boolean
    strPDFLink = Me.txtOrginalFileLink
    strPDFFile = CurrentProject.Path & "\חשבוניות\" &  Me.מס_חשבונית & ".pdf"
    Result = DownloadFile(strPDFLink, strPDFFile)
    MsgBox Result

End Sub

ארי

@מלא את הקוד הזה אני מכיר. תודה.
אבל יש חלק מהקבלות שהוא מוריד אותם והקובץ הוא בגודל 2KB, מה שאומר שהוא לא באמת מצליח להוריד.

מלא

@ארי
אני מוריד איתו מסמכים לאורך זמן ולא ידוע לי על שום בעיה איתו.
הורדתי איתו מאות ואולי אלפי מסמכים

בדקת את הקישור של הקבצים האלה שבגישה ישירה הם נותנים לך מסמך תקין?
אולי זה בעיה בקישור

ארי

@מלא מוזר.
כי הקישורים עובדים לי, וכשניסיתי להריץ אותו על איזה 70 קבלות בערך חצי מהם הוא לא הוריד.

ארי

@מלא יש לך דוגמא של קישור לתת לי?
לא משהו אמיתי רק אני רוצה לראות עם איזה סוג קישור אתה משתמש.
תודה.

מלא

@ארי כתב בהורדת קבלות מאתר איזיקאונט (ezcount):

דוגמא של קישור

https://files.ezcount.co.il/front/documents/get/00e96269-f39e-407a-8d64-f8***9a0

צבי-ש

פוסט זה נמחק!

ארי

@מלא עובד לי!
ממש תודה!

מלא

@ארי
מה היתה התקלה? סתם בשביל הסקרנות, ואולי גם ללימוד....

ארי

@מלא הבעיה הייתה שניסיתי להיות יותר מדי חכם...
ניסיתי לכתוב קוד שמוצא את המיקום האמיתי של הקבלה בשרת של אמזון, ומשם להוריד.
בסוף הקוד שלך עבד מצוין.
תודה על העזרה.

תחומים - פורום חרדי מקצועי

הורדת קבלות מאתר איזיקאונט (ezcount)