אופיס 365 יצירת קובץ מס"ב

[קוזמירר]

תשואות חן חן

אני מצדיע לך מושי, ממש מרגש לראות נכונות 'להזיע' למען הזולת גם כשלא מכירים אותך, מה שנקרא חסד של אמת

 

[moishy]

תחפש את האמור לעיל, ולאחר סימן השווה כתוב את הנתיב המלא של היעד הרצוי.

 

[יאיר משה]

אני מנסה לכתוב לו -C:\מסב . והוא כותב לי שגיאה.

 

[FullTime]

אני מנסה לכתוב לו -C:\מסב . והוא כותב לי שגיאה.

תעשה את זה עם מרכאות
ככה
"C:\מסב"

 

[יאיר משה]

הוא כותב לי את השגיאה בפקודה -

Open TextFileName For Output As intNum

 

[moishy]

"C:\מסב\"

 

[יאיר משה]

תודה רבה, עובד.

 

[FullTime]

סתם הערה..

צריך להוסיף רק Exit Sub
אחרי המייסג' כשעושים 'ביטול' בעת בחירת הקובץ
כדי שלא יופיע ההודעה יצירת הקובץ נכשלה.....

 

[יאיר משה]

מוישי יש בעיה.
ברגע ששדה הסכום גדול משתי ספרות עשרוניות (וא"א למנוע זאת בשדה מחושב, ואף ההגדרה של שתי ספרות עשרוניות לא עזרה) הכל משתגע והסכומים במס"ב הופכים למיליונים.
פתרתי זאת ע"פ הרעיון הראשון להכפיל את סכום הבסיס ב100 והגדרתי את השדה ע"פ נוסחת Clng המונעת ספרות עשרוניות בכלל, והסתדר ב"ה.

 

[FullTime]

מוישי יש בעיה.
ברגע ששדה הסכום גדול משתי ספרות עשרוניות (וא"א למנוע זאת בשדה מחושב, ואף ההגדרה של שתי ספרות עשרוניות לא עזרה) הכל משתגע והסכומים במס"ב הופכים למיליונים.
פתרתי זאת ע"פ הרעיון הראשון להכפיל את סכום הבסיס ב100 והגדרתי את השדה ע"פ נוסחת Clng המונעת ספרות עשרוניות בכלל, והסתדר ב"ה.

וא"א לעשות אותו עם round לשתי ספרות עשרוניות ?

 

[שמח לעזור]

אכן אפשר לעשות Round ככה:

Round(1.2345, 2)

זה מחזיר 1.23.

 

[moishy]

או אם לא רוצים לעגל סכומים ניתן לעשות משהו מעין זה:

CDbl(Left([שדה מחושב], InStr([שדה מחושב], ".") + 2)) * 100

 

[FullTime]

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

 

[יאיר משה]

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

 

[FullTime]

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

מה התקלה?
כי אצלי הוא ביצע גביה בפועל גם כן.

 

[יאיר משה]

סליחה על העיכוב לתשובה.

הבעיה היתה שכאשר מספר החשבון אינו בן 8 ספרות הקוד הוסיף את האפסים בסוף ולא בהתחלה וכששידרתי למס"ב בפעם הראשונה קובץ בן 550 רשומות הם התקשרו לומר ש350 רשומות לא תקינות, וקובץ בסך של 350000 ש"ח חזר.
וכשבדקתי ראיתי שבגירסה האחרונה שמוישי פרסם אין את הבעיה הזאת ורק אני שהשתמשתי באחת הגרסאות הקודמות היתה לי את הבעיה הזאת.

 

[FullTime]

תודה רבה מאוד למוישי על עזרתו הרבה בפרסום קובץ זה.​

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

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

 

[moishy]

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

תודה על המילים החמות, אבל הוא ממש לא מושלם. תמיד יש מה לשפר.

 

[FullTime]

תודה על המילים החמות, אבל הוא ממש לא מושלם. תמיד יש מה לשפר.

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

 

[FullTime]

למי שמשתמש עם הקוד, יש לעיין באשכול זה.

http://www.prog.co.il/showthread.php?p=1095609#post1095609