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

כתבת שהטבלאות חיצוניות. היכן נמצאות הטבלאות שאתה מקשר אליהן?

@yossiz תנוח דעתך שהנחת את דעתי.
מעולם לא השתמשתי בזה, אבל לכאורה אפשר לבצע מניפולציות על האובייקט של הדיאלוג ישירות, בלי להצטרך לאוטומציה.
יש דוגמא באתר של Microsoft:

Sub ShowBorderDialog() 
 With Dialogs(wdDialogFormatBordersAndShading) 
 .DefaultTab = wdDialogFormatBordersAndShadingTabPageBorder 
 .Show 
 End With 
End Sub

@מאקרו כתב בשימוש בתיבות דו שיח מובנות של פבלישר עם VBA:

כידוע בחלק מיישומי אופיס קיים אובייקט דיאלוג שנותן אופציה להשתמש עם הדיאלוגים המובנים של היישום.

לא הבנתי על איזה אובייקט דיאלוג בדיוק מדובר. תוכל בבקשה לתת דוגמא (מישום אחר)?

כמו שציין @dovid, ניתן להשתמש בפונקציה SendKeys.
בהנחה שהתוכנה פתוחה, אפשר לעבור אליה על ידי ציון שמה על ידי פונקציה נוספת: AppActivate.
הנה דוגמא בסיסית להעתקה של הבחירה בוורד לתוך VSCode:

Sub PasteInVisualStudioCode()
    SendKeys "^C", True
    AppActivate "Visual Studio Code", True
    SendKeys "^V", True
End Sub

הערות:

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

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

@laswater אם תשתף מה שעשית נוכל להגיב. בינתיים זה נראה כאילו התכוונת לאתגר אותנו.

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

כתבתי פעם מדריך קצר לזה בפורום אופיס:
http://forum-office.co.il/topic/32/מדריך-יצירת-שאילתת-חיפוש-בשדות-מרובים-בטבלה?_=1683108292675

יתכן וזה נובע ממנת יתר שלי ב-dark mode, אבל הניגודיות בין הרקע לפוסטים לא מספיקה לטעמי.
אם אני לא טועה, בעיצוב הקודם הרקע היה כהה יותר.

עיין בפוסט הזה:
https://tchumim.com/topic/10536/יצירת-מתקין-לתוכנה-עזרה

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

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

1. תא ריק - כאשר צפוי ערך
2. תא אפור (ונעול) - כאשר לא צפוי ערך.

לפעמים זה ניתן לשחזור, בפרט אם לא ביצעתם עריכה של מסמכים נוספים בינתיים.
בגירסת 365 אפשר לגשת דרך תפריט הקובץ:

ובתיקיה שנפתחת לחפש את הגרסאות הקודמות.

בגירסאות ישנות יותר תצטרכו לפתוח בעצמכם את הנתיב המדובר:

C:\Users\<שם_המשתמש_שלך>\AppData\Roaming\Microsoft\Word

אפשר לנסות גם כאן:

C:\Users\<שם_המשתמש_שלך>\AppData\Local\Microsoft\Office\UnsavedFiles

ניתן לראות את הגדרות אלו בתפריט קובץ > אפשרויות

@laswater זו שאלה שחורגת מהנושא המקורי, וראוי שתפתח נושא חדש עבורה.

@פשוט-אבל-תותח בבקשה:

1. תייבא את הספריה VBA-JSON מכאן. תוריד את הקובץ bas ותייבא לפרוייקט שלך.
2. תוסיף הפנייה לספרייה "Microsoft Scripting Runtime".
3. הקוד הבא שולח בקשת 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

4. את התגובה אתה צריך לפרסר עם הספריה 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")

התוצאה:

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

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

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

@אורח-פורח לכל שפה יש אפשרות להגדיר כמה פריסות מקשים. אתה צריך לבדוק שאין לך דברים כפולים או מיותרים גם שם.

@Y-Excel-Access כתב בקובץ אקסס שלא מוכן להתקפל:

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

לא כ"כ כדאי לשכנע אותו, עדיף לנסות להבין את הסיבה לסירוב שלו.
למעשה יש כאן תרי גווני קימפול:

1. קימפול של הקוד בקובץ accdb
2. קימפול של הקובץ accdb לקובץ ריצה accde

את 1 אתה אמור לבצע באופן סדיר בכל פעם שאתה עושה שינוי בקוד, על ידי בחירה מהתפריט: Debug>Compile בעורך ה-VBA:

אם 1 לא מצליח - היה סמוך ובטוח שגם 2 לא, אין לך מה לנסות.
צרף את הודעת השגיאה שאתה מקבל ונראה.