דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. שערים יציגים מבנק ישראל - VBA אקסס

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

מתוזמן נעוץ נעול הועבר תכנות
15 פוסטים 4 כותבים 437 צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • א ארי

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

    me.shekel = me.dollar * GetExchangeRates.sum
    
    ש מנותק
    ש מנותק
    שמעון חבצלת
    כתב ב נערך לאחרונה על ידי
    #6

    @ארי תודה רבה על כל העזרה,
    אבל הקוד נתקע כאן:
    329c13e6-957c-4ace-84f6-49826ee1299c-image.png

    א תגובה 1 תגובה אחרונה
    0
    • ש שמעון חבצלת

      @ארי תודה רבה על כל העזרה,
      אבל הקוד נתקע כאן:
      329c13e6-957c-4ace-84f6-49826ee1299c-image.png

      א מנותק
      א מנותק
      ארי
      כתב ב נערך לאחרונה על ידי
      #7

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

      JsonConverter.bas

      ש תגובה 1 תגובה אחרונה
      2
      • א ארי

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

        JsonConverter.bas

        ש מנותק
        ש מנותק
        שמעון חבצלת
        כתב ב נערך לאחרונה על ידי
        #8

        @ארי תודה על הכל
        א. עכשיו הוא מקפיץ לי את החלון הזה
        5ddc1111-c8e1-4688-9f99-ec6f605497b0-image.png
        ב. האם יש אפשרות שזה יעבוד גם אופליין ויזכור את הפעם האחרונה?

        א תגובה 1 תגובה אחרונה
        0
        • ש שמעון חבצלת

          @ארי תודה על הכל
          א. עכשיו הוא מקפיץ לי את החלון הזה
          5ddc1111-c8e1-4688-9f99-ec6f605497b0-image.png
          ב. האם יש אפשרות שזה יעבוד גם אופליין ויזכור את הפעם האחרונה?

          א מנותק
          א מנותק
          ארי
          כתב ב נערך לאחרונה על ידי
          #9

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

          ש תגובה 1 תגובה אחרונה
          2
          • א ארי

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

            ש מנותק
            ש מנותק
            שמעון חבצלת
            כתב ב נערך לאחרונה על ידי
            #10

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

            תגובה 1 תגובה אחרונה
            0
            • איש ימיניא מנותק
              איש ימיניא מנותק
              איש ימיני
              כתב ב נערך לאחרונה על ידי איש ימיני
              #11

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

              image.png

              תגובה 1 תגובה אחרונה
              0
              • איש ימיניא מנותק
                איש ימיניא מנותק
                איש ימיני
                כתב ב נערך לאחרונה על ידי
                #12

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

                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
                
                א תגובה 1 תגובה אחרונה
                1
                • איש ימיניא איש ימיני

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

                  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
                  
                  א מנותק
                  א מנותק
                  ארי
                  כתב ב נערך לאחרונה על ידי
                  #13

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

                  תגובה 1 תגובה אחרונה
                  0
                  • איש ימיניא מנותק
                    איש ימיניא מנותק
                    איש ימיני
                    כתב ב נערך לאחרונה על ידי
                    #14

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

                    א תגובה 1 תגובה אחרונה
                    0
                    • איש ימיניא איש ימיני

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

                      א מנותק
                      א מנותק
                      ארי
                      כתב ב נערך לאחרונה על ידי
                      #15

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

                      תגובה 1 תגובה אחרונה
                      0
                      תגובה
                      • תגובה כנושא
                      התחברו כדי לפרסם תגובה
                      • מהישן לחדש
                      • מהחדש לישן
                      • הכי הרבה הצבעות


                      בא תתחבר לדף היומי!
                      • התחברות

                      • אין לך חשבון עדיין? הרשמה

                      • התחברו או הירשמו כדי לחפש.
                      • פוסט ראשון
                        פוסט אחרון
                      0
                      • דף הבית
                      • קטגוריות
                      • פוסטים אחרונים
                      • משתמשים
                      • חיפוש
                      • חוקי הפורום