שערים יציגים מבנק ישראל - VBA אקסס
-
@שמעון-חבצלת באירוע בעת לחיצה כפולה אתה שם
me.shekel = me.dollar * GetExchangeRates.sum
@ארי תודה רבה על כל העזרה,
אבל הקוד נתקע כאן:
-
@ארי תודה רבה על כל העזרה,
אבל הקוד נתקע כאן:
@שמעון-חבצלת סליחה, שכחתי לציין שצריך קוד שממיר Json לאקסס.
תוסיף את הקוד שיש בקובץ המצורף לVBA שלך (בתוך חלון הVBA בצד ימין איפה שכל המודולים, לחיצה על המקש הימני בעכבר ועל ייבוא מקובץ). -
@שמעון-חבצלת סליחה, שכחתי לציין שצריך קוד שממיר Json לאקסס.
תוסיף את הקוד שיש בקובץ המצורף לVBA שלך (בתוך חלון הVBA בצד ימין איפה שכל המודולים, לחיצה על המקש הימני בעכבר ועל ייבוא מקובץ).@ארי תודה על הכל
א. עכשיו הוא מקפיץ לי את החלון הזה
ב. האם יש אפשרות שזה יעבוד גם אופליין ויזכור את הפעם האחרונה? -
@ארי תודה על הכל
א. עכשיו הוא מקפיץ לי את החלון הזה
ב. האם יש אפשרות שזה יעבוד גם אופליין ויזכור את הפעם האחרונה?@שמעון-חבצלת א. אתה צריך להוסיף לreferences את Microsoft scripting runtime.
ב. אתה יכול ליצור טבלה ובה לשמור את הערך האחרון שמתקבל בכל קריאה. -
@שמעון-חבצלת א. אתה צריך להוסיף ל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
-
שיניתי את הקוד עבור שער יציג של הדולר:
(עבורי זה מספיק)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
-
@איש-ימיני מוזר.
אולי יש עבודות תחזוקה או משהו כזה.