@פשוט-אבל-תותח בבקשה: תייבא את הספריה VBA-JSON מכאן. תוריד את הקובץ bas ותייבא לפרוייקט שלך. תוסיף הפנייה לספרייה "Microsoft Scripting Runtime". הקוד הבא שולח בקשת GET ומחזיר מחרוזת של התוכן: Public Function HttpGet(url As String) As String Dim httpRequest As Object Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1") Dim res As String httpRequest.Open "GET", url, False httpRequest.Send HttpGet = httpRequest.responseText End Function את התגובה אתה צריך לפרסר עם הספריה VBA-JSON. הנה דוגמא לשימוש ב-API של טסטים, שמחזיר נתוני דמה של משתמשים, ושליפת ערך השדה "firstname" מהתגובה: Dim res As String Dim json As Object res = HttpGet("https://jsonplaceholder.typicode.com/users/1") Set json = ParseJson(res) MsgBox json("username") התוצאה: [image: 1678837943951-8199d788-ad65-44eb-b7e7-41d6fbdf870b-%D7%AA%D7%9E%D7%95%D7%A0%D7%94.png]

:(טוב. אז אתן את הפתרונות שלי לבינתיים. ראשית אסביר את הצורך: פונקציות SHEETS יש בהם מעלה מבחינות מסוימות על JS: הם צפויות מאוד, וכל הזמן יש תוצאה ברורה לערך הנצרך. משא"כ בJS שהיא שפה לא מקומפלת, אז יש התמודדות כל הזמן עם באגים אפשריים. הם עוקבות אחרי מיקומי התאים - ההפניות מתעדכנות, כך שאין סכנה שבשינוי שם גליון או מיקום תא הכל יקפוץ פתאום או יותר גרוע - יחשב בטעות בלי שנדע. אין בהם הגבלת זמן - בשונה מהגבלות הזמן של APP SCRIPT ל30 שניות לפעולה בודדת ושעה וחצי לכל יום לכל הפרויקטים של כתובת המייל הנוכחית (כשיש הרבה פרויקטים, או כשמתמשים בAPP SCRIPT למשהו אחר זה מגביל). הצורך בשימוש ב JS: פונקציות SHEETS כשהם מתחילות להיות ברמה גבוהה, הקובץ נטען לאט יותר. עד כדי סכנה מפני קפיאת הקובץ. בייבוא על ידי IMPORTRANGE , אם החישוב הקודם היה באמצעות פונקציות זה נחשב כבד יותר, ואז מהר מאוד נגיע לבאג של גוגל המעצבן שפתאום ללא התראה, גם כשהקובץ סגור, הפונקציה הופכת להיות ERROR. אז הפתרון שלי: יצרתי פונקציה מותאמת אישית (בתוך SHEETS - לא קשור לAPP SCRIPT) הכותבת תווים מיוחדים וממוקמת בגליון נפרד, שם כל אירוע קורא אותה. קראתי לה SETVALUES והיא מחשבת את הפונקציות ופורסת את מערך התוצאה בשרשור ארוך בתא בו היא נמצאת, שאותו הJS קורא ומיישם. הבעיה בפתרון שלי שמגבלות התאים הם 50,000 תווים לכל תא, כך שבמערכים גדולים - שעבורם השימוש, יהיה צורך לפצל וכו'... כך שעכ"פ זה גם לא פתרון מושלם. נשמח לשמוע על רעיונות נוספים.

לאחר ש @בער פנה אלי בפרטי, הוברר שלעיתים חוזרת שגיאת אימות הרשאות בקוד האחרון (לעריכת קובץ אחר), לכן במידה וזה קורה צריך להוסיף באופן ידני את היקפי ההרשאות לקובץ המניפסט של הסקריפט "oauthScopes": [ "https://www.googleapis.com/auth/spreadsheets" ], בשביל להציג את המניפסט, יש ללחוץ על סמל ההגדרות מימין, ולסמן וי בהצג את המניפסט. [image: 1678827105959-b7cec72d-f955-4907-a5bf-6db465ab46d1-image.png] [image: 1678827143875-2addc2e2-6c79-424a-8287-e9782015573e-image.png]

@שואף תבדוק שאין מקש אחר שמשמש כALT כי ייתכן שהחלפת בטעות בין המקשים

@מלמדן קרא את חוקי הפורום. ותשתדל לכתוב בלי טעויות כתיב.

@בער הלואי והיה אפשר לפתור את זה ברמת הפורמס... אם תדע, אשמח מאוד לשמוע, יהיה לי נפק"מ הרבה. הפתרון הפשוט הוא ליצור בשיטס המקבל את הנתונים פונקציה =ARRAYFORMULA(IF(A:A100="ארה""ב",B:B100,C:C100)

@ivrtikshoret אתה בטח מכיר אותה. הורדתי את זה מכאן, http://www.runtime.org/data-recovery-software.htm ואצלי במחשב זה הותקן עם רישיון פרוץ, לא יודע איך. במה זה יותר טוב מ easeus ? במקרה שלי זה יותר טוב, כי הצלחתי לשחזר רוב התמונות באיכות מקורית, ולא כמו ב easeus שרק שחזר אבל לא הצלחתי לצפות בתמונות.

@ארי התשובה שקיבלתי מחברת קשר, אם רלוונטי למישהו: הפסקנו לעבוד בשיטת GET עקב בעיות אבטחה, מעתה בקשות יתבצעו רק דרך POST, פרמטרים מועברים כ-BODY, במקום params עד עתה. בהצלחה.

@מעלה-ומוריד ה- "משהו" הזה זה התוכנה שעושה גוקים או זבובים במסך, יכול להיות? יש כזה קובץ שמסתובב....

@Y-Excel-Access אני כל כך ניחשתי לעצמי שזה משהו טיפשי למדי כך שהתעצלתי במשך לילה שלם לכתוב כאן שאלה ... כנראה שלא חישבנתי את מרפי...

@יוסף-בן-שמעון אתה כ"כ צודק, זה כמעט בלתי הפיך. הייתה תועלת רבה אם התגובה שלך הייתה קודמת לשלי. @מעלה-ומוריד אני התחלתי תכנות ממאקרו בווורד. עזרתי לאחי להוציא ספר. לא הכרתי שום דבר שאינו דרך המאקרו ועשיתי שמה ניסים ונפלאות עד שהחלטתי לברר על השפה, אולי יש שמה טריקים שאני לא מכיר, וככה אח"כ התקדמתי. כל פעם שאתה רוצה אוטומציה הכי טוב לנסות קודם הקלטת מאקרו הכי ידני שאפשר, לראות את הקוד שנוצר ולנסות להתאים אותו.

@OdedDvir כתב באכסס - פתיחת שני טפסים במקביל: למעשה, הגדרת טופס X כמודולרי גורמת שלא יוכלו לפתוח שום טופס אחר, מודולרי או לא, בזמן שטופס X פתוח. (לפחות לא בצורה סטנדרטית) אם הטופס לא נפתח מתוך הטופס הראשוני: אי אפשר לפתוח שום טופס, מוקפץ או לא, אם הוא לא מודלרי. אם הטופס נפתח מתוך הטופס הראשוני: אם הטופס השני לא מוקפץ, הוא יפתח ולא יהיה אפשר לתפוס אותו. אם הטופס השני מוקפץ בלבד, הוא יפתח ויהיה אפשר לערוך אותו ואת הטופס הראשון. אם הטופס השני הוא גם מודולרי, יהיה אפשר לערוך רק אותו, עד שהוא ייסגר ויהיה אפשר לערוך את הראשון. אני מצרף דוגמה שבניתי הרגע.‏‏Microsoft Access Database חדש.accdb (יוצא שעדיין הנוסח הקודם שלי לא היה מדוייק...)

@בער כתב בנוסחאות בגוגל שיטס בין קבצים: @בער כתב בנוסחאות בגוגל שיטס בין קבצים: @אביי כן זה עובד אבל שאלה: אם אני רוצה להביא עם הנוסחה רק עמודות ספציפיות כגון A C F איך אני רושם את זה. ברגיל רושמים את זה עם { }, איך עושים את זה בנוסחת IMPORTRANGE? זה מה שיצא לי.... =FILTER({IMPORTRANGE("https://docs.google.com/spreadsheets/d/1VIsjQAdAFnEd8bO_5ck3lzC0aUfKLmlXmSIOYCyGPUE/edit#gid=280443997","אספקה חדש!$B:$B"),IMPORTRANGE("https://docs.google.com/spreadsheets/d/1VIsjQAdAFnEd8bO_5ck3lzC0aUfKLmlXmSIOYCyGPUE/edit#gid=280443997","אספקה חדש!$U:$U"),IMPORTRANGE("https://docs.google.com/spreadsheets/d/1VIsjQAdAFnEd8bO_5ck3lzC0aUfKLmlXmSIOYCyGPUE/edit#gid=280443997","אספקה חדש!$F:$F")},IMPORTRANGE("https://docs.google.com/spreadsheets/d/1VIsjQAdAFnEd8bO_5ck3lzC0aUfKLmlXmSIOYCyGPUE/edit#gid=280443997","אספקה חדש!$W:$W")="חטיפים") מצויין, אבל לכאורה זה עלול להיות כבד, בפרט אם יהיה לך הרבה עמודות, כי יש הרבה קריאות שוב ושוב לחוברת עבודה אחרת. יש באג בגוגל בייבוא מחוברת עבודה לחוברת עבודה, שקורה במקרה וישנה נוסחה עם חישובים מורכבים בגליון הקודם או בייבוא תאים מרובים מדי. פשוט מדי פעם הפונקציה הופכת לשגיאה, ורק במחיקת הפונקציה וכתיבתה מחדש היא תחזור לעבוד. אולי אני טועה, אבל יכול להיות שלפ"ז יש נפק''מ לנסות לצמצם בקריאות IMPORTRANGE ולכתוב בגליון מקור את הנתונים סמוכים, כך הקריאה תהיה אחת, ל A:D.

@חייםיודלביץ תודה. אבל אני גם מעוניין לחסום אפשרות של מעבר לחלון אחר בווינדוס ע"י Alt+Tab לדוג'. בעצם להפוך את התוכנת אקסס לקיוסק.

@אוריי לכאו' יש שתי אפשרויות. כמו שיש לך, רק עם סינון כך: Dim EditAbsent As Recordset Set EditAbsent = CurrentDb.OpenRecordset("select * from [רשימת תורמים] where קוד_תורם = 1") EditAbsent.Edit EditAbsent!נפקד = True EditAbsent.Update לעשות פשוט שאילתת עדכון בלי צורך בRecordSet, כך: Currentdb.Execute "update [רשימת תורמים] set [רשימת תורמים].נפקד = true where קוד_תורם = 1" בעיקרון האפשרות השניה היא דרך המלך, וכך לא צריך משתנים וכו', שורה אחת וזהו.

@יששכר-יעקבזון תדביק את זה באירוע פסיקת שעון של הטופס On Error GoTo err If Me.Recordset.RecordCount = 0 Then Exit Sub ElseIf Me.CurrentRecord = Me.Recordset.RecordCount Then DoCmd.GoToRecord , , acFirst Else DoCmd.GoToRecord , , acNext End If err: Exit Sub ותשים הגדרה של כמה שניות שאתה רוצה בקצב פסיקת שעון. (כל 1000 זה שניה)

מצאתי את הבעיה יש להיכנס למאפיינים > הגדרות לקוח > מימין לשמאל לסגור ולפתוח את האקסס מחדש.. ורק אח"ז יש להעביר את הטופס משנה לטופס. תודה רבה לכולם [image: 1677501215969-c17f87e1-f888-469e-a1e2-b75bac20c3d9-image.png]

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