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

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

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

'הגדרת המשתנים עבור אקסל
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 הטבלאות?
ואם לא איזה טבלה עדיף לקשר את התרומות או השיחות..

@shraga
לא מצליח להשתמש בו

@shraga
שניהם בתשלום או גירסת ניסיון
יש משהו חינמי?

האם יש אפשרות באפשרויות קובץ ב שלח אל להוסיף אפשרות של לשלוח כקובץ מצורף למייל חדש

כלומר שיפתח הודעת מייל חדשה בדפדפן כרום ויצרף את הקובץ הנ"ל?..

כמו שיש דחוס ושלח בדוא"ל (אבל אני רוצה עם דפדפן כרום)

@הללוהו
תפנה אלי במייל שבחתימה

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