Удаление фрагмента в xml файле Excel

Option Explicit
 
Sub RemoveFragmentInStylesXML()
Dim wb As Workbook
Dim filePath As String
 
' Выбор Excel файла
With Application.FileDialog(msoFileDialogOpen)
.Title = "Выберите Excel файл"
.Filters.Clear
.Filters.Add "Excel файлы", "*.xls*"
If .Show = -1 Then
filePath = .SelectedItems(1)
Set wb = Workbooks.Open(filePath)
Else
Exit Sub
End If
End With
 
' Удаление фрагмента в styles.xml
Dim xmlPath As String
Dim xmlContent As String
Dim startPos As Long
Dim endPos As Long
 
' Путь к styles.xml
xmlPath = wb.Path & "\xl\styles.xml"
 
' Проверка наличия файла
If Not Dir(xmlPath) <> "" Then
MsgBox "Файл styles.xml не найден.", vbExclamation
Exit Sub
End If
 
' Открытие файла styles.xml
Open xmlPath For Input As #1
xmlContent = Input$(LOF(1), #1)
Close #1
 
' Поиск позиций фрагмента
startPos = InStr(xmlContent, "<cellStyles count")
endPos = InStr(xmlContent, "</cellStyles>") + Len("</cellStyles>") - 1
 
If startPos > 0 And endPos > 0 Then
' Удаление фрагмента
xmlContent = Left(xmlContent, startPos - 1) & Mid(xmlContent, endPos + 1)
 
' Сохранение изменений
Open xmlPath For Output As #1
Print #1, xmlContent
Close #1
 
MsgBox "Фрагмент успешно удален из styles.xml.", vbInformation
Else
MsgBox "Фрагмент не найден в styles.xml.", vbExclamation
End If
 
' Закрытие Excel файла
wb.Close SaveChanges:=True
End Sub