מצאתי זה מסיר את שם הקובץ
(Get-Item $updated.Path).DirectoryName
מצאתי זה מסיר את שם הקובץ
(Get-Item $updated.Path).DirectoryName
@מטעמים כתב בהאטת ריצת קוד vba:
אבל שמתי לב שהוא נתקע דוקא מיד בתחילת הקוד בשורה שהוא מבצע פעולת פתיחת קובץ.
הבעיה היא כך
המחשב פותח את הקובץ ולאחר מכן אתה מסתמא מבקש שגם יגש לקובץ שהמחשב פתח ויעשה בו פעולות.
מה שקורה זה שהמחשב שלך לא מצליח לסיים לפתוח את הקובץ, וכבר הקוד vba שלך שולח בקשה לבצע פעולה בקובץ ומשום שהוא לא מצליח אז הוא קורס....
וזו הסיבה שבריצה ע"י F8 הקוד עובד מעולה.
והפתרון לזה הוא להכניס לאחר הקוד של פתיחת הקובץ קוד של טיימר של לולאה שמחכה זמן מסויים לאחר פתיחת הקובץ עד שבוודאות הקובץ נפתח ואז תוכל לגשת לקובץ ולעשות בו פעולות.
(אני לא יודע מה השימוש שלך בקובץ שאתה פותח אבל אם זה שליפת נתונים לפעמים אפשרי לשלוף אותם ללא פתיחת הקובץ כלל).
בהצלחה.
@פלורידה ראשית כל הרבה תודה על היוזמה נהניתי מאווווד מהרעיון ועל אופן הביצוע הכמעט מושלם (מושלם אין אף פעם כך שזה מושלם לגמרי)
לגבי המסד נתונים לא הרבה התעמקתי במה ש @OdedDvir כתב..
אבל אני רוצה לציין כמה דברים
אבל אם תרצה לצורך העניין להוסיף שו"ע
יש לך 4 פרמטרים
ויש עוד דוגמאות מעוד ספרים וכו'
@אביי
ברמת העיקרון את יכול להוריד כל שנה בנפרד מקלוח
יש להגדיר מיקום ואז להוריד
שים לב זה לא כזה מדוייק
@davidnead אמר בתכנות | איך להתחיל?:
ממליץ על זה, ועל עוד כמה מאמרים מעניינים שמופיעים שם:
https://he.quora.com/אילו-כישורים-חסרים-לעיתים-למתכנתיםועוד משהו חשוב עוד יותר:
https://he.quora.com/עכשיו-כשכל-אחד-יכול-ללמוד-לתכנת-האם-זה
2 הקישורים האלו חסומים בנטפריי
@magicode אמר בתכנות | איך להתחיל?:
מטרה של להיות מתכנת זה לא נחשב מטרה לדעתי.
עד עכשיו שתקתי.. אבל על המשפט הזה אני חולק מכל וכל!!!!
אני בניתי כבר כמה פרויקטים גדולים באקסס וכן אלפי שורות קוד ב vba כו' ועוד כמה פרויקטים קטנים ב#C וחשבתי (לתומי) להיתמר כמתכנת (לפחות של vba) והרי כבר עשיתי פרויקטים ... למה לא!!
אולם לאחר ש @dovid עשה לי שטיפת מוח בנידון והסביר לי מהו מתכנת אני לא רק חושב אלא בטוח שאם לא יהיה לך מטרה להיות מתכנת לא תגיע לשם לעולם אתה תבנה מלא דברים אבל כאשר תגיע לתקלות ... לא נעים.. אבל לא תמצא ידיים ורגלים בכלל (מניסיון!).
בקיצור נמרץ מתכנת הוא אחד שיודע לבנות קוד נכון (כלומר ליצור שגיאות לכל מהלך לא נכון של המשתמש בצורה הכי מיטבית) וכן לקרוא קוד נכון לא משנה באיזה צורה המתכנת הקודם כתב.
ולא רק להעתיק או לכתוב כל מיני שורות למיניהם שאתה איכשהו זוכר זה יביא אותך במקסימום לאיזו שהיא תוכנה עובדת שאתה מתפלל כל דקה שלא יצוצו לך תקלות .. שיכניסו אותך לאי נעימות.
בדרך אגב לגבי האנגלית ברור שרצוי שתלמד אנגלית (אם יש כח זה בוודאי מוסיף) אבל אני אישית בכל אופן חוץ מאותיות ולקרוא איכשהו בלי להבין כמעט מילה ב"ה אני מסתדר היטב.
מה שנשאר לאחל לך הוא בהצלחה!!!
ואל תהסס לשאול כאן בפורום מניסיון שלי .... החברה כאן מאוד אוהבים לעזור...
@odeddvir
את האמת נתקלתי בבעיה הזו וכבר סידרתי את זה על פי זה..
אבל לך מגיע הקרדיט משום תועלת הרבים...
@dovid אמר בלא מצליח לגשת למשתנה בתוך תנאי #C:
@אוריי סליחה על החריפות אבל אתה עושה דברים בלי להבין.
לא נבהל מחריפות ... אם לא זה איך אני ילמד... ככל שעולה החריפות אני לומד יותר
אבל עד כמה שתחשוב שאני עושה דברים בלי להבין אבל אתה צריך להבין אותי שאני מגיע ממקום של vba ולכן אתה רואה את הקוד שלי מסורבל מידי אבל (לאט לאט אבל בטוח) אני משתפר בזה..
@dovid אמר בלא מצליח לגשת למשתנה בתוך תנאי #C:
בשביל לבנות כזה קוד, אתה כותב פיסת קוד נסיונית קטנה שמכילה רק את מה שרלוונטי:
את האמת התחלתי גם מחתיכת קוד ניסיונית והכל עבד מעולה ומשם המשכתי. אך מה שקרה זה שבעת שהמרתי לint התחילו הצרות (מה שהתברר כטעות).
@dovid אמר בלא מצליח לגשת למשתנה בתוך תנאי #C:
אני כתבתי לך את הקוד כדי להקל על השיעורי בית וללמד אותך עוד טיפ או שניים:
אני מקווה שזה לא יהיה בגדר של לעזור לאפרוח לצאת מהביצה ...
אני בע"ה ישב טוב במוצא"ש להבין את הקוד לעומקו (אני לא מסכים לעצמי בשופו"א להעתיק סתם קוד בלי להבין יהיה כמה מסורבל שיהיה זה בשבילי קו אדום)
מצאתי את הבעיה היא הייתה בשורה הזו (שורה 7)
DisplayText = DisplayText & Result(i) & vbNewLine
החלפתי את vbNewLine
ל Chr(10)
וזה עובד מעולה
התוצאה הסופית היא
Dim TextStrng As String
Dim Result() As String
Dim DisplayText As String
TextStrng = Range("a1").Value
Result = Split(TextStrng, ";", 1000)
For i = LBound(Result()) To UBound(Result())
DisplayText = DisplayText & Result(i) & Chr(10)
Next i
MsgBox DisplayText
Range("b1").Value = DisplayText
@dovid כל מילה בסלע שום דבר לא מיותר
אני הייתי חושב להוסיף עוד משפט קטן
כשהתחלתי לכתוב קוד vab היה לי מאד קשה לזכור את השפה כך שכל פעם הייתי צריך לחפש מה עשיתי בפרוייקט אחר ולהעתיק משם את הקוד עד שלאט לאט קלטתי מה כל פקודה עושה (פשוט ללמוד ארמית בגמ')
גם כאן בעברית הזו זה לא יקל כי סו"ס אני יצטרך לזכור מה כל מילה אומרת (לא פחות אם זה היה אנגלית)
יש לי קוד כזה שמחזיר בעמודה B האם הערך קיים בקובץ וורד לפי ערכים בעמודה A
זה הקוד
אני מאמין שתוכל לשפר אותו עוד
Sub FindName()
Dim X
X = 1
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Users\sbhtk\Documents\ssss.docx")
Dim FindWord As String
Dim result As String
Do While Range("A" & X).Value <> ""
FindWord = Range("A" & X).Value
' MsgBox FindWord
'// Defines selection for Word's find function
wrdDoc.SelectAllEditableRanges
'// Word Find Method Setup Block
With wrdDoc.ActiveWindow.Selection.Find
.Text = FindWord
.Replacement.Text = ""
.Forward = True
.Wrap = 1 ' wdFindContinue (Word constant not defined in Excel)
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
' .Style = ("choose your style to look for")
End With
'// Execute find method selects the found text if found
wrdDoc.ActiveWindow.Selection.Find.Execute
'// Store Selected text
result = wrdDoc.ActiveWindow.Selection.Text
'// Test if the selection string found match value required converted case for comparison
If UCase(result) = UCase(FindWord) Then
Range("B" & X).Value = "קיים"
Else
Range("B" & X).Value = "לא קיים"
End If
X = X + 1
Loop
'// Close and don't save application
wrdApp.Quit SaveChanges:=0 ' wdDoNotSaveChanges (Word constant not defined in Excel)
End Sub
בהצלחה
@WWW אמר בחידה מתמטית לשמחת החג ולחדד את מוחות הילדים (והמבוגרים):
אתה מזכיר לי את ההוא שהיה חוצה כבישים עם תפו"א על הראש, כשביאר את כוונתו בזה שהרי סטטיסטית יש סיכון מאד גבוה במעבר כביש (רוב התאונות הקטלניות זה בעוברי רגל), אך הסיכויים שיקרה תאונה לאדם עם תפו"א על הראש שואפים לאפס...
אבל הם הוא יפגע אז הוא הופך את זה למסוכן מאד 100%
@ראש-פינה אמר בפיתרון לסליקה ממוחשבת למכונות כביסה וייבוש:
@אוריי אמר בפיתרון לסליקה ממוחשבת למכונות כביסה וייבוש:
הבעיה היא שלפעמים במצב השהייה יכול להיות שצריכת החשמל היא כמו מכונה ללא פעולה ואז במצב כזה הוא יפסיק את החשמל באמצע תוכנית
אפשר להגדיר שרק אחרי כמה דק שלא עובד רק אז יתנתק.
ואם הוא יפעיל מכונה מיד לאחר שמסתיים הוא יוכל להפעיל כמה מכונות רצוף זה פשוט חור גדול במערכת
@אף-אחד-3
מנסיון של הרבה שקעים
פרופילה מספיק אמנם היו לי מקרים שהתפרק ..
מאז אני משתמש במלט לבן עם מעט חול (טיט) לאחר שמתייבש שמתי שכבה דקה של פרופילה (ואם יש לך מתאם בונרול תוכל להיות בטוח שגם לא יהיה לך קילופים בצבע) וצבע וכו' ותשקוט הארץ ...
ואם תשתמש בשקעי גביס אתה יכול גם להיות רגוע שהשקע עצמו לא יצא מהקופסא.. מאז שאני החלפתי לא יצא לי לתקן אותם מעולם לא חיזוקים ולא כלום יש לי את זה כמה שנים
@הבוס-הגדול הבעיה בוודאות בגומיה איפה שנכנס המים מלמעלה
איך לעשות את זה זה פשוט וקל
תקנה את הגומיה הזו כאן זה עולה יקר אבל בטמבור הוא לא עולה יותר מ 1 עד 2 במקרה הגרוע..
אח"כ כנס לקישור הבא, בדף מס' 2 הוראות להחלפת אטם מצוף
ותפעל לפי ההוראות..
בהצלחה
@יוסיס מהיכרות אישית של סדרות של טלפונים בשוק ובאופי של המקשים שלהם אני מניח שמדובר בשיומי מקשים.
זה קרה גם לי בעבר וזה הציק מאוד בפעם הראשונה הדבקתי את המקשים עם דבק 3 שניות פשוט כמובן שנזהרתי מאוד מאוד שלא יכנס דבק למקש הפנימי,
אולם בפעמים האחרות בהמלצת חבר נודע על דבק 3 שניות ג'ל כמובן שגם כאן צריך להיזהר אבל הרבה יותר נח ופשוט להדביק
בכל אופן אם זה המכשיר שיש לך זה אמור להיות פתרון מעולה...
@ב-ל
ככל הנראה
אבל אני לא יודע אם יש אפשרות ואיך
תנסה לשאול איפה שקנית או
@mgm-ivr אמר במענה לצינתוקים:
אגב
אני באופן קבוע כשיש צינתוק עונה
ובחיים לא חוזר
שירד להם עוד יחידות או עוד כסף.....
אני גם בעבר חשבתי כך...
עד שהבנתי שמי ששולח את הצינטוקים ואת ההודעות מחשבן את כל האלו כמוך שעונים לטלפון בלי או עם להקשיב כי בסוף כל האלו שחוזרים (או נופלים בפח....) מכסים להם בקלות את העלות של המענה שלך... אע"פ שאתה אולי קצת יותר חכם ולא נופל בפח..
@פלורידה
א. בקשה להישפט מעכבת את התשלום וזה כל עוד שלא התחייבת בריבית לפני שביקשת להישפט (אבל בקשה לביטול לא מעכבת את התשלום ותתחייב בריבית כל עוד ולא שילמת).
ב. כן, זה סיבה מעולה בשביל לבטלו. אבל תתצטרך להוכיח.