Здравсвуйте,
Читаю данные из ексель, встречаются файлы при открытии которых возникает ошибка: "Имя не должно совпадать со встроенным именем".
И предлагается ввести новое имя, старое - _filterDatabase
Ошибка возникает при выполнии строки:
WB = Excel.Workbooks.Open(пПолноеИмяФайла);
На форуме есть подобные темы, но решения там нет:
v8: Конфликт имен: Имя не должно совпадать со встроенным именем в Excel
Собственно дело в автофильтре, как я понял, если добавить в книгу макрос при открытии удаляющий автофильтр, то все ок. Но это неудобно, можно ли как то в 1с до открытия книги выполнить код аналогичный макросу:
Private Sub Workbook_Open()
Dim KolListov As Integer
Dim KolImen As Integer
KolListov = Sheets.Count
For i = 1 To KolListov
Sheets(i).AutoFilterMode = False
Next
KolImen = Names.Count
For i = 0 To KolImen - 1
If InStr(Names(KolImen - i).Name, "_FilterDatabase") <> 0 Then
Names(KolImen - i).Delete
End If
Next
End Sub