Имя: Пароль:
1C
1С v8
Конфликт имен при чтении из Ексель
0 konst1231
 
25.03.14
12:12
Здравсвуйте,
Читаю данные из ексель, встречаются файлы при открытии которых возникает ошибка:  "Имя не должно совпадать со встроенным именем".
И предлагается ввести новое имя, старое - _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
1 Мимохожий Однако
 
25.03.14
12:18
Перед открытием переименовать не пробовал?
2 konst1231
 
25.03.14
12:22
1.файл  - нет
2. или в окне конфликта имен новое имя ввести (в этом случае методы СчитывавемоеЗначение=WS.Cells(i, j).Value ошибку начинают выдавать)
3 Torquader
 
25.03.14
21:38
Наверное, старый нужно закрывать, так как попытка открыть ещё один файл с тем же именем просто не проходит.
Ошибка? Это не ошибка, это системная функция.