הורדת קבלות מאתר איזיקאונט (ezcount)
-
שלום וברכה.
אני משתמש בפלטפורמה של איזיקאונט (www.ezcount.co.il) להנפקה של קבלות.
אני מנסה לכתוב קוד להוריד קבלות אחרי שהם כבר הונפקו באמצעות הקישור של הקבלה.
אמנם בקודים הרגילים של ההורדה (URLDownloadToFile וכדו') אני נתקל בשגיאות.
האם מישהו משתמש באתר שלהם ויש לו ניסיון בזה?
יצויין שאני מנסה להוריד דרך VBA באקסס.
תודה רבה. -
@ארי
יש לך את הקישור ל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
-