@מנחם
הרבה תודה
זו באמת היתה הבעיה
תכלס התקדמתי עוד
וזה הקוד שיש לי
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
מכיל את הנתיב של הקובץ