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

@מלא
תודה רבה הצלחתי לשחרר אותו
וכן להר' @מנחם עזרת לי מאוד הסתדרתי לבנתיים
הכל בא על מקומו בשלום..

@יוסף-חיים-016
ככל הנראה חסר לך הבנה במהותו של פורום.
ואני אסביר

1. פורום נועד לשאול שאלות באופן כללי לכולם ולא למישהו ספציפי.
2. פורום לא נוצר כפלטפורמה לעזרה הדדית אישית וכ"ש שלא ע"ג הפורום.
3. רוב משתמשי הפורום אוהבים לתת עזרה מעל גבי השולחן כדי שאם עוד אחד יהיה לו את אותה התקלה הוא ילמד מהתשובה ולא יצטרכו לכתוב 1000 פעם באישי.
4. פורום לא נועד (בעצמותו) להתיידדות אישית בשום צורה שהיא לצורך זה הסבירו שיש לך מייל ...
5. להסברים נוספים

@יוסף-חיים-016 אמר בלדעתי כדאי לפתוח את האופציה לצ'אטים:

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

לעומת זאת אם תשאל בפרטי, אתה מתיודד עם אננשים, שומר איתם על קשר טוב,

@יוסף-חיים-016 אתה לא חושב שזה תרתי דסתרי??

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

נ.ב. למה רציתי כי היה לי בסך הכל שאלה על דיוור כולל קובץ מצורף

ורציתי לשאול מישהו ספציפי

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

@מנחם אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

BREK

אין לי כפתור כזה

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

@מנחם
תאמת כרגע יש לי קצת כילאים
אבל אני מעדיף משהו ברור מאשר משהו שלא הצלחתי להבין אותו כלל יתכן וכאשר אני יבין אני ישתמש בקוד הקודם
תכלס זה הקוד המלא

'הגדרת המשתנים עבור אקסל
Dim xl_app As Object, xlwkb As Object, xl_wks As Object
'פתיחת אובייקט מסוג אקסל
Set xl_app = CreateObject("Excel.Application")
'פתיחת הקובץ המבוקש
Set xl_wkb = xl_app.Workbooks.Open(aNeme)
'פתיחת הגליון הרצוי
Set xl_wks = xl_wkb.Sheets(Export)
 
     With xl_wks
        
    .Range("a1").Value = "שם ספר"
    .Range("b1").Value = "צבע"
    .Range("c1").Value = "מדף"
    .Range("d1").Value = "שם מחבר"
    .Range("e1").Value = "סיווג"
    .Range("f1").Value = "הערות"
    
    
    .Application.ActiveWorkbook.Save
    End With
'סגירת האובייקט הנל מסוג אקסל
xlApp.Quit

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

@מנחם
לבנתיים עברתי לקוד שלך הוא נראה הרבה יותר ברור (בשבילי בכל אופן)
תכלס בסגירת הקובץ הוא מחזיר שגיאה כזו

@מנחם
הרבה תודה
זו באמת היתה הבעיה
תכלס התקדמתי עוד
וזה הקוד שיש לי

On Error GoTo doExcelAutomationErr

Dim mySheet As Object
Dim xlApp As Object
Dim strName As String

    strName = aName
    Set xlApp = CreateObject("Excel.Application")
    Set mySheet = xlApp.Workbooks.open(aName).Sheets(1)

    mySheet.SaveAs strName
    xlApp.Visible = False
    Set mySheet = xlApp.Sheets("Export")
    
    With mySheet
        
    Range("a1").Value = "שם ספר"
    Range("b1").Value = "צבע"
    Range("c1").Value = "מדף"
    Range("d1").Value = "שם מחבר"
    Range("e1").Value = "סיווג"
    Range("f1").Value = "הערות"
    
    
    .Application.ActiveWorkbook.Save
    End With
    
    Set mySheet = Nothing
    Set xlApp = Nothing

doExcelAutomationExit:
    Exit Sub

doExcelAutomationErr:
    MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
    Resume doExcelAutomationExit

הקוד עובד מעולה חוץ מזה שיש לי 2 בעיות...
1. בשורה 11 הוא ככל הנראה פותח קובץ חדש והוא מבקש ממני להחליף אותו מה שאני רוצה לבטל עריכה: בסיעתא דשמיא הצלחתי להתגבר על הבעיה הזו.
2. הקוד הזה לא סוגר לי את קובץ האקסל

משתנה aName מכיל את הנתיב של הקובץ

לאחר ניסיון ותהיה הגעתי לשגיאה הבאה

בשורה הבאה..

@אפר-שריפה
לא עוזר אני מקבל עדיין את אותה השגיאה...

@chagold אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

Set xl_wks = xl_wkb.Sheets(source_cbo)

אני נתקל בשגיאה בשורה הזו

@שמח-לשמוע
עיין כאן
שים לב! זה עובד רק בגוגל שיטס.

@chagold
לדוגמא נלך על הקוד הבא

Dim xl_app As Object, xlwkb As Object, xl_wks As Object
Dim source_empl_col As Integer
Set xl_app = CreateObject("Excel.Application")
Set xl_wkb = xl_app.Workbooks.open(aName)
Set xl_wks = xl_wkb.Sheets(source_cbo)
source_empl_col = xl_wks.Range(empl_col_txt.text & 1).Column

תוכל להסביר לי מה הולך בכל שורה?

@chagold
למה שהקוד ידע איזה קובץ לערוך... ?

@chagold אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

@אוריי זה קשור?

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

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

@יוסף-חיים-016 אמר בבקשה- קטגוריה בע''ח:

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

אם היית קורא את חוקי הפורום דיו לא היית חושש להיות מורחק..

@avi-rz
לא הבנת אותי כוונתי לקשר בין התרומות לתורמים וכן את השיחות לתורמים
אבל כבר מצאתי שיש אפשרות לקשר 2 טבלאות לטבלה אחת..

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