שאלה| שגיאה בתקשור עם מערכת באקסס

[צבי 10]

אני מעוניין להוריד קובץ LogEnterExit שבתיקייה.
כתבתי ב Importing את הקוד הבא ומחזיר שגיאה בשורת text = GetFile
מישהו יכול לעזור לי?

Const USERNAME As String = "0773137770"
Const PASSWORD As String = "1234"
Const BASE_URL = "https://call2all.co.il/ym/api"



Sub Import()
Dim text As String
Dim Fields As Variant

DoEvents
SysCmd acSysCmdSetStatus, "מוריד..."
Fields = Array("Folder", "Phone", "EnterDate", "EnterTime", "ExitTime", "TimeTotal")
text = GetFile(BASE_URL & "/DownloadFile?token=" & USERNAME & ":" & PASSWORD & "&path=ivr/Log/LogFolderEnterExit-2020-04-00.ymgr
ImportTextToTable text, "Listening", Fields, 3
ImportIDListallInformation

[amp Software 0]

@צבי-10
מה השגיאה שקופצת לך?
לא הבאת בהודעה הזו שום מידע (חוץ מהקוד עצמו - שהוא פיתוח אישי (...) ולא משהו שכולם אמורים להכיר)

[צבי 10]

@amp-Software-0 השגיאה היא בקוד, שהשורה שמתחילה ב text היא באדום (ככל הנראה מבעיות תחביר).

שהוא פיתוח אישי (...)

נכון, זה של $אריה, אבל הוספתי לבד.

[amp Software 0]

@צבי-10 חסר לך סגירת גרשיים וסגירת סוגריים

text = GetFile(BASE_URL & "/DownloadFile?token=" & USERNAME & ":" & PASSWORD & "&path=ivr/Log/LogFolderEnterExit-2020-04-00.ymgr")

[צבי 10]

@amp-Software-0 שגיאה. ומדגיש לי את שורה err.Raise 10001 בצהוב

 ' Check for colon and skip if present or throw if not present
    json_SkipSpaces json_String, json_Index
    If VBA.Mid$(json_String, json_Index, 1) <> ":" Then
        err.Raise 10001, "JSONConverter", json_ParseErrorMessage(json_String, json_Index, "Expecting ':'")
    Else
        json_Index = json_Index + 1
    End If

[amp Software 0]

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

ספציפית לגבי השגיאה שמופיעה
הוא כותב שהקובץ שביקשת להוריד לא קיים בשלוחה
רק כנראה בפיתוח ש @אריה עשה לך הוא החריג את האימות האם הקובץ קיים בשלוחה (בקובץ המקורי שלו זה קיים), ולכן האקסס מקבל תגובה מימות שהקובץ לא קיים, מנסה לנתח אותו כ JSON, ונתקל בשגיאה כי זה לא בפורמט תקין

[amp Software 0]

@amp-Software-0
השם של הקובץ שהבאת בדוגמא הוא 2020-04-00 בטח התכוונת ל 2020-04