-
@מנחם
תאמת כרגע יש לי קצת כילאים
אבל אני מעדיף משהו ברור מאשר משהו שלא הצלחתי להבין אותו כלל יתכן וכאשר אני יבין אני ישתמש בקוד הקודם
תכלס זה הקוד המלא'הגדרת המשתנים עבור אקסל 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
דרך אגב משום מה האקסס קפא לי לאחר הריצה ועד עכשיו הוא לא רוצה להפשיר
ואני לא רוצה לסגור אותו בכח כי יש לי שם דברים שלא שמרתי@אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:
דרך אגב משום מה האקסס קפא לי לאחר הריצה ועד עכשיו הוא לא רוצה להפשיר
ואני לא רוצה לסגור אותו בכח כי יש לי שם דברים שלא שמרתיתנסה ללחוץ על קונטרול+BREK
או משהו בסגנון כדי לשחרר אותו
כמובן שאתה צריך להיות בפוקוס -
@אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:
דרך אגב משום מה האקסס קפא לי לאחר הריצה ועד עכשיו הוא לא רוצה להפשיר
ואני לא רוצה לסגור אותו בכח כי יש לי שם דברים שלא שמרתיתנסה ללחוץ על קונטרול+BREK
או משהו בסגנון כדי לשחרר אותו
כמובן שאתה צריך להיות בפוקוס -
-
@אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:
אין לי כפתור כזה
break
יש אותו במקלדת רגילה מעל החיצים מעל page up ו down -
D dovid העביר נושא זה מ-תכנות ב-