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

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

cscript /nologo "%~dp0ExcelCsvConvertorScript.vbs" "%~dpnx1" "%~dpn1.%2" %2

@shraga כתב בחיפוש תוכנה: המרת קובץ אקסל (xlsx) לcsv:

אולי מישהו יתנדב לסדר לך משהו מושלם.

@dovid כתב בחיפוש תוכנה: המרת קובץ אקסל (xlsx) לcsv:

את החלק האחרון אני לא יודע בדיוק איך מבצעים.

@Whenever כתב בחיפוש תוכנה: המרת קובץ אקסל (xlsx) לcsv:

אני חושב להפוך את סקריפט שימיר CSV לאקסל. זה יהיה לי שימושי.

אחרי ש @mekev עשה עבודה יפה, אני מתנדב בשמחה להוסיף את השיפורים שלי:

סקריפט batch משופר להמרה דו כיוונית (Excel<->Csv):

@echo off
if /i [%2]==[csv] goto TryConvert
if /i [%2]==[xlsx] goto TryConvert

echo Unsupported output format specified: %2
exit /b

:TryConvert
echo Converting file %1 to %2 format, please wait...
cscript /nologo "%~dp0ExcelCsvConvertorScript.vbs" "%~dpnx1" "%~dpn1.%2" %2
echo Done!

סקריפט VB משופר להמרה דו כיוונית:

if WScript.Arguments.Count <> 3 Then
    Wscript.Echo "Error: invalid number of arguments specified." & vbNewline
    WScript.Echo "Usage: ExcelCsvConvertor <InputFileName> <OutputFileName> <OutputFormat>" & vbNewline
    WScript.Echo "Example: ExcelCsvConvertor input.xlsx output.csv csv"
    Wscript.Quit
End If

InputFileName = Wscript.Arguments.Item(0)
OutputFileName = WScript.Arguments.Item(1)
OutputFormat = lcase(WScript.Arguments.Item(2))
 
Select Case OutputFormat
Case "csv"
    XlFileFormatValue = 62
Case "xlsx"
    XlFileFormatValue = 51
Case Else
    Wscript.Echo "Unsupported output format specified: " & OutputFormat
    Wscript.Quit
End select


With CreateObject("Excel.Application")
    With .Workbooks.Open(InputFileName)
        .SaveAs OutputFileName, XlFileFormatValue
        .Close False
    End With
    .Quit
End With

קובץ להתקנה והסרה קלה מתפריט ההקשר (לחצן ימני):

@echo off

set convertor_path=%~dp0ExcelCsvConvertor.cmd
cls
echo ==========================================================================
echo ExcelCsvConvertor: Context menu setup
echo ==========================================================================
echo.
echo [1] Install   : Adds "Convert to CSV/Excel" options to context menu
echo [2] Uninstall : Removes "Convert to CSV/Excel" options from context menu
echo [Q] Quit
echo.
choice /C 12Q /T 1000 /D Q /N /M "Please select an option: "

IF [%errorlevel%]==[1] GOTO Install
IF [%errorlevel%]==[2] GOTO Uninstall
exit /b

:Install
echo Installing...
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.xlsx\shell\ConvertToCSV /f /d "Convert to CSV..."
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.xlsx\shell\ConvertToCSV\command /f /d "\"%convertor_path%\" \"%%1\" csv"
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.csv\shell\ConvertToExcel /f /d "Convert to Excel..."
REG ADD HKEY_CLASSES_ROOT\SystemFileAssociations\.csv\shell\ConvertToExcel\command /f /d "\"%convertor_path%\" \"%%1\" xlsx"
goto Done

:Uninstall
echo Uninstalling...
REG DELETE HKEY_CLASSES_ROOT\SystemFileAssociations\.xlsx\shell\ConvertToCSV /f
REG DELETE HKEY_CLASSES_ROOT\SystemFileAssociations\.csv\shell\ConvertToExcel /f
goto Done

:Done
echo Done!
pause

הערות:

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

והנה כל החבילה להורדה: (הערה: עיין בהמשך האשכול לגרסה משופרת 0.2)
ExcelCsvConvertor.cmd
ExcelCsvConvertorScript.vbs
Setup (run as Administrator).cmd

@מאן-דאמר-1 כתב בבקשת עזרה בהמרת קובץ אקסס שמחולק ל system ו data מ 32 סיביות ל64:

המסד נתונים שלי כולל בתוכו גם טפסים / דוחות / מודלים שאותם זה לא מייבא

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

הדרך היחידה היא להתקין אקסס\אופיס גרסת 32 ביט. מייקרוסופט יקשו עליך בזה, אין ספק.
(אגב, ציינתי את זה בעבר כאן: https://tchumim.com/topic/13847/אופיס-32-או-64/5, זו עוד תזכורת מכאיבה לכך שמייקרוסופט לא מקצים משאבים הולמים לפיתוח מוצר האקסס)

למיטב זכרוני אפשר לעקוף את ההגבלה כך:

1. ראשית, תוודא מראש שיש לך את קבצי ההתקנה של אופיס בשתי הגרסאות 32 ו-64.
2. תסיר לגמרי את כל גרסאות האופיס הקיימות במחשב, כולל כל היישומים word/excel, וגרסת הניסיון שבאה עם windows 10/11
3. תתקין גרסת 32 ביט, אני נוהג להתקין רק את תוכנת האקסס מתוך החבילה.
4. תתקין את שאר יישומי האופיס בגרסת 64 ביט.

בהצלחה

@מאן-דאמר-1 לפי ההודעה שצירפת, נראה כי בקובץ שאתה מנסה לפתוח קיימת הפנייה לקובץ אחר.
באקסס הנתיב של ההפניה מוטמע בקובץ, ואין לך אפשרות לשנותו
אבל תוכל לראות בהודעה את הנתיב המדוייק שבו אמור הקובץ להימצא.
הנתיב הוא:

C:\Program Files\Digitat\Apps\מטחשבון

ושם הקובץ החסר הוא: מטחשבון.accde
והוא אמור להמצא בתוך הנתיב הנ"ל שציינתי.
אתה יכול לנסות ליצור בעצמך את הנתיב המלא בכונן C, (כולל התיקיה "מטחשבון"), ולמקם בה את הקובץ מטחשבון.accde שאני מניח שנמצא בידך.

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

@shraga זה השיעור שחיפשתי, תודה רבה!

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

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

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

כתבתי בקיצור, יש דוגמא נחמדה ש-@clickone פעם הכין, ראה כאן: https://tchumim.com/topic/474/סינון-מרובה/11

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

Where City In('ירושלים', 'צפת',....)

אבל הרעיון של בניית SQL דינמי ממומש שם. במקרה שלך הערכים הנבחרים יהיו שמות העמודות, כלומר:

SELECT Year2017, Year2023 FROM ...

@shraga וואו, ינוחו ברכות על ראשך!

@חייםיודלביץ כתב באקסס | מה הדרך הנכונה והמהירה לשינוי מקור פקד ע"י המשתמש?:

האם זו הדרך הנכונה לבצע את זה?

זה אפשרי.

זה לא מאט את התוכנה?

זה זניח במקרה של 10 תיבות טקסט.

זכור לי שבעבר היה על זה נידון כאן בפורום איך לבצע את זה הכי נכון אבל אני לא מוצא את השירשור.

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

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

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

צריך להגדיר עיצוב נפרד לשורות הזוגיות והאי זוגיות
ובכל סוג שורה להגדיר עיצוב הפוך לאלמנטים של ה-img הזוגיים והאי זוגיים

.image-row:nth-child(odd) {
    img:nth-child(odd) {
    border: solid 5px #A50021;
  }
    img:nth-child(even) {
    border: solid 5px  #4D4D4D;
  }
}
.image-row:nth-child(even) {
    img:nth-child(even) {
      border: solid 5px #A50021;
  }
    img:nth-child(odd) {
    border: solid 5px  #4D4D4D;
  }
}

ובדף:

<div class="image-row">
<img src="https://tchumim.com/assets/uploads/system/site-logo.png?v=k6b5m3pa5ec">
<img src="https://tchumim.com/assets/uploads/system/site-logo.png?v=k6b5m3pa5ec">
<img src="https://tchumim.com/assets/uploads/system/site-logo.png?v=k6b5m3pa5ec">
</div>

<div class="image-row">
<img src="https://tchumim.com/assets/uploads/system/site-logo.png?v=k6b5m3pa5ec">
<img src="https://tchumim.com/assets/uploads/system/site-logo.png?v=k6b5m3pa5ec">
<img src="https://tchumim.com/assets/uploads/system/site-logo.png?v=k6b5m3pa5ec">
</div>

פלט:

קוד:
https://codepen.io/OdedDvir/pen/zYexWQJ

אפשר על ידי VBA
אתה צריך להריץ על הטופס הראשי את הפקודה Recalc באירוע AfterUpdate של טופס המשנה
לדוגמא, נניח שיש לך בטופס המשנה תיבת טקסט txtAmount שבה אתה מכניס כמות, ולאחר העדכון של התיבה אתה רוצה שהטופס הראשי יחושב מחדש.
גש למאפיינים של פקד תיבת הטקסט, אירועים, ותוסיף קוד לאירוע "אחרי עדכון"
עורך הקוד ייפתח, ויצור עבורך את הקוד הבא:

Private Sub txtAmount_AfterUpdate

End Sub

תוסיף את השורה הזו:

Private Sub txtAmount_AfterUpdate
   Me.Parent.Recalc
End Sub

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

1. התחברתי עם כבל LAN, נכנסתי ל-gateway 192.168.1.1 עם שם משתמש: home וסיסמה: Home013 (כך רשום על המדבקה למטה)
2. תחת תחזוקה maintance ביצעתי איפוס להגדרות יצרן:
   
3. אחרי זה, באורח פלא החיבור חזר (דרך כבל LAN). אלא שה-wifi היה עם סיסמה דיפולטיבית, וכשניסיתי להיכנס שוב ל-gateway שם המשתמש והסיסמה בסעיף 1 לא עבדו... התקשרתי אל 019 והם אמרו שהסיסמה היא Home (בלי הספרות 013). נו נו.
4. שיניתי את הגדרות ה-wifi כרצוני ונשמתי לרווחה.

תודה לכל המסייעים!
@shraga פינג לא מחזיר כלום, רק Timeout
@dovid המקום היחיד שמצאתי בכלל אפשרות להגדיר שם משתמש וסיסמה זה כאן:

זה היה כבוי, וכשהעברתי ל-ON לא מוגדר לי כלום
אני אנסה לבקש מהם פרטי התחברות, תודה

יש לי חיבור סיבים ל-019
לפני שעה קפץ החשמל לשניה, ומאז אני לא מצליח להתחבר לאינטרנט
בשיחה עם נציג ניסינו את הדברים הבאים:
א. חיבור ישיר של המחשב לראוטר דרך כבל (בלי Wifi)
ב. איפוס ראוטר (על ידי הלחצן שבתוך החור בצד האחורי של הראוטר)
ג. איפוס מרחוק על ידי הנציג
שום דבר לא עזר.
הם אמרו שטכנאי יתאם איתי מועד לשבוע הבא.
בינתיים זה תוקע לי תהליכים בעבודה.
המוזר הוא שכל הנורות (חשמל, סיב, אינטרנט, LAN, Wifi) דולקות בצורה תקינה,
וכשאני מתחבר לראוטר אני רואה שכתוב Internet:Connected

הראוטר הזה כנראה מעודפים של סלקום, כי לאחר האיפוס, שם הרשת שהוא משדר הוא Cellcom-wifi_A7B7. ההשערה שלי היא שצריך לשנות את הגדרות ברירת המחדל שלו מסלקום ל-019.

קיצורו של דבר, אם מישהו שמחובר ל-019 יוכל לשתף מה ההגדרות הקיימות בראוטר שלו, ינוחו ברכות על ראשו.

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

@מעמד בשלב ב מוסבר איך לבחור את האיזור לטשטוש

@ארי כתב בהעברת קובץ אקסס למחשב אחר:

למיטב זכרוני בקובץ mdb אי אפשר להיכנס לחלון הVBA.

אפשר, כנראה התכוונת לקובץ mde.

@שואף ניסית לפתוח את הקובץ במצב עריכה? תחזיק את Shift לחוץ ותקליק על הקובץ.
אחר כך תעבור לעורך ה-VBA על ידי Alt+F11, ומן התפריט: Tools>References (כמו שרואים בצילום שהביא @chagold )
בתחתית החלון שיפתח תוכל לראות בדיוק לאילו ספריות הקובץ מפנה, ותעתיק אותן למחשב השני.
יתכן ותצטרך לקשר את ההפניות אליהן מחדש מתוך המחשב השני.