Hallo an alle,
folgenden Code habe ich
strFolder = strFolder & strFilename
ThisWorkbook.SaveCopyAs strFolder
Workbooks.Open strFolder
Windows(strFilename).Activate
With Workbooks(strFilename).VBProject
For Each objVBC In .VBComponents
Select Case objVBC.Type
Case 1, 2, 3
.VBComponents.Remove .VBComponents(objVBC.Name)
Case 100
With objVBC.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
End With
und er steigt immer bei der Zeile
With Workbooks(strFilename).VBProject
aus, mit dem Fehler
Laufzeitfehler 1004 Die Methode VBProject für das Object "_Workbook ist fehlgeschlagen
auf Office 200 hat das geklappt bei xp macht mir das jetzt sorgen,
hat jemand eine idee wo dran das liegen kann?
gruß
swen