שערים יציגים מבנק ישראל - VBA אקסס

[ארי]

@שמעון-חבצלת באירוע בעת לחיצה כפולה אתה שם

me.shekel = me.dollar * GetExchangeRates.sum

[מלא]

@ארי כתב בשערים יציגים מבנק ישראל - VBA אקסס:

    MsgBox "÷åã îèáò ìà çå÷é!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight

[ארי]

@מלא תוקן.
תודה.

[שמעון חבצלת]

@ארי תודה רבה על כל העזרה,
אבל הקוד נתקע כאן:

[ארי]

@שמעון-חבצלת סליחה, שכחתי לציין שצריך קוד שממיר Json לאקסס.
תוסיף את הקוד שיש בקובץ המצורף לVBA שלך (בתוך חלון הVBA בצד ימין איפה שכל המודולים, לחיצה על המקש הימני בעכבר ועל ייבוא מקובץ).

JsonConverter.bas

[שמעון חבצלת]

@ארי תודה על הכל
א. עכשיו הוא מקפיץ לי את החלון הזה

ב. האם יש אפשרות שזה יעבוד גם אופליין ויזכור את הפעם האחרונה?

[ארי]

@שמעון-חבצלת א. אתה צריך להוסיף לreferences את Microsoft scripting runtime.
ב. אתה יכול ליצור טבלה ובה לשמור את הערך האחרון שמתקבל בכל קריאה.

[שמעון חבצלת]

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

[איש ימיני]

@ארי הקישור של בנק ישראל הפסיק לעבוד.
הקוד לא עובד.
יש למישהו מושג מה הקישור המעודכן?

[איש ימיני]

שיניתי את הקוד עבור שער יציג של הדולר:
(עבורי זה מספיק)

Option Compare Database
Option Explicit
 
Public Function GetExchangeRatesUSD()
Dim str As String
Dim Json As Object

        str = "https://boi.org.il/PublicApi/GetExchangeRate?key=USD"
             
        With CreateObject("MSXML2.ServerXMLHTTP.6.0")
            .Open "GET", str, False
            .send
            str = .responseText
        End With
 
        Set Json = JsonConverter.ParseJson(str)
        GetExchangeRatesUSD = Json("currentExchangeRate")
End Function

[ארי]

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

[איש ימיני]

הקישור הזה לא עבד.
זה החזיר שגיאה.
אני רואה שעכשיו כן עובד.
מוזר.

[ארי]

@איש-ימיני מוזר.
אולי יש עבודות תחזוקה או משהו כזה.