гр. кСпасибо, получилось...
гр. кСпасибо, получилось...
Вчера работало, сегодня я еще какого-то кода настрочил, в итоге листы удаляются, но только 1 модуль из 5 в книге удаляется всего.
Мб кто-то незамыленным взгядом глянет, где может косяк скрываться?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Sub CorrReportFile(Filename As String)
Dim strFileName As String, wb, ws
Dim fileSaveName
Dim objVBC
strFileName = "Принципал_" & Replace(Filename, """", "")
strFileName = ThisWorkbook.Path & "\" & strFileName & ".xls"
Set wb = Workbooks.Open(strFileName)
With wb
'этих листов быть не должно
'for each ws in
.Worksheets("list").Delete
.Worksheets(strParamsSheetName).Delete
End With
'все вбпрожект-фишки удаляю
For Each objVBC In wb.VBProject.VBComponents
If objVBC.Type >= 1 And objVBC.Type <= 3 Then
objVBC.Collection.Remove objVBC
ElseIf objVBC.Type = 100 Then
objVBC.CodeModule.DeleteLines 1, objVBC.CodeModule.CountOfLines
End If
Next
wb.Save
wb.Close
Set wb = Nothing
End Sub
